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SEQ 0001 


1 ~TITLE CZMLACO ML-11 LOGIC TEST 
-SBTTL USER DOCUMENTATION 


-REM & 
IDENTIFICATION 
PRODUCT CODE: AC-S388C-MC 
PRODUCT NAME: CZMLACO ML11 LOGIC TEST 
PRODUCT DATE: 19-MAY-81 
MAINTAINER: STORAGE SYSTEMS DIAGNOSTICS 
AUTHOR: D.W.NEALE 


ae INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
OTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1982 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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TABLE OF CONTENTS 

GENERAL INFORMATION 

PROGRAM ABSTRACT 

ie REQUIREMENTS 

RELATED DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
OPERATING INSTRUCTIONS 

COMMANDS 

SWITCHES 

FLAGS 
HARDWARE QUESTIONS 

SOFTWARE QUESTIONS 

EXTENDED P-TABLE DIALOGUE 
QUICK STARTUP PROCEDURE 
ERROR INFORMATION 

PERFORMANCE AND PROGRESS REPORTS 
DEVICE INFORMATION TABLES 


. TEST SUMMARIES 
1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 
DIAGNOSTIC ow} “y CONTRACTED BY MEMORY ENGINEERING TO MAKE THIS 


DIAGNOSTIC IN ORDER AID MEMORY ENGINEERING TO DESIGN AND DEBUG THE 
ia? AID FIELD SERVICE °FOR FIELD REPAIRS AND INSTALLATIONS OF THE 


o fo So CO NOUMEWN HO fFWhoO 


Oo WO F&F W PPPPNPPTP SA 
. 


THIS DIAGNOSTIC PRODUCT WILL BE DESIGNED TO TEST FROM ONE TO EIGHT 
ML-11 UNITS OFF A SINGLE RH11 OR RH70 CONTROLLER. 


THE FUNCTIONAL LEVEL (FRU) OF THIS DIAGNOSTIC PRODUCT WILL BE TO THE 
LOGIC FUNCTION LEVEL (J.E. DRIVE SELECTION). UPON DETECTION OF AN 
ERROR BY THE DIAGNOSTIC, THE LOGIC FUNCTION AND RESPECTIVE MODULE 
WHICH IT IS LOCATED ON WILL BE PRINTED TO THE OPERATOR. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES tnd a 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT 

THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. roe! A COMPLETE oA rig 62 OF = RUNTIME Pare taee REFER 
TO THE X USER'S MANUA THERE IS A BRIEF epi TION OF 

THE RUNTIME ” SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 


THE HARDWARE DESIGN IS EXPECTED TO CONFORM TO THE STANDARDS SET FORTH 
IN THE MASSBUS SPECIFICATION (DEC STANDARD 159). 


PDP-11 WITH MINIMUM OF 28K WORDS OF MEMORY 
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CONSOLE TERMINAL 

RH11 OR RH70 

1 TO 8 ML=11 DRIVES ON INTERMIXED BUS 
XXDP+ LOAD MEDIA 

1.3 RELATED DOCUMENTS AND STANDARDS 
1. SUPPRGC.DOC 

2. SUPINT.MEN 

3. SUPFUN.C 

4. XXDPPLUS.DOC 

5. BLISS LANGUAGE GUIDE 
6. BLISS-16 USER'S GUIDE 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


IT WILL BE ASSUMED THAT PRIOR TO THE RUNNING OF THIS DIAGNOSTIC THAT 
ALL APPROPRIATE CPU, MAIN MEMORY AND RH CONTROLLER DIAGNOSTICS HAVE 
BEEN SUCCESSFULLY RUN. 


THIS DIAGNOSTIC WILL HOWEVER PERFORM MINIMAL RH TESTS TO ENSURE ITS 
4H XISTANCE AND BASIC FUNCTIONALITY BEFORE LOGIC TESTS ARE ALLOWED TO 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME - 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A V 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ ny TOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL ‘rr TS ARE 
CONSIDERED y BE ACTIVE AT START TIME 

DROP DEACTIVATE A_UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 


BY THE DIAGNOSTIC =~ SECTION 4.0) 
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tt gl TYPE A LIST OF ALL DEVICE INFORMATION 
LAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
FLAGS CLEAR ALL FI“*SS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE ‘’STA’’ INSTEAD OF "‘START’’. 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR i 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE L 

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, im 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED _IN 
THE LIST. LIST IS A STRING OF TEST 


8 ° E 
/PASS :DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS Th ctction Ss. FLAGS. FLAGS ARE DESCRIBED 


ON 2 
/EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. DD 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY Hoye UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 
USE UNITS 0,5,10,11, ep (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1-5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) vie 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES “re 2 THE a OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH "100 PASSES ONLY. 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. you MAY, 
FOR EXAMPLE, TYPE °'/TES:1~5°' INSTEAD OF ‘'/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


T x xX x x 

RESTART X x xX x x 
ONT INUE x x xX 
PROCEED x 
DROP xX 
ADD x 
INT 

DISPLAY Xx 
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2.3 FLAGS 
FLAGS ARE USED TO wl UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. L FLAGS ARE CLEARED AT STARTUP AND REMAIN 


CLEARED UNTIL EXPLICITLY 3m re THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE FLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF a | START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBE* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL'* ON ERROR 

UAM UNATTENDED MODE (NO MANUAL tty ae 

ISR INHIBIT STATISTICAL REPORTS (DOES NO 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDU INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU _ 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMP 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS — 
AND TYPE A "BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER:BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC 1S STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘CHANGE HW (L) 2° 
YOU MUST ANSWER ‘'Y’' AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN 'PRELOADED'' USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 


SEQ 0005 
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OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


PARAMETER CODING CALLS 


GPRMA MSGH1 9. 0, 0.0 7777? VES :RH ADDRESS 

GPRMD MSGHe.2.0 0.77,1 *RH TYPE 

GPRMD 140.7 ar he ves :RH VECTOR ADDRESS 
GPRMD MSGH4.6.D.77,1, 0.7 6.,¥ ER FO ARRAYS 
GPRML MSGHS. $6 ves ‘DRIVE OPTIONS 
GPRMD 12.0 le 0. 7,YES RIV 


;DRIVE NUNBER 
GPRML mSGH?, 14,1 ;PARITY DISABLED 
PARAMETER CODING MESSAGES 
MSGH1: .ASCIZ /RH ADDRESS?/ 
: ASC /1S RH AN ° 


MSGH2 IZ * OR '11?/ 
MSGH3: .ASCIZ /RH VECTOR ADDRESS?/ 

MSGH4: .ASCIZ /NUMBER OF ARRAY MODULES?/ 
MSGHS: .ASCIZ /IS DRIVE OPTION AN ML11A?/ 
MSGH6: .ASCIZ /ML=-11 DRIVE NUMBER?/ 
MSGH7 IZ /1S PARITY DISABLED?/ 


SAMPLE DIALOGE 

DR> STA <CR> 

CHANGE HW <L> ? Y <CR> 
# UNITS <D> ? 1 = <CR> 


UNIT 0 
RH ADDRESS_<0> 17409 2 <CR> 
H AN ‘70° < <CR> 


IS RH O> 
RH VECTOR ADDRESS <0> 204 * <CR> 
IMBER OF ARRAYS weet ? <D> 16, ane <CR> 


ML~11 DRIVE NUMBER ? <O> 0 ? <CR> 
IS PARITY DISABLED ? <L> N ? <CR> 


2.5 SOFTWARE QUESTIONS 


AFTER VOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC, SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY T'CHANGE Su (L) 2 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

"Y"", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


PARAMETER CODING CALLS 
GPRML MSGS1,0,1,NO :PRINT THE DRIVE SERIAL NUMBER 
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PARAMETER CODING MESSAGES 

MSGI: .ASCIZ /PRINT SERIAL NO.?/ 
SAMPLE DIALOGE 

PRINT SERIAL NO. ? <L> N? Y <CRD> 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT DESCRIBES THE DEVICES UNDER TEST. He SIMPLEST 
WAY TO BUILD THIS TABLE IS a ANSWER ALL QUESTIONS FOR EACH 

UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED ihe SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


y ILLUSTRATE A MORE gl eS ppock tg YOU ARE TESTING 


HROU 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
0<CR> 


SUB-DEVICE # (0) ? 
Q-FACTOR (0) 0 ? 1<CR> 


ba) 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 4 
CSR ant al (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 2? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 


SEQ 0007 


co 
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SUB=DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 
CSR eith @ (0) 2? 160000<CR> 
SUB=DEVICE # (0) ?. 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 
CSR sa? (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON=DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFI 
“T aea THE SAME TABLE USING THE MULTIPLE SPECI 


# UNITS (D) ? 8<CR> 


rH ay: HOWEVER. 
FICATION 


UNIT 1 
CSR ADDRESS (0) ? oo 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0? 1 JO<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 2=5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE LON wa RUNTIME SERVICES WILL 
ILD AS MANY ENTRIES i‘. IT CAN WITH THE INFORMATION GIVEN ee 


R 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
4 AND 5 WERE mg ade (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD DRESSES MUS 
BE AN EVEN BOUN 


THE FOUR ENTRIES ARE AS 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


SEQ 0008 
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THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 

SUB=DEVICE # (0) ? <CR> 

Q-FACTOR (0) 0? 0,1 70s,..1 2 1<CR> 


AS YOU CAN SEE _FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ‘'R NAME’, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE *'START'’ 

5. ANSWER THE "'CHANGE HW'* QUESTION WITH ‘'Y*' 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE *'CHANGE SW’ QUESTION WITH ‘'N’’ 


WHEN YOU FOLLOW THIS Se jar y A WILL _BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND ‘S 5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY ‘ 
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR M zenees 

ARE ALWAYS PRINTED UNLESS THE "IER 4 4 IS SET (SECTION 2. 

THE GENERAL ERROR MESSAGE IS OF THE F 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 


eWHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
ote = ERROR NUMBER 
UNIT NUMBER = 0 = N (N IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 
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BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 

THE “'IER’ OR “'IBR’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE IER’, “IBR'' OR "'IXR'' FLAGS ARE SET (SECTION 2.3). 


THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
ERROR MESSAGES ARE HANDLED VIA A DICTIONARY STRUCTURE. 


WORDS AND PHRASES ARE MULTIPLY REFERENCED USING ONLY 
ONE COPY OF THE WORD OR PHRASE IN CORE. 


THIS PERMITS EXTENSIVE ERROR MESSAGE PRINTING AT MINIMAL 
STORAGE REQUIREMENTS. 


THE FOLLOWING DEMONSTRATES TYPICAL ERROR MESSAGES: 

ML11 DVC FTL ERR 00077 ON UNIT 07 TST 027 SUB 002 PC: 050432 
ASYNCHRONOUS MODULE FAILURE 

EXCESSIVE DATA ERRORS DURING INITIAL ARR RD_WRT 

ML11 DVC FTL ERR 00112 ON UNIT 03 TST 037 SUB 000 PC: 056466 
a ee ee a MODULE FAILURE 

ARRAY ADRS MULTIPLEXER FAILURE 

FAILED AT DSA: 000000 

3.2.1 ERROR NUMBER DEFINITION 


ERROR NO. FAILING LOGIC 


1 DRIVE DID NOT RESPOND 






WITHIN 1.5 US 

2 DSA REG READ/WRITE ERROR 
DURING DRIVE SEL TEST 

3 UNIQUE DRIVE SELECTION 
ERROR 


4 ML REGISTER READ WRITE 
ONES/ZEROES ERROR 


5 ML REGISTER READ WRITE 
ONES/ZEROES ERROR 


6 ML REGISTER INITIALIZATION 
ERROR 








CONTROL BUS BAD PARITY 
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NOT DETECTED 


CONTROL BUS GOOD PARITY 
NOT DETECTED. 


CONTROL BUS BAD PARITY 
GENERATED. 


ARRAY SIZING LOGIC ERROR 


GO BIT NOT CLR AFTER 
NOOP FUNCTION 


ILF BIT SET DURING NOOP 
FUNCTION 

OPI BIT SET DURING NOOP 
FUNCTION 

GO BIT NOT SET DURING WRITE 


CHECK FUNCTION 


DRY BIT NOT CLEAR DURING 
WRITE CHECK FUNCTION 


DRY BIT SET WHEN GO SET 
DURING WRITE CHECK FUNCTION 


ILF SET DURING WRITE 
CHECK FUNCTION 


OPI BIT SET DURING WRITE 
CHECK FUNCTION 


GO BIT NOT CLEAR AFTER WRITE 


CHECK FUNCTION ‘ASYNC FAILURE’ 


GO BIT NOT CLEAR AFTER WRITE 


CHECK FUNCTION ‘SYNC FUNCTION’ 


DRY BIT NOT SET AFTER WRITE 
CHECK FUNCTION 


GO BIT NOT CLEAR AFTER WRITE 


CHECK FUNCTION ‘ASYNC FAILURE* 


GO BIT NOT CLEAR AFTER WRITE 


CHECK FUNCTION ‘SYNC FAILURE’ 


GO BIT NOT SET DURING WRITE 
FUNCTION 

DRY BIT CLEAR WITH GO CLEAR 
DURING WRITE FUNCTION. 


DRY BIT SET WITH GO BIT 
DURING WRITE FUNCTION. 


SEQ 0011 
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28 
29 


30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4] 
42 
43 
ah 


45 
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ILF BIT SET DURING WRITE 
FUNCTION 


OPI BIT SET DURING WRITE FUNCTION 


GO BIT NOT CLEAR AFTER WRITE 
FUNCTION *ASYNC FAILURE’ 


GO BIT NOT CLEAR AFTER WRITE 
FUNCTION ‘SYNC FAILURE’ 


DRY BIT NOT SET AFTER WRITE 
FUNCTION. 

GO BIT NOT CLEAR AFTER WRITE 
FUNCTION “ASYNC FAILURE’ 


GO BIT NOT CLEAR AFTER WRITE 
FUNCTION ‘ASYNC FAILURE’ 


GO BIT NOT SET DURING READ 
FUNCTION. 

DRY BIT SET WHILE GO CLEAR 
DURING READ FUNCTION. 


DRY BIT SET WHILE GO SET 
DURING READ FUNCTION. 


ILF BIT SET DURING READ 
FUNCTION. 

OPI BIT SET DURING READ 
FUNCTION 

GO BIT NOT CLEAR AFTER READ 


FUNCTION *ASYNC FAILURE’ 


of BIT NOT CLEAR AFTER READ 
FUNCTION *SYNC FAILURE’ 


a T NOT SET AFTER READ 

UNCTION 

NOT CLEAR AFTER READ 
*ASYNC FAILURE’ 


ON 
NOT CLEAR AFTER READ 
ON *SYNC FAILURE* 


GO BIT NOT CLEAR AFTER 
CLEAR FUNCTION 


DRY BIT SET WHILE GC SET 
DURING CLEAR FUNCTION 


I 
BI 
TI 
GO BIT 
FUNCTI 
GO BIT 
FUNCTI 
T 


SEQ 0012 


wo 
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46 
47 
48 


50 


51 

52 

53 

54 

55 

56 

57 

+58 
| 
| 
| 
| 
| 
| 


59 
60 
61 
62 
63 
64 


65 
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DRY BIT NOT SET AFTER 
CLEAR FUNCTION. 


ILF BIT SET DURING CLEAR 
FUNCTION 

OPI BIT SET DURING CLEAR 
FUNCTION 

COMPOSITE ERROR BIT NOT 
SET AFTER MLER BITS SET 
ATA BIT SETTING ERROR 
ATTN BIT SETTING ERROR 


ATTN BIT NOT CLEARED BY 
MLCS1 NOOP FUNCTION 


ATA BIT NOT CLEAR AFTER 
WRITING A ONE TO IT 


WRITING A ONE TO OTHER 
DRIVES ATA BIT CLEARED 
THIS DRIVES ATA BIT 


GO BIT NOT CLEARED AFTER 
SEARCH FUNCTION |. 


ILF BIT SET DURING SEARCH 
FUNCTION 


NO-OP FUNCTION DID NOT 


ELGAR THE ATA BIT AFTER BEING 


ATA BIT NOT SET AFTER 
SEARCH FUNCTION 


OPI BIT SET DURING SEARCH 


FUNCTION AT PRESENT ARRAYS 


ATA BIT SET AFTER SEARCH 
AT NOT PRESENT ARRAYS. 


GO BIT NOT CLEAR AFTER 
READ~IN-PRESET FUNCTION 


ILF BIT SET DURING 
READ-IN-SET FUNCTION 


OPI BIT SET DURING 
READ~IN-PRESET FUNCTION 


UV BIT NOT SET AFTER 
READ~IN~PRESET 


SEQ 0013 


us 
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69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


79 


80 


81 


82 
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GO BIT NOT CLEARED 
AFTER ILLEGAL FUNCTION 


ILLEGAL FUNCTION NOT 
DETECTED 

OPI BIT SET WITH 'LLEGAL 
FUNCTION 


RMR BIT NOT SET AFTER 
MODIFYING REG WITH FUNCTION 
IN PROGRESS. 

MEMORY ARRAY PROM 

CHECK SUM ERRORS DURING 
INITIAL PROM READS 


NIBBLE OFF SET COUNTS 
GREATER THAN 14 DETECTED. 


UNS BIT SET WITH GOOD 
UV DATA 
UNS BIT SET WITH GOOD 
UV DATA 
UNS BIT NOT SET WITH BAD 
UV DATA 
UNS BIT NOT SET WITH BAD 
UV DATA 
MEMORY ARRAY PROM ROW/ 
COL DATA ORING ERROR 
BAD NIBBLE yo OF 


36 EXCEEDED DURI 
oy Mi ARRAY READ/WRITE 


UNIQUE PROM SELECTION 
ERROR 


FAILURE TO FIND GCOD ROW 
DURING READ WRITE ARRAY 
WITH PROM DATA 


MEMORY ARRAY TIMING AND 
HS adle FAILURE TO REFRESH 


DATA ERRORS DETECTED AT 
LAST BLOCK DURING ADDRESSES 


COUNTER TEST. (TEST ABORTED) 


ADDRESS COUNTER ERROR 





mT pir oe 


SEQ 0014 
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83 
84 


85 


86 


87 


89 


90 


91 


92 
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UNIQUE MEMORY ARRAY 
MODULE SELECTION FAILURE 


ALL _BITS IN ALL NIBBLES 
TESTED DURING SEQUENCER 
EXISTENCE TEST 7" IN 
ERROR (FAIL UNIT) 


INTERMEDIATE FAILURE. SOME 
BITS IN NIBBLES TESTED WERE 
IN ERROR (CONTINUE TESTING) 


SYNC BUS DATA BIT 
WRITE PATH CONTINUITY 
FAILURE 


SYNC BUS DATA BIT 
READ PATH CONTINUITY 
FAILURE. 


RAM BUS ADRS COUNTER 
FAILURE TO LOAD/UNLOAD 
SKIP tan DURING WRITE 


RAM BUS ADRS COUNTER 
FAILURE TO LOAD/UNLOAD 
SKIP_RAM DURING READ 
FUNCTION 


SYNC DATA BUS WRITE PATH 
UNIQUE DATA BIT 

FAILURE (ALL ONES NIBBLE 
PATTERN) 


SYNC DATA BUS WRITE 
PATH UNIQUE DATA BIT 
FAILURE (SHIFTED BIT 
NIBBLE PATTERN) 


SYNC DATA BUS cra 
PATH UNIQUE DATA BIT 
FAILURE (ALL ONES NIBBLE 
PATTERN) 


SYNC DATA BUS READ PATH 
UNIQUE DATA BIT FAILURE 


NIBBLE OFF SET 
COUNTERS FAILURE 


CS1 FUNCTION ABORT 
FAILURE DURING CLASS 
*A* ERROR. 


CS1 FUNCTION ABORT 
FAILURE DURING CLASS 
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"B" ERROR 
97 LBT BIT SET BEFORE 
A LAST BLOCK TRANSFER 
98 DSA REGISTER INCREMENT 
FAILURE DURING NON LAST 
BLOCK TRANSFERS. 
99 LBT BIT NOT CLEAR 
AFTER LOADING DSA REG 
100 LBT BIT NOT SET 


AFTER A_LAST BLOCK 
TRANSFER 


101 DSA_REGISTER 
INCREMENT FAILURE 
AFTER A LAST BLOCK 
TRANSFER 


102 IAE BIT NOT SET AT 

INVALID SECTOR ADDRESSES 
103 AOE BIT NOT SET 

AFTER ADDRESS OVERFLOW 
104 SC BIT NOT AFTER 

CS1 FUNCTION ADORT 
105 GOOD DATA BUS 

PARITY NOT DETECTED 
106 GOOD DATA BUS 

PARITY NOT GENERATED 
107 UNS BIT SET AFTER 


WRITING TO A SECTOR 
punine PROM DATA 


108 UNS BIT NOT SET WITH 
BAD UV DATA 
109 WCE oT SET DURING 
WRITE/R 


MBUS AD 
FUNCTION TROUBLE SHOOTING 
LOOP TEST 


110 UNIQUE REGISTER 
SELECTION TEST FAILURE 

111 FAILURE TO FIND GOOD 
MOS RAM ROW DURING 
ARRAY ADRS MUX TEST 
(INTERMEDIATE DIAG MSG) 


CrC-_:, 
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112 


113 


114 


115 


116 


117 


118 


119 


120 


121 


122 


123 


124 


125 
126 


127 


128 


129 
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UNIQUE ARRAY MODULE 
ROW/COL ADDRESSING 
FAILURE 


DRIVE TYPE REGISTER VALUE 
WAS NOT CORRECT 


TRE a SET UNEXPECTEDLY 
DURING A WRITE CHECK TRANSFER 
(INTERMEDIATE DIAG ERROR) 


TRE = SET ge ALS 
DURING A WRITE TRANSFER 
CINTERMEDIATE DIAG ERROR) 


TRE BIT SET yt i ad 
DURING A READ TRANSFER 
(INTERMEDIATE DIAG ERROR) 


TRE BIT DID NOT SET AFTER 
A_REGISTER MODIFICATION ERROR 
(EXCEPTION WAS NOT ASSERTED) 


DATA DIAGNOSTIC REGISTER D1 D2 E2 
INITIALIZATION ERRORS 


RH CONTROLLER FAILURE TO RESPOND 
TO EXISTANCE PROBE 


NED BIT SET DURING MASS BUS TO 
UNIBUS COMMUNICATION PROBE 


DATA DIAGNOSTIC REGISTER D1 D2 E2 
ONE'S / ZEROE’S READ WRITE ERRORS 


DATA_DIAGNOSTIC REGISTER D1 D2 E2 


SHIFTING 1°S AND 0°S READ WRITE ERRORS 


ECC HARD ERROR BIT NOT SET WHEN 
UNCORRECTABLE ECC ERRORS WERE READ 


ECC ERROR REGISTER FAILURE TO LATCH 
FAILING ERROR CORRECTION INFORMATION 


ECC ERROR REGISTER FAILURE TO CLEAR 


ECC ERROR LOCATION REGISTER FAILED 
TO CLOCK IN DSA ADDRESS 


ECC ERROR LOCATION REGISTER DATA 
BIT ERRORS 


ECC ERROR LOCATION REGISTER 
INITIALIZATION ERRORS 


ECC HARD ERROR BIT FAILED TO SET 
NOT SET 


SEQ 0017 


F 
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USER DOCUMENTATION SEQ 0018 

130 DATA CHECK ERROR BIT FAILED TO 
SET / NOT SET 

131 CRC DATA BUS ‘pacit 
BIT CONTINUITY / UNIQUENESS ERRORS 

132 UNIQUE NIBBLE CRC GENERATION CODE 
FAILURES 

133 UNIQUE WORD CRC GENERATION CODE 
FAILURES 

134 Sr ea | ae SYNDRONE DECODE 
FAILURE. FAILURE TO MENT 
EXPECTED FAILING. BIT(S) 

135 CORRECTABLE ERROR SYNDRONE DECODE 
FAILURE. UNEXPECTED BIT(S) FOUND 
COMPLIMENTED 

136 ECH OR UNC BIT NOT SET DURING READS 
WITH ECC ERRORS IN CHANNEL > 35 

137 ERROR CORRECTION WAS NOT tnt Si 
DURING UNCORRECTABLE ECC ERRORS. 
UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED 

138 ECH OR UNC BIT NOT SET WHEN MULTIPLE 
CHANNEL ERRORS WERE READ 

139 ERROR CORRECTION WAS NOT INHIBITED 


DURING UNCORRECTABLE ECC ER 
UNEXPECTED BIT(S) WERE FOUND COMPLIMENTED 


140 ECC FAILURE TO DETECT AND CORRECT 
SINGLE BIT CHANNEL ERRORS 
141 ECC FAILURE TO DETECT AND CORRECT 


MULTIPLE BIT CHANNEL ERRORS 
4.0 PERFORMANCE AND PROGRESS REPORTS 
AT THE END OF or tn PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOT Pea he REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “‘EOP’* Sw TCH H CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 
5.0 DEVICE INFORMATION TABLES 


HARDWARE DEFAULT PTABLE 


-WORD 176400 3RH ADDRESS 

-WORD 70 RH TYPE 

-WORD 204 RH VECTOR ADDRESS 

WORD 16. NUMBER OF ARRAY MODULES 


CZMLACO ML-11 LOGIC TEST 
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WORD 1 31S DRVE OPTION ML11A, 1=16K, 0=64K 
-WORD Q 3ML-11_ DRIVE NUMBE 
WORD 0 :I1S PARITY DISABLED, 1=YES, O=NO 


SOFTWARE DEFAULT TABLE 

PRSN: .WORD 1 sPRINT SERIAL NUMBER, 1=YES, 
6.0 TEST SUMMARIES 
TST1. MASS BUS READY 

TEST THE RH CONTROLLER FOR EXISTANCE 
TST2. MASS BUS HANDSHAKE 

TEST MASS BUS ---> UNIBUS COMMUNICATIONS 
TST3. DRIVE PRESENT 

TEST TO SEE IF THE DRIVE UNDER TEST EXIST. 
TST4. DRIVE SELECTION 

SEE IF SELECTING OTHER DRIVES ON RH EFFECTS DRIVE UNDER TEST. 
TST5. READ WRITE REGISTER ONE'S ZERO'S TEST 

TEST REGISTERS READ WRITE CAPABILITY AND UNIQUENESS 
TST6. READ WRITE REGISTER SHIFTING ONE'S AND ZEROES 

TEST REGISTERS FOR UNIQUE DATA BITS. 
TST7. REGISTER INITIALIZATION 

TEST REGISTERS FOR CORRECT INIT DATA. 
TST8 REGISTER SELECTION TEST 

TEST FOR UNIQUE REGISTER SELECTION 
TST9. PRINT DRIVE SERIAL NUMBER 


PRINT THE CONTENTS OF MLSN IF THE SOFTWARE QUESTION WAS 
ANSWERED ‘YES'. 


TST10. C-BUS PARITY 


TEST IF DRIVE CAN DETECT BAD PARITY ON C=BUS AND GENERATE 
GOOD PARITY. 


TST11. MEMORY SIZING 


SEE IF MEMORY SIZING LOGIC DETECTS AND RECORD CORRECT NUMBER 
OF ARRAYS PRESENT. 


0=NO 


SEQ 0019 


CZMLACO ML-11 LOGIC TEST 
USER DOCUMENTATION 


TST12. 


TST13. 


TST14. 


TST15. 


TST16. 


TST17. 


TST18. 


TST19. 


TST20. 


TST21. 


TST22. 


TST23. 


TST24. 


H 
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NO-OP FUNCTION 
SEE IF A NO-OP FUNCTION CAN BE EXECUTED. 
WRITE CHECK FUNCTION 
SEE IF A WRITE CHECK FUNCTION CAUSES THE DRIVE TO HANG. 
WRITE FUNCTION 
SEE IF A WRITE FUNCTION CAUSES THE DRIVE TO HANG. 
READ FUNCTION 
SEE IF A READ FUNCTION CAUSES THE DRIVE TO HANG. 
CLEAR FUNCTION 
SEE IF A CLEAR FUNCTION CAN BE EXECUTED. 
DIAGNOSTIC REGISTER READ WRITE 
TEST THE DIAGNOSTIC REGISTERS FOR 
INITIALIZATION sy Sh gh Loge 
COMPOSITE ERROR BIT TEST 
SEE IF EACH INDIVIDUAL ERROR BIT IN MLER CAUSES A COMPOSITE 


ATA BIT 

TEST IF THE ATA BIT CAN BE SET AND CLEARED. 

SEARCH FUNCTION 

ae IF A SEARCH FUNCTION CAN BE EXECUTED ON ALL PRESENT ARRA- 


READ IN PRESET 
TEST IF A READ IN PRESET FUNCTION SETS VOL V Hh. 
ILLEGAL FUNCTION 


SEE _IF WRITING AN ILLEGAL FUNCTION TO CS1 CAN BE DETECTED AND 
THAT A TRANSFER IS NOT INITIATED. 


REGISTER MODIFICATION REFUSED 

TEST TO SEE IF WRITING TO SPECIFIC REGISTERS ARE ABORTED 
WHILE THE DRIVE IS ACTIVE. SEE IF WRITING TO NON-SPECIFIC 
REGISTERS ARE ALLOWED WHILE DRIVE IS ACTIVE. 


INITIAL PROM TEST 
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TEST PROMS FOR EXISTENCE. 
TST25. PROM ‘OR’ FUNCTION TEST 
TEST THE PROM DATA ORING FUNC 
TST26. UV ERROR TEST 
1 ceca OF UV ERR PROMS TO DETECT ALL POSSIBLE CHECK SUM 


TST27. INITIAL ARRAY TEST 
TEST ARRAY TIMING AND CONTROLFOR EXISTENCE. 
TST28. PROM SELECTION TEST 
TEST FOR UNIQUE PROM SELECTION. 
TST29. READ WRITE MEMORY ARRAY WITH PROM DATA (DIAG MODE) 
SEE IF MEMORY CAN BE WRITTEN AND READ. 
ALSO FIND ERROR FREE BLOCK OF MEMORY FOR FUTURE TESTS. 
TST30. REFRESH TIMING 
TEST TO SEE IF MEMORY CAN BE REFRESHED. 


TST31. ADDRESS COUNTER 


TEST THE ADDRESS COUNTER FOR ABILITY TO COUNT THROUGH ALL 
POSSIBLE MEMORY ADDRESSES. 


TST32. ARRAY MODULE SELECTION 

TEST FOR UNIQUE ARRAY MODULE SELECTION 
TST33. SEQUENCER EXISTENCE TEST 

TEST TO SEE IF BASIC SEQUENCER TIMING EXISTS. 
TST34. SYNC DATA BUS CONTINUITY/WRITE PATH 


TEST SYNCHRONOUS DATA BUS WRITE PATH FOR CONTINUITY BY READ~ 
ING WRITING ONE'S AND ZERO'S. 


TST35. SYNC DATA BUS CONTINUITY/READ PATH 


TEST SYNCHRONOUS DATA BUS READ PATH FOR CONTINUITY BY READING 
WRITING ONE'S AND ZEROES. 


TST36. RAM-BUS ADDRESS COUNTER/WRITE PATH 
TEST ABILITY OF THE RAM-BUS ADDRESS COUNTERS TO LOAD/UNLOAD 


SEQ 0021 
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TST37. 


TST38. 


TST39. 


TST40. 


TST41. 


TST42. 


TST43. 


TST44. 


TST45. 


TST46. 


TST47. 


TST48. 
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THE SKIP DURING WRITE FUNCTIONS. 
RAM BUS ADRS COUNTER/READ PATH 


TEST ABILITY OF RAM/BUS ADRS COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING READ FUNCTIONS. 


SYNC DATA BUS BIT UNIQUENESS/WRITE PATH 


TEST SYNCHRONOUS DATA BUS FOR DATA BIT gh aoe BY WRITING 
SHIFTING PATTERNS OF ONE'S AND ZERO’S TO THE M 


SYNC DAT BUS BIT UNIQUENESS/READ PATH 


TEST SYNCHRONOUS DATA BUS READ PATH FOR DATA BIT UNIQUENESS 
BY WRITING SHIFTING PATTERNS OF ONES AND ZEROES TO THE 


ARRAY ADDRESS MUX 
TEST FOR UNIQUE ROW AND COLUMN ADDRESSING 
NIBBLE OFFSET 


TEST NIBBLE OFFSET COUNTERS TO COUNT TO 14 NIBBLE DATA TO BE 
SHIFTED ON DETECTION OF BAD NIBBLES. 


CS1 FUNCTION ABORT 
SEE IF A CLASS ‘B' ERROR ABORTS A FUNCTION WHILE IN PROGRESS. 


SEE IF A_CLASS'A* ERROR IS DETECTED BUT FUNCTION IS ALLOWED 
TO COMPLETE. 


LAST BLOCK INDICATOR 


TEST THE LAST BLOCK INDICATOR BIT FOR NOT SETTING BELOW THE 
LAST AND SETTING AND CLRING AT THE LAST BLOCK 


INVALID ADDRESS TEST 

FOR ALL ILLEGAL DSA ADDRESSES READ THE IAE BIT SET. 

ADDRESS OVERFLOW 

TEST FOR AOE ON TRANSFERS WHICH EXTEND BEYOND THE LAST BLOCK. 
SYNC BUS PARITY 

TEST FOR BAD PARITY DETECTION AND GOOD PARITY GENERATION. 
WRITE READ MEMORY ARRAY (M-BUS BLOCK MODE) 

WRITE READ MEMORY VIA M-BUS BLOCK WITH MINIMUM OVERHEAD 


TEST THE CRC DATA BUS BETWEEN THE CRC 
GENERATORS AND THE CRC/MBUS DATA 


SEQ 0022 


L$ 
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TSTS2. 









TST53. 





TST54. 


TST55. 


TSTS6. 


TST57. 


TST58. 


TST59. 


TST60. 
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MUX FOR CONTINUITY AND BIT UNIQUENESS 


TEST CRC_CODES GENERATED FOR ONE CRC 
GROUP (52 UNIQUE NIBBLES) 


TEST CRC CODES GENERATED FOR ONE 
CRC GROUP (15 UNIBUS WORDS) 


TEST SYNDRONE DECODE AND ERROR 
CORRECTION TO DECODE AND aa 
SINGLE BIT AND MULTIPLE BIT 
CHANNEL ERRORS 


TEST SYNDRONE DECODE TO DETECT BuT 
—- UNCORRECTABLE CHANNEL 


TEST SYNDRONE DECODE TO DETECT BUT NOT 
Sa SY UNCORRECTABLE MULTIPLE CHANNEL 





2 SYNDRONE GENERATION, SYNDRONE DECODE 


ag CORRECTION FOR SIGLE BIT CHANNEL 


TEST SYNDRONE GENERATION, SYNDRONE DECODE 
AND ERROR CORRECTION FOR MULTIPLE BIT 
CHANNEL ERRORS 


TEST THE ECC ERROR REGISTER FOR 
CLEARING AND LATCHING OF ECC ERROR 
INFORMATION ON DETECTION OF ECC ERRORS 


TEST THE ECC ERROR LOCATION REGISTER FOR 
Papen ances BIT UNIQUENESS, CLEARING AND 


VIA ECC_DM AND ECC_DIS TEST THE ECH 
BIT FOR’SETTING AND NOT SETTING 


VIA ECC_EN, ECC_DM AND ECC_DIS TEST 
THE DCK"BIT FOR"SETTING AND NOT SETTING 


FROM DATA TEST 
VERIFY THAT CHECK SUM VALUES FOR ALL PROM LOCATIONS ARE CORRECT. 
































2 
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PROGRAM HEADER AND TABLES SEQ 0024 L$ 
} .SBTTL PROGRAM HEADER AND TABLES 
5 000000 .ENABL ABS,AMA 
36 002000 : = 2000 
39 002000 BGNMOD 
3 “ 
42 : THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
43 + THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
45 oO » 
46 002000 POINTER ALL 
64 
65 002000 HEADER CZMLA,C,0,1800.,0 
77 : 
8 : NAMES OF DEVICES SUPPORTED BY THIS PROGRAM 
80 002122 ° DEVTYP <ML-11> 
82 
83 
84 3 
85 ; TEST DESCRIPTION 
87 002130 . DESCRIPT <ML-11 LOGIC TEST> 
89 
90 
92 : THE GLOBAL ERROR TABLE (INFORMATION 
93 : USED IN A CALL TO THE MACRO '‘ERROR'’) 
95 P 
96 002152 ERRTBL 
152 000000 ERRTYP:: .WORD 0 
002154 000000 ERRNBR: : “WORD 0 
002156 000000 ERRMSG: : “WORD 0 
002160 000000 ERRBLK: : “WORD 0 
4 
j++ 
99 : THE DISPATCH TABLE CONTAINS THE STARTING ADDRES OF EACH TEST. 
100 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
102 . 
103 002162 DISPATCH 60 
104 
111 
112 p++ 
113 > THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
114 THE TEST-DEVICE PARAMETERS. THE § RUCTURE OF THIS TABLE 
115 IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
116 ; AND IS USED AS A ‘TEMPLATE’: For’ BUIEDING THE P=TABLES. 
118 ‘ 


mM 2 
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PROGRAM HE 


ADER AND TABLES ; SEQ 0025 
; 48 9 002354 BGNHW DFPTBL 
OO eae 176400 «WORD 176400 3RH ADDRESS 
é 000070 -WORD 70 RH TYPE 
002362 000204 ~WORD 204 :RH VECTOR ADDRESS 
002364 000020 -WORD 16. ER OF ARRAY MODULES 
002366 000001 -WORD 1 HIS DRVE OPTION ML11A, 1=16K, 0=64K 
002370 000000 -WORD 0 3ML-11 DRIVE NUMBER 
002372 000000 WORD 0 :1S PARITY DISABLED, 1=VYES, O=NO 
002374 ENDHW 


" THE DEFAULT SOFTWARE P=-TABLE CONTAINS VARIOUS DATA USED BY THE 
; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET 
: ne ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR AT RUN 


002374 BGNSW = SFPTBL 
002376 000001 PRSN: .WORD 1 PRINT SERIAL NUMBER, 1=YES, O0=NO 
002490 ENDSW 


ee ek te ed ce ed ed ee ed eed ed ed 


ADADOUIUE ERR OW wags 
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— 


MORIN foTnonononopenefororys 
Wrenrornrronnn— —"o 
NNQOUESWN—OOONOAUO 


& 


274 002716 
275 
284 
285 002720 
286 
287 
288 002726 
289 


290 
297 002726 
98 


—N— On —r 


120 


se 
M—Nr—fr 
WEWUOWO 


122 


N 
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SOnoOooo 


111 


++ 
THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
of ore dh A BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE  OPERAT OR. 


BGNHRD 


,0,0,17 
SGH2.2.0,77,11,70,YES 
GPRMD MSGH3,4.0.777,0,777,YES 
MSGH4.6.D.77,1,16.,¥YES 
GPRML MSGH5.10,1,YES 
MSGH6,12.0.7,0,7,YES 
SGH7.14.1.YES 
ENDHRD 
MSGH1: .ASCIZ /RH ADDRESS?/_ 
MSGH2: .ASCIZ /IS RH AN °70° OR '112/ 
MSGH3: .ASCIZ /RH VECTOR ADDRESS?/ 
MSGH4: .ASCIZ /NUMBER OF ARRAY MODULES?/ 
MSGHS: .ASCIZ /IS DRIVE OPTION AN ML11A2/ 
MSGH6: .ASCIZ /ML-11 DRIVE NUMBER?/ 
MSGH?: -ASCI2 71S PARITY DISABLED?/ 


ptt 
; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
:_ WITH THE OPERATOR. 


BGNSFT 
GPRML MSGS1,0,1,YES 
- EVEN 
ENDSFT 


MSGS1: ty /PRINT SERIAL NO.?/ zPRINT DRIVE SERJAL NUMBER? 


SEQ 0026 


cz! 





8 3 
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CZMLACO ML-11 LOGIC TEST 
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:" THIS TABLE IS _USED BY THE _— SERVICES 
; TO PROTECT THE LOAD MEDIA 





BGNPROT 

-1 sOFFSET INTO P=TABLE FOR CSR ADDRESS 

-1 [OFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
-1 [OFFSET INTO P=TABLE FOR DRIVE NUMBER 
ENDPROT 

".BLKW 20 


ENDMOD 





ro 







3ML3 


CONAU—OOONAULS WN OOOO 
Se Se Ge Ge Ge Ge Ge Ge Ge Be Se ee 
—_— 
= 
‘Oo 
on 


NONPONYNINNY 2 SS Se 


32 004152 000207 


004154 004767 
51 004160 104425 
004162 000207 
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1=May-1981 10: 
1-May-1981 10:4 


MODULE ML3 = 
BEGIN 


REQUIRE "BLSMAC.REQ'; 


'¢ 
! THE REPORT CODING SECTION CONTAINS THE 
"PRINTS'* CALLS THAT GENERATE STATISTICAL REPORTS. 


RETURN; 
ENDRPT; 
-SBTTL LRPT 
LRPT: RTS PC 
; Routine Size: 1 word 
; Maximum stack depth per invocation: 
.SBTTL LS$RPT 
177772 LSRPT:: JSR PC,LRPT 
TRAP 25 
RTS PC 


; Routine Size: 4 words | ; 
; Maximum stack depth per invocation: 


74 


0 words 


0 words 


9: 
9: 









9 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>ML3.BL1.1 (1) 


SEQ 0028 


1493 


1501 


dD 3 
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SEQ 0029 
64 
65 
66 ; 1503 
67 ; 1504 
68 ; 1505 "THE AUTODROP CODE 1s EXECUTED tt AFTER THE INITIALIZE 
69 ; 1506 | CODE IF THE ‘ADR’ FLAG WAS SET. THE UNIT(S) UNDER TEST 
70 ; 1507 i CHECKED TO SEE IF THEY WILL RESPOND. UP MOSE T HAT DON'T at IMMEDIATELY 
a} PF} 1308 DROPPED FROM TESTING. ISSUE A "DODU'’ FOR THOSE THAT DON'T RESPOND. 
73: 1510 | 
74; 1511 BGNAUTO; 
> 8 1512 RETURN; 
& 3 1513 ENDAUTO; 
81 -SBTTL LAUTO 
HY 004164 000207 LAUTO: RTS PC 3 1502 
87 3; Routine Size: 1 word 
4 + Maximum stack depth per invocation: 0 words 
94 
98 
99 -SBTTL LS$AUTO 
103 004166 004767 177772 LSAUTO: :JSR PC,LAUTO 3 1512 
104 004172 104461 TRAP 61 
4 004174 000207 RTS PC 
107 ; Routine Size: 4 words 
i” > Maximum stack depth per invocation: 0 words 
114; 1514 


C 


ee ee ee ee ee ee ee 
WANIWNIRINPININN NPN a oe 
AOOUFWN 320 0M 


SSIS URLUVSSFERSy 


7 
8 
3 
4 
8 
9 
3 
4 
5 
6 
7 
8 
3 
64 
65 
66 
67 
68 
9 
0 


sk ee ed ng ed ed od od 8 od 


NO 


iy ML-11 LOGIC TEST 
LSAUT 


004767 
104453 
000207 






a 
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246 TOPS-20 Bliss-16 V2(212) 
:37 PA:<NEALE>ML3.8L1.1 (1) 


14 
! THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. 


BGNDU; 
RETURN; 
ENDDU; 
-SBTTL LDU 
LDU: RTS PC 3 1513 
; Routine Size: 1 word 
; Maximum stack depth per invocation: 0 words 
-SBTTL LS$DU 
177772 L$DU:: JSR PC,LDU 3 1521 
TRAP 53 
RTS PC 


; Routine Size: 4 words 
; Maximum stack depth per invocation: 0 words 


'+ 

: THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
' TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 





ren 
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7 3ML3 
173; 
174 


2 

COCO NININIA 
NWNONOW 
Sete te ee 


004210 


NONID 
ALSFSSSE 


Ss 
oS 
3 


MPNPPoNnnrNVNrny 
S& 


rr 

NNR 3 a 

USWOONAWNO 
s. 


226 


BGNAU; 
RETURN; 


ENDAU; 


177772 


END 
ELUDOM 


F 
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3 


11-May-1981 1934338 
11-May-1981 10:49:3 


~SBTTL LAU 
LAU: RTS PC 
; Routine Size: 1 word 


3; Maximum stack depth per invocation: 


-SBTTL LS$AU 
LSAU:: JSR PC,LAU 
TRAP 52 
RTS PC 
3; Routine Size: 4 words 


3; Maximum stack depth per invocation: 


0 words 


0 words 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML3.BL1.1 (1) 


SEQ 0031 uf 


1522 


1531 
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SEQ 0032 

8 3ML3 1-May-1981 1 10:48746 TOPS 
9 ; 11-May-1981 10:49:3 PA:< 

231 

Seg 

23 ; Size 20 code + 0 data words 

234 3 Run Time 00:03.6 

235 3; Elapsed Time: 00:12.2 

236 3 came A Used: 24 pages 

$30 3 Compilation comp eed 


H_ 3 
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SEQ 0033 

6 :ML4 14-May-1981 13:48:54  TOPS=-20 Bliss-16 v2(212) 
g : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BLI.7 (1) 
9; 0001 MODULE ML4 = 

10 ; 0002 BEGIN 

33 0003 ! 

12: 0004 | PRETTY BLF COMMANDS 

13; 0005 _! 

14: 0006 '<BLF/NOERROR> 

15 : 0007 ‘'<BLF/LOWERCASE_KEY> 

16: 0008} 

17 : 0009 |! REQUIRE 

18 : 0010 i 

19: 0011 

20 : bore require 'BLSMAC.REQ';: 'BLISS INTERFACE MODULE 

22; 1503! 

23: 1504 | CONSTANT LITERALS 

24 : 1505: 

25 3 1506 

26 ; 1507 Literal 

27 : 1508 = 'DATA BIT OF ONE 

28 : 1509 ONES = $0'177777", iDATA PATTERN OF ONES 

29 : 1510 ZERO = 0, iDATA BIT 

30 : 1511 ZEROES = 0, iDATA PATTERN OF ZEROES 

31: 1512 NUM_OF_REG = 22, iNUMBER OF BLOCKS IN GLOBAL STORAGE ‘ML-REG' 
32 : 1313 FIECD_S1Z = 4, iFIELD SIZ FOR FIELD DECLARATIONS ‘WORD_MAP* 
34; 1515 iMLCS1 FUNCTION CODES 

35 : 1516 i 

36 : 1517 NOOP = 1, 'NOOP FUNCTION 

37 : 1518 DRV_CLR = %o'11° iDRIVE CLEAR FUNCTION 

38 : 1519 RD_IN PRE = %o'21", iREAD IN PRESET FUNCTION 

39 : 1520 SEARCA = 0°31", iSEARCH FUNCTION 

40 : 1521 WRT_CHK = 20°51, iWRITE CHECK FUNCTION 

41; 1522 write = %0'61', ‘WRITE FUNCTION 

42 : 1323 read = %0'71', iREAD FUNCTION 

44: 1525 i DELAY ARGUMENTS 

45 : 1526 i 

46: 1527 ONE_US = 1 'ONE MICRO SECOND DELAY 

47: 1528 FRTY_US = 40 iFORTY MICRO SECOND DELAY 

48 : 1369 TWO_TH_US = 2000; iTWO THOUSAND MICRO SECOND DELAY 

50 : 1531! 

51: 1332 i FIELD DECLARATIONS 

52; 1533 =! 

53; 1534 

54: 1535 fieid 

3 : 1336 WORD_MAP = 'MAPS GLOBAL STORAGE "ML_REG' INTO REGISTER PERSONALITIES 

Py s 

57 : 1538 REGISTER_ADD = £0, 0, 16, 0), ‘REGISTERS ADDRESS 

58 : 1539 ORCE_HI7= Ct. . 16, 02, iREGISTERS FORCED HI BITS 

59 : 1540 FORCE-LO = : 0. 16. 03 iREGISTERS FORCED LO BITS 

60 : 1541 DONT_TARE = C3, 6, 16, 05 IREGISTERS IGNORE BITS 


3 
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SEQ 0034 L$ 
62 3ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 vg (22) 
63 ; 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1I.7 (1) 
64 
65 ; 1366 tes, 
66 : 1343 NIB_MAP = 'MAPS OWN STORAGE NIB_SAVE INTO TEN FOUR BIT NIBBLES 
H se 
68 : 1545 NIB_O = CO, 0, 4, 0), 'NIBBLE 0 BITS <0:3> 
69 : 1546 NIB-1 = C0, 4, 4, 0J, iINIBBLE 1 BITS <4:7> 
70 ; 1547 NIB-2 = (£0, 8, 4, 0] iINIBBLE 2 BITS <8:11> 
71 : 1548 NIB_3 = C0, 12, 4, 03, iINIBBLE 3 BITS <12:15> 
72 ; 1549 NIB-4 = (1, 0, 4, 0], INIBBLE 4 BITS <16:19> 
73; 1550 NIB-5 = (1, 4, 4, 0]. INIBBLE 5 BITS <20:23> 
7% ; 1551 NIB~6 = (1. 8, 4, 0] in BITS <24:27> 
75: 1552 NIB-7 = (1, 12, 4, 04, INIBBLE 7 BITS <28:31> 
76 ; 1553 NIB-8 = C2, 8, 4, 0] iNIBBLE 8 BITS <32:35> 
77 : 1554 NIB-9 = C2, 12, 3, 03 INIBBLE 9 BITS <36:39> 
78 ; 1555 tes, 
79 ; 1556 DT1_FLD = 
80 ; 1557 set 
81: 1558 £0_5 = C0. 0. 6. 01, 
82 ; 1559 cO-5 = [0, 6, 6,0] 
&3 : 1560 CRU_DATA = (0, 13, 1. 0), 
84; 1561 SGL-DATA = £0, 14, 1. 0J. 
85 : 1562 UNC-DATA = [0, 15, 1. OJ. 
86 ; 1563 EE_BATA = (0, 0, 16, 0J, 
87 : 1564 AO-5 = C1, 0, 6, OJ, 
88 ; 1565 PO-5 = (1, 6, 6, 0J 
89 ; 1566 ECR_DATA = Ci, i2, 1, 0]. 
90 : 1567 0.5 = (2, 0, 6, 63 
91 ; 1568 es; 
92: 1569 
93 : 1570 !<BLF/PAGE> 


3 
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95 sML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
38 : 14-May-1987 13:05:08 PA:<NEALE>ML4.8L1.7 (2) 
98 ; 1571! 
99 ; 132¢ ' OWN STORAGE 
100 ; 1573! 
101 ; 1574 
102 ; 1575 own 
103 ; 1576 NIB_SAVE : block (3] field (NIB_MAP) volatile 
104 ; 1577 ‘STORAGE LOCATION TO SAVE NIBBLE DATA READ DURING DIAG MODE 
105 ; 1578 HW_OR_TBL : vector [127] volatile, 'STORES HARDWARE ORED PROM DATA DURING PROM OR FUNC TEST 
106 ; 1579 PTBL_PTR : volatile 'HARDWARE P-TABLE POINTER 
107 : 1580 oP ARR : volatile, ‘OPERATORS NUMBER OF ARRAY INPUTTED 
108 ; 1581 ARR_INT : volatile, ‘ARRAY SELECTION INCREMENT VALUE 
109 ; 1582 GOOB BLK : volatile, 'GOOD BLOCK ADRS 
110 ; 1583 PAR_BIS : volatile, ‘PARITY DISABLE FLAG 
111; 1584 CHIP_SIZ : volatile, ‘MOS 
112; 1585 LST_BLK : volatile, 'LAST ADDRESSABLE BLOCK 
113; 1586 ARR_16 : volatile, 'MAX NUMBER OF ARRAY ALLOWED 
114 ; 1587 LST-ARR : volatile 'LAST ADDRESSABLE ARRAY 
115 ; 1588 10 BUF : vector (256) volatile, '. ‘INPUT OUTPUT BUFFER 
116: 1589 STR_OFF : vector [10, byte) volatile, 'STACK OFFSET STORAGE LOCATION 
117 ; 1590 stack : vector (198, by ted volatile, 'STACK OF 198 BYTE LOCATIONS 
118 ; 1591 PD_TEMP : bitvector [16] volatile, 'PROM DATA STORAGE LOCATION DURING DIAG MODES 
119 : 1592 W_C_SIZE : volatile, ‘STORES WORD COUNT FOR 16K OR 64K XFERS 
120 ; 1593 RAS-INC : volatile, 'ROW ADRS STROBE INCREMENT 
121; 1594 WT_BATA : volatile, 'SAVE WRITE DATA DURING REG READ WRITE TEST 
122 ; 1595 RD-DATA : volatile 'SAVE READ DATA DURING REG READ WRITE TEST 
123 ; 1596 DRIVE TYPE : volatile, 'DRIVE TYPE STORAGE LOCATION 
124 ; 1597 LST_DOT_REG : volatile, 'LAST ML-11 REG INDEX FOR THIS TYPE RH CONTROLLER 
125 ; 1598 REG_INIT_FLG : initial (0) volatile, 'FLAG TO DETECT DOING REG INIT TEST 
126 ; 1599 CAL : Volatile, ‘CALCULATED CRC STORAGE LOCATI 
127 : 1600 “CAL : volatile, 'CALCULATED CRC STORAGE LOCATION 
128 ; 1601 P-CAL : volatile, ‘CALCULATED CRC STORAGE LOCATION 
129 ;: 1602 A_GEN : volatile, 'GENERATED CRC STORAGE LOCATION 
130 ; 1603 B"GEN : volatile. 'GENERATED CRC STORAGE LOCATION 
3) ; 160% , PIGEN : volatile, 'GENERATED CRC STORAGE LOCATION 
13 ; ions : <BLF /NOF ORMAT> 
135 ; 1608 ML_REG: blockvector CNUM_OF_REG,FIELD_SIZ] field(WORD_MAP) !ML11 REGISTERS 
136 ; 1609 preset ( ‘STRUCTURE TO STORE INDIVIDULA 
137 ; 1610 'REGISTER PERSONALITIES 
138 ; 1611 ‘ie. REGISTER ADDRESSES 
139 ;: 1612 'BITS FORCED HIGH 
140 ; 1613 'BITS FORCED LOW 
141 ; 1614 ‘READ ONLY BITS 
166 z 191? CO,FORCE_HI] = %0°004000', 'MLCS1 
144 ; 1617 £0 FORCE LO) = %0'173701', 
12 5 1618 0,DONT_CARE] = %0°160200', 
147 ; 1620 5. FORCE_LO = Zo’ 3077? . 'MLDS 
148 ; 1621 5 FORCE HI = %o' 49600 F 
149 ;: 1622 5,DONT_CAREJ = %0'000100', 
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CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 58 
LSAU SEQ 0039 
11 ;ML4 14-May-1981 13:69:36 TOPS=-20 Bliss-16 V2(212) 
1g : 14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (3) 
14; 1771 =~! 
15 ; ae EQUALS; 
16 3 177 : 
17 ; 1774 |! MACRO DEFINITIONS 
18 ; 1775 =! 
19; 1776 
320 ; 1777 macro 
321 ; 1778 =! 
$5 3 1779 ! REGISTER NAMES: 
+ 1780 ! 
324; M 1781 MLCS1 = 
$52 3 a 178s ML Yr, CO,REGISTER_ADDJZ, 'CONTROL AND STATUS REGISTER 1 
4 : " ree -ML_REG C1 »REGISTER_ADDJ2, 'WORD COUNT REGISTER 
4 ; " 170s MAL 1* [2,REGISTER_ADDJZ, 'UNIBUS ADDRESS REGISTER 
335 : " 1738 me [3,REGISTER_ADDI%, !DESIRED ADDRESS REGISTER 
$37 : . 1 ML 1? C4,REGISTER_ADDJ2Z, 'CONTROL AND STATUS REGISTER 2 
332 ; . Ha ML 1 C5,REGISTER_ADDJ2, 'DRIVE STATUS REGISTER 
$35 : " fa ML Wt: C6,REGISTER_ADDJ2Z, ‘ERROR REGISTER 
44 : 8 1798 ML 18 C7,REGISTER_ADDJ2, ‘ATTENTION SUMMARY REGISTER 
341 : 1798 -ML_REG [8,REGISTER_ADDJ2, 'LOOK AHEAD REGISTER 
342 ; M 1799 ALPA = 
sz 3 n 1900 mee C8 ,REGISTER_ADDIJZ, 'PROM ADDRESS REGISTER 
<2 ; - 1306 te | C9,REGISTER_ADDJ2, !DATA BUFFER REGISTER 
347 : 1804 -ML_REG [10,REGISTER_ADDJ2, 'MAINTENANCE REGISTER 
348 ; M 1805 ALDT = 
349 ; 1806 -ML_REG (11,REGISTER_ADDJ2, 'DRIVE TYPE REGISTER 
320 4 1" 1808 ake [12 REGISTER_ADDJ% 'SERIAL NUMBER REGISTER 
352 ; M1809 ° PLET= “ ’ ; 
$22 3 1810 ML REG C13,REGISTER_ADDJ2, 'ECC CRC WORD REGISTER 1 
54; M 1811 ALE2 = 
$22 : . Hi ML REG (14,REGISTER_ADDJ2, 'ECC CRC WORD REGISTER 2 
$5 3 - oie ML RES C15,REGISTER_ADDJ2, 'DATA DIAGNOSTIC REGISTER 1 
; . 1316 me ee C16,REGISTER_ADDJ2, 'DATA DIAGNOSTIC REGISTER 2 
1 : 1818 -ML_REG (17, REGISTER ADDIJz, 'ECC ERROR REGISTER 
206 ; M 1819 ALEL = 7 
36 : . 1860 ia C18,REGISTER_ADDJ2, 'ECC ERROR LCOATION REGISTER 
33 : 1822 -ML_REG (19,REGISTER_ADDJ2, ‘PROM DATA REGISTER 


22 
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LSAU SEQ 0040 


7 5ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
: 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (3) 


369 

370 ; 1823 MLBAE = 

ra) é a 1sse ML res C20,REGISTER_ADDJ2Z, 'BUS ADDRESS EXTENSION REGISTER 
2 ; 1836 ,ML_REG C21,REGISTER_ADDJ2, ‘CONTROL AND STATUS REGISTER 3 
375 ; 1828 ' BIT ASSIGNMENTS: 
376 : 1829 ! 

377 : M 1830 SC = 

378 ;: 1831 (MLCS1)<15,1>2%, 'MLCS1 BIT ASSIGNMENTS 
379 ; M 1832 RE = 

380 ; 1833 (MLCS1)<14,1>%, 
381 ; M 1834 MCPE = 

382 ; 1835 (MLCS1)<13,1>2%, 
383 ; M 1836 DVA = 

384 ;: 1837 (MLCS1)<11,1>%, 
385 ; M 1838 RDY = 

386 ; * 1839 (MLCS1)<7,1>%, 
387 ; M 1840 IE = 

388 ; 1841 (MLCS1)<6,1>%, 
389 : M 1842 = 

390 ; 1845 (MLCS1)<0,1>%, 
391 ;: M 1844 C= 
392 : 1845 (MLC51)<0,6>%, 
393: M 1846 DLT = 

394 ; 1847 (MLCS2)<15,1>%, 'MLCS2 BIT ASSIGNMENTS 
395 ;: M 1848 WCE = 

396 ; 1849 (MLCS2)<14,1>%, 
397 ;: M 1850 PE = 

398 : 1851 (MLCS2)<13,1>%, 
399 ;: M 1852 NED = 

400 ; 1853 (MLCS2)<12,1>%, 
401 ; M 1854 M= 

402 ; 1855 (MLCS2)<11,1>%, 
403 ; M 1856 PGE = 

404 ; 1857 (MLCS2)<10,1>%, 
405 ; M 1858 MXF = 

406 ; 1859 (MLCS2)<9,1>%, 
407 ; M 1860 PE = 

408 ; 1861 (MLCS2)<8,1>%, 
409 ; ™ 1306 Y= 

410 ; 186 (MLCS2)<7,1>%, 
411; M 1864 IRDY = 

412 ; 1865 (MLCS2)<6,1>%, 
413; M 1866 CLR = 

414; 1867 (MLCS2)<5,1>%, 
415; M 1868 PAT = 

416; 1869 (MLCS2)<4,1>%, 
417; M 1870 I = 

418 ; 1871 (MLCS2)<3,1>%, 
419 ; M 1376 V = 
420 ; 187 (MLCS23<0, 3>%, 
421; M 1874 ATTN = 
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(MLDS)<15 1%, 
(MLDS) 214,12, 
(MLDS) <12,1>%, 
(MLDS)<10, 1>%, 
PR = 
(MLDS)<B,1>%, 
(MLDS)<7,1>%, 
W = 
(MLDS) <6, 1>%, 
DCK = 
(MLER)<15,1>%, 
(MILER) <14, 123, 
(MLER)<13, 1>%, 
(LER) <10, 1%, 
(MLER)<9, 1>%, 
H_ERR = 
(MLERY<6,1>%, 
AR = 
(MLER) <5, 1>%. 
CPAR = 
(MLER) <3, 1>%, 
(MLER)<2,1>%, 
ILR = 
(MLER)<1, 12%, 
(MLER) <0, 1>%, 
ARR_TYP = 
(MLARI<10, 12%, 
(MLMRI<1175>%, 
REF MAR = 
(MLMRY<7, 1>%, 
RW = 
(MLMR)<6,1>%, 
PROM DIS = 
(MLMR) <3, 1>%, 
DAT_CLK = 
(MLMRI<4, 1>%, 
(MLMRI<3, 1>%. 


DCK EN = 
(MLMR) 22, 1>%, 
ECC_DIS = 


SEQ 0041 
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!'MLER BIT ASSIGNMENTS 


'MLMR BIT ASSIGNMENTS 
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(MLMR)<1,1>%, 
~ECC_DM = 
(MLMRY <0 1>%, 
(MLDT3<0, 1>%, 

CRC_A = 


(MLE1)<0,6>%, 
(MLE1)<8,652, 
CRC_B = 


(MLE2)<0,6>%, 
UNC_ERR = 
(MLEEY<15,1>2, 
(MLEEY<14,1>2%, 
CRC_ERR = 
(MLEEY<13,1>%, 
N_ERR = 
(MLEE)<0,6>2%, 
CHAN_IN_ERR = 
, (MLEE)<6,65%, 


; MISCELLANEOUS MACRO DEFINITIONS: 


" §N3 = 
(MLSN)<12, 42%, 
(MLSN)<8,4>%, 
(MLSN) <4 42%, 
(MLSN)<0,4>%, 

1S_SET = 

eql 1% 


IS_NOT_SET = 

eql 0%, 

’ HI = 

AECL. inden FORCE HII. 

ML_REGL. index, FORCE_LOJ2, 
IGNORE = 

BEL. tndon ONT _CARE IE, 
MLE2_MASK = 


ML_REGL14,DONT_CAREJ2, 


a eee EC  -  - -t—- 


4 


14-May=1 


981 13: 
14-May-1981 13 


$ TOPS-20 Bliss-16 wets 


54 2) 
:08 PA:<NEALE>ML4.BL1.7 (3) 


1 
3 


!'MLDT BIT ASSIGNMENTS 
'MLE1 BIT ASSIGNMENTS 


'MLE2 BIT ASSIGNMENTS 


'MLEE BIT ASSIGNMENTS 


!TEST IF BIT IS EQUAL 1 
!TEST IF BIT IS EQUAL 0 
tREADS REGISTERS FORCED HI BITS FROM PERSONALITY TABLE 
'READS REGISTERS FORCED LO BITS FROM PERSONALITY TABLE 
!READS REGISTERS DONT_CARE BITS FROM PERSONALITY TABLE 


'READS MLE2 DONT CARE MASK EITHER DATA DIAG OR ECC CIE REG 


SEQ 0042 


C2 
L$ 
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SEQ 0043 ug 
535 :ML4 14-May-1981 13: 48: 54  TOPS-20 Bliss-16 va (212) 
236 14-May-1981 13:05:08 | PA:<NEALEDMi4.BLI.7 (3) 
538 : m 1979 WRT_MASK = 
539 : M 1980 'GENERATE MASK DATA PATTERN USING REGISTER FORCE LO, HI AND IGNORE B 
540 ; 1981 IGNORE or ((not .LO) and (.HI or .TST_PAT))%, 
541 : M 1982 CLR_MBUS = 
542 : M 1983 'CLEAR MASS BUS RESTORE DRIVE NUMBER 
543 : 1984 CLR = ONE; ML _DUTR, 
544 : 1985 ore 7 SuNONYR Aree SET = EOC 1 
345 : 1986 '<BLF/SYNONYM IS—NOT_ SET = EOL a * > 
547 : 1988 i DIAGNOSTIC DATA REGISTER MACROS 
548 : 1989 i 
549 ; mM 1990 RD_LNG_WRD = 
550 : M 1991 'READ DATA DIAG REGS INTO BIND LOCATIONS 
551; M 1992 D1_TEMP = .MLD1; 
552 : M 1993 Dg TEMP = “MLD2: 
553: 1994 TEMP = -MLEOS, 
554 : Mm 1995 WRT_LNG_WRD = 
555 ; M 1996 'LOADS DATA DIAG REG WITH CONTENTS OF BIND LOCATIONS 
556 ; mM 1997 MLD1 = .D1_TEMP; 
557 : M 1998 MLD2 = .D2~TEMP; 
558 : 1999 MLE2 = .E2-TEMPS, 
559 : m 2000 TIME_OUT_COOP = 
560 ; M 2001 'WAIT LOOP DIRING MASS BUS TRANSFER 
561 : M 2002 do 
562 : M 2003 0 
563 : 2004 until .DRY;%; 
564 : 2005 
565 ;: 2006 =! 
566 ; 2007 ! BIND DECLARATIONS 
567 : 2008 | 
568 : 2009 
569 ; 2010 bind 
570 : 2011 
xa 5 so! , en DATA MAPPING FORMATS 
573 : 2014 FMT_1 = uplit (Zasc iz’ RAEXPECTED: %O6%A READ: _ZO62NEN"), 
574 : 2015 FMT~2 = uplit (Zasciz'ZAGOOD DATA: %06%A BAD DATA: %06%A —-XOR: %06%NXN"), 
575 : 2016 FMT~3 = uplit (Zasciz*ZADRIVE SN  OGEN 
576 : 201 FMT~4 = uplit (Zasciz'ZABIT IN PaROR: Wee sWEN’ ‘. 
577 : 2018 FMT~5 = uplit (Zasciz’ZAGOOD NIB DATA: %02%A ‘BAD NIB DATA: %02%A = NIB POS: %04%N%N"), 
578 : 2019 FMT-6 = uplit (Zasciz‘ZANIB IN ERROR: ZD4ZNIN'), 
579 : 2020 FMT~7 = uplit (Zasciz'ZAFAILED AT: %06 
580 : 2021 FMT~8 = uplit (Zasciz’ZAREPLACE ARR MOD: %D2 2tNtN"), 
581 : 202 FMT-9 = uplit (Zasciz'ZAFAILED AT DSA: ZO62NEN*) 
582 : 202 FMT~10 = uplit (Zasciz'ZABIT<15:10>: %B6%A sass :0>: %B10%N%N"), 
583 : 2024 FMT~11 = uplit (Zasciz'ZAFAILING REG ADRS: %06 
584 ; 025 Pat 1¢ = uplit (Zasciz’ZAFAILING FUNC: ZO6ZNZN‘) 
585 : 26 FMT-13 = uplit (Zasciz* ZAOFF SET CNT FOR NIB : ine 2A = %D2 XNIN'), 
586 : 027 FMT~14 = uplit (Zasciz*ZAWROTE: %D Ne) 
587 : 028 FMT~15 = uplit (Zasciz'ZANIBBLES XFERED B FORE ERROR. 2D S$xN*) 
588 : 029 EMT-16 = uplit (Zasciz*ZAFAILING REG: %06%A GOOD DA ATA: L06%A bap DATA: %06%NZN'), 
589 ; 2030 FMT_17 = uplit (Zasciz'ZNZADIAGNOSING UNIT %01ZNZN‘) 
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591 :ML4 

28 : 

59 

594; 2031 
595 ;: sors 
596 ;: soe 

597 : 2034 
598 : 2035 
599 : 2036 
600 ; 2037 
601 ; 2038 
602 ; 2039 
603 ; 2040 
604 ; 2041 
605 ; sees 
606 ; 204 

607 ; 2044 
608 ; 2045 
609 ; 2046 
610 ; 2047 
611 ; 2048 
612 ;: 2049 
613; 2050 
614 ;: 2051 
615 ;: 2052 
616 ;: 2053 
617; 2054 
618 ; 2055 
619 ; 2056 
620 ; 2057 
621 ;: 2058 
622 ;: 2059 
623 ;: 2060 
624 ;: 2061 
625 ;: 2062 
626 ; 2063 
627 ; 2064 
628 ; 2065 
629 ; 2066 
630 ; 2067 
631; 2068 
632 ;: 2069 
633 ;: 2070 
634 ; 071 
635 ; 07. 

636 ; 07 

637 ; 074 
638 ; 075 
639 ; 076 
640 ; 2077 
641; 078 
642 ; 079 
645 ; 080 
644 ; 081 
645 ; 082 


F_ 4 
MACRO M1113 18=MAY-81 08:17 PAGE 63 


14-May-1981 1 
14-May-1981 1 105 :08 


FMT_18 = uplit (Zasciz*ZATIMED out DURING aus %02%A FUNCZNZN'), 
FMT_19 = uplit (Zasciz’ZACRC GEN 6ZA A ZA P: 2B62N‘) 
FMT_20 = uplit (Zasciz' ZAC CRC CAL = 6: 2B6%A 
FMT_21 = uplit (Zasciz'ZAFAILED ry eee rt) 
FMT_ § = uplit Clase ie"ZAFAILED A 2D2%A B 2D2ENZN') 
FMT_23 = uplit (Zasciz'ZAREG ISTEREsSEAADDRESSuS LACONTENTSINEN') 
FMT_24 = uplit (Zasciz'£S4T%S5% 06%S420162N" ) 
FMT_25 = uplit (Zasciz'%S42T2ZA:2%S206') 

, FMTI26 = uplit (Zasciz*SS42TRA: Et teiiee d. 

ERROR MESSAGE MAPPING FORMATS 
ONE_FMT = uplit (Zasciz'ZTIN'), 
TWOLFMT = uplit (Zasciz'ZT2T2N ). 
THR_FMT = uplit (Zasciz'27T272 F 
FOR_FMT = uplit (Zasciz’ZT2T2TZT2N ), 
FIVFMT = uplit (Zasciz’ 272727272 TN). 
SIX_FMT = uplit (Zasciz'ZTZ72727% ; 
SEV_FMT = uplit (Zasciz'ZT2T2TZTZT2T ). 
EIG_FMT = uplit (Zasciz'ZTZTATATATATATATIN ). 
NIN_LFMT = uplit (Zasciz*2T2ZTZT2TZTSTRTRTSTAN’) 
TEN-FMT = uplit (Zasciz'ST2RIZTLTRTRTLTRTRTZTIN’) t) 
ELV_FMT = uplit (Zasciz'Z/ZT2ZT2ZT2ZTATATATATATZTIN') 


| DIAGNOSTIC VOCABULARY 


1 
i WORDS 


] 

WRD_1 = uplit (Zasciz’ GO"), 

WRD_2 = uplit (Zasciz' 

WRD_3 = uplit (Zasciz' ) 

WRD_4 = uplit (Zasciz' 

WRD_5 = uplit (Zasciz' ) 

WRD_6 = uplit (Zasciz’ GOO 5, 
WRD_7 = uplit (Zasciz’ PARITY NOT’), 
WRD_8 = uplit (Zasciz’ GENERAT 
WRD_9 = uplit (Zasciz’ DE 

WRD_10 = uplit (Zasciz’ ERROR 
WRD_11 = uplit (Zasciz’ AFTER‘) 
WRD 16 = uplit (Zasciz* DURING’), 
WRD_15 = uplit (Zasciz’ AT") 
WRD_14 = uplit (Zasciz’ FAILURE"), 
WRD_15 = uplit (Zasciz’ ATA‘ 
WRD-16 = uplit (Zasciz) ATT "5, 
WRD_17 = uplit (Zasciz’ WRITING’), 
wees = uplit (Zasciz’ Vv"). 
WRD_19 = uplit (Zasciz*® FUNC’), 
WRD_20 = uplit (Zasciz’ TRE'), 
WRD_21 = uplit (Zasciz' *). 
WRD_ § = uplit (Zasciz’ EXCESSIVE"), 
WRD_25 = uplit (Zasciz* MBUS'), 


TOPS=20 Bliss-16 V2é 
PA:<NEALE>ML4.B8LI1. 


SEQ 0044 
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SEQ 0045 
647 :ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
8 3 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (3) 
650 ; 2083 D_24 = uplit (Zasciz’ DATA"), 
651 ; 2084 WRD_25 = uplit (Zasciz’ CONTINUITY"), 
652 ; 2085 WRD_ $ = uplit (Zasciz* AOE"), 
655 ; 2086 WRD_27 = uplit (Zasciz’ LBT') 
654 ; 2087 WRD-29 = uplit (Zasciz’ PREMATURLY'), 
655 ; 2088 WRD_30 = uplit (Zasciz’ dP 
656 ; 2089 WRD_31 = uplit (Zasciz’ INCREMENT’), 
657 ; 2090 WRD_. ¢ = uplit (Zasciz’ WITH"), 
658 ; 2091 WRD 3? = uplit (Zasciz’ UV’ 
659 ; 209 WRD-34 = uplit (Zasciz’ UNS'S 
660 ; 209 WRD-35 = uplit (Zasciz’ PROM'S, 
661 ; 209 WRD_36 = uplit (Zasciz’ OR’) 
662 ; 2095 WRD 3? = uplit (Zasciz’ SELECT"), 
663 ; WRD_38 = uplit (Zasciz' REG’ 
664 ; 209 WRD-39 = uplit (%asciz’ UNIQUE"), 
665 ; 2098 WRD_40 = uplit (Zasciz’ 14°), 
666 ; 2099 WRD_41 = uplit (Zasciz’ NIBBLE CNT"), 
667 ; 2100 WRD_42 = uplit (Zasciz' TR"), 
668 ; 2101 WRD_43 = uplit (Zasciz’ WHILE’), 
669 ; 2102 WRD_44 = uplit (Zasciz’ TRE"), 
670 ; 2103 WRD_45 = uplit (Zasciz’ INITIAL‘), 
671 ; 2104 WRD_46 = uplit (Zasciz’ OFFS ° 
672 ; 2105 WRD_47 = uplit (Zasciz’ C ° 
673: 2106 WRD_48 = uplit (Zasciz’ DELAY’), 
674 ; 2107 WRD_49 = uplit (Zasciz’ TESTS"), 
675 ; 2108 WRD_50 = uplit (Zasciz’ AD P 
676 ;: 2109 WRD_51 = uplit (Zasciz’ COUNTER"), 
677 ; 2110 WRD_52 = uplit (Zasciz’ REG'), 
678 ; 2111 WRD_53 = uplit (Zasciz’ TESTED") 
679 ; 2112 WRD_54 = uplit (Zasciz’' NIBBLE") 
680 ; 2113 WRD_55 = uplit (Zasciz’ ALL‘) 
681 ; 2114 WRD-56 = uplit (Zasciz’ TEST'S, 
682 ; 2115 WRD_57 = uplit (Zasciz’ XFERED') 
683 ; 2116 WRD_58 = uplit (Zasciz’ NIBBLES'S, 
684 ; 2117 WRD_59 = uplit (Zasciz’ SC‘) 
685 ; 2118 WRD-60 = uplit (Zasciz’ MULTIPLEXER"), 
686 ; 2119 WRD_61 = uplit (Zasciz’ UNEXPECTED’), 
687 ; 2120 WRD_62 = uplit (Zasciz’ NED‘), 
688 ; 2121 WRD_635 = uplit (Zasciz’ ILR'), 
689 ; $isg WRD_64 = uplit (Zasciz’ CRC"), 
690 ; $15 WRD_65 = uplit (Zasciz’ S$GL"), 
691 ; 2124 WRD_67 = uplit (Zasciz’ ECH') 
692 : 2125 WRD_68 = uplit (Zasciz'UNC') 
693 : 126 WRD-69 = uplit (Zasciz’ BIT'S 
694 ; 127 WRD-70 = uplit (Zasciz* CHANNEL"), 
695 ; 128 WRD_71 = uplit (Zasciz’ LATCH"), 
696 ; 19 WRD_72 = uplit (Zasciz’ DCK*), 
697 ; 130 WRD_73 = uplit (Zasciz’ BUS") 
698 ; 131 WRD_74 = uplit (Zasciz’ SYNDRONE'), 
699 ; 1% WRD_75 = uplit (Zasciz’ DECODE'), 
700 ; 13 WRD_76 = uplit (Zasciz’ NOT’) 
701 ; 134 WRD-77 = uplit (Zasciz* UNCORRECTABLE'), 
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| 
PHRASES 


* 
Wes 
nnnnnnnnn 


4 
SESESEESESSESSS 


BESS PaEK 


_ 
WEWN=Oo 


ee emer 


Ezz 


-v 
= 
xz 


FUNCTIONS 


PP Em Ge pm Ee ene mabe ae cally may abe mae ean mabe 
hn mag mag eh mag mag mag mag dg ead g man ed mo OE CE CP PR CP DR OD 


SESESESSSSSSS SESS OSSSS 


REGISTERS 


z 

m 

i>) 

4 
Hunn 


14-May-1981 13:68:38 
14-May-1981 13:05:08 


(%asciz’ BIT NOT SET‘), 

(Zasciz' BIT NOT CLR‘), 

(Zasciz' NO RESPONCE AFTER 1.5 US"), 
(Zasciz’ DATA ERRORS'), 
(ascis" BIT GER’). 

(Zasciz' OF OTHER DRIVES"), 

(heseqe® Lass 8°). 

(Zasciz’ TO F ND'S 


(Zasciz’ NOT LATCHED'), 

(Zasciz’ SINGLE BIT ERROR") , 

(Zasciz’ MULTIPLE BIT ERROR’) 
“ EGISTER 


(Zasciz DUMP"), 
(Zasciz'SERIAL #'), 


| eed + Neale 
asciz e 
(Zasciz’ DRV'), 
(lasciz' WATE Tn 
c ° 
(Zasciz’ READ’) 
(Zasciz’ C AR'S, 


ARCH’) 
(Zasciz' READ-IN-PRESET"), 

LLEGAL'), 
(Zasciz’ ABORT’), 


CHK S 
(Zasciz* LAST BLK'S, 
(Zasciz’ INITIALIZE"), 


(Zasciz’ MLCS1"), 
(Zasciz’ MLDS‘), 
(Zasciz’ MLER'), 
(Zasciz’ MLMR'), 
(Zasciz’ MLAS‘), 
(Zasciz’ MLDA'), 


TOPS-20 Bliss-16 V2(212) 
(3) 


PA: <NEALE>ML4.B8LI. 


SEQ 0046 
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759 ;ML4 14-May-1981 13:68: 
re $ 14-May-1981 13:05 
762 ; $18? REG_7 = uplit (Zasciz’ MLDT'), 

763 ; 188 REG_8 = uplit (Zasciz' MLPA‘), 

764 ; $155 REG_9 = uplit (Zasciz’ MLSN‘) 

765 ; 190 REG_10 = uplit (Zasciz’ MLE1"), 

766 ; 2191 REG_11 = uplit (Zasciz’ MLE2'), 

767 ; $138 REG. 16 = uplit (Zasciz’ MLD"), 

768 ; 219 REG_13 = uplit (Zasciz’ MLD2"), 

769 ; 2194 REG_14 = uplit (Zasciz’ MLEE'), 

770 ; $192 REG_15 = uplit (Zasciz’ MLEL'), 

771 ; 196 REG_16 = uplit (Zasciz’ MLPD') 

772 ; 2197 REG-17 = uplit (Zasciz’ MLCS2°5, 

773 ; 2198 REG_18 = uplit (Zasciz’ MLWC'), 

774 ; 2199 REG_19 = uplit (Zasciz’ MLBA‘) 

775 : 2200 REG_20 = uplit (Zasciz’ MLBAI'S, 

776 : 2201 REG_21 = uplit (Zasciz’ MLCS3"), 

777 ; 2202 ! 

ore : $soz : MODULES IN ERROR MESSAGES 

780 ; 2205 ASYNC = uplit (Z%asciz'"ASYNCHRONOUS FAILURE MODULE 7361'), 
781 ; 2206 SYNC = uplit (Z%asciz'SYNCHRONOUS FAILURE MODULE 736 )s 

782 ; 2207 ARR_DAT = uplit (Zasciz‘ARRAY DATA FAILURE MODULE 7363 °) 
783 : 2208 MEM-ARR = uplit (Zasciz'MEMORY ARRAY FAILURE MODULE 7357°5, 
784 ; 2209 INTER = uplit (%asciz' INTERMEDIATE DIAGNOSTIC MESSAGE') 

785 ; 2210 DATA_LATE = uplit (Zasciz'DATA LATE ERROR TRANSFER"), 
786 ; 2211 C_SET = uplit (Zasciz'SC BIT SET DURING TRANSF ‘ 

787 ; 2212 TRBLE_LOOP = uplit (Zasciz’TROUBLE SHOOT LOOP ERRORS"), 

788 ; $817 RH_ERROR = uplit (Zasciz'RH CONTROLLER ERRORS'), 

4 3 $si¢ ' TIME_OUT = uplit (Zasciz'DRIVE HUNG AFTER MASS BUS TRANSFER"), 
a4) ; $516 : DATA DIAGNOSTIC REGISTER SAVE LOCATIONS 

793 ; $518 D1_TEMP = NIB_SAVE, 

79% ; 2219 D2-TEMP = NIB~SAVE C1. 0. 16. 03. 

795 ; 2220 E2_TEMP = NIB_SAVE [2, 0, 16, 0J: 

796 ; 2221 

797 ; 2222 !<BLF/PAGE> 


TOPS-20 Bliss-16 V2(212) 


54 
708 PA:<NEALE>ML4.BLI.7 (3) 
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799 :ML4 14-May-1981 13: :48:54  TOPS-20 Bliss-16 v2(212) 

800 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1.7 (5) 

80 : 3225 rout ine LOAD_STACK (STK_PTR, NIB_PTR) : novalue = 
Py n 

804 : 5555 ° 

805 : 2206 1+ 

806 ; 32 i FUNCTIONAL DESCRIPTION: 

807 : 228 LOAD STACK TAKES GOOD _NIBBLE DATA 

808 : 329 i FOUND IN THE STRUCTURE ‘NIB SAVE’ 

809 ; 2230 AND STORES IT INTO THE STRUCTURE 

810 : 3231 i "STACK’ REWRITING ANY BAD NIBBLE 

si} : 3232 pgTAck LOCATIONS WITH GOOD NIBBLE 

813: 2234 =! 

BS: BBR | SoRtphgrweerens 

816: 2237 | TBOINTS TO PRESENT DEPTH OF THE 

817 : 2238 | "STACK’ WHERE PRESENT GOOD NIBBLE 

818 ; 3239 DATA IS TO BE STORED. 

820 ; 2241 | NIB_PTR 

821 : 2242 | POINTS TO CURRENT NIBBLE POSITION BEING 

Bee 3 343 MANIPULATED. 

824 ; ge48 IMPLICIT INPUTS: 

826 : 2247 | VECTOR OF 198 BYTE LOCATIONS WHERE 

827 : 2248 | GOOD NIBBLE DATA IS STORED 

828 : 2249 | DURING DIAGNOSTIC MODE READS, AFTER 

829 : 2250 | BAD NIBBLE LOCATIONS HAVE BEEN 

830 : 3251 STRIPPED AWAY. 

832 : $536 i STK_OFF 

833: 2254 ! 

834 ;: 2255 vector of 9 tarts bec LOCATIONS WHICH 

835 : 2256 =! STORES NIBBLE OFF_SET 

85 ; 3297 COUNT FOR EACH ONIBBLE POSITION 

838 : 2259 | NIB_SAVE 

839 : 3260 BLOCK OF 3 WORDS TO STORE THE 

841 5 3268 MLE2 D AFTER AN A DIAGNOSTIC MODE READ. 

843 : 2264 | IMPLICIT OUTPUTS: 

B44 3 3268 pgTAck LOADED WITH GOOD NIBBLE 

846 ; 2267 | 

847 ; 3268 COMPLETETION CODES: NONE 

849 ; 270 ke SIDE EFFECTS: NONE 

851 : 378 ie 

8¢ : 27 

853 ; 274 case .NIB_PTR from 0 to 9 of SELECT NIBBLE DATA TO BE LOADED INTO THE STACK 
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SEQ 0049 
855 :ML4 14-May-1981 13:48 :48:54  TOPS=20 Bliss-16 V2(212) 
856 : 14-May-1981 13:05:08 | PA:<NEALEDML4.B8L1.7 (5) 
858 ; 275 set 
859 ;: 276 
860 ; 07 (0) : 
861 : 28 stack [(.STK_PTR = (.STK_OFF C.NIB_ PRI): ] = .NIB_SAVE CNIB_0); 
86¢ ; 327 NIBBLE BATA 0 INTO SELECTED STACK LOCATION 
863 ; 280 
864 ; 281 (1) : 
865 : 382 stack C(.STK_PTR = (.STK_OFF C.NIB_ PTRI))3 = .NIB_ SAVE CNIB_1); 
866 ; 28 OAD NIBBLE BATA 1 INTO SELECTED STACK LOCATION 
868 ; 2285 (2) : 
869 : 2286 Stack [(.STK_PTR = (.STK_OFF C.NIB_ PTRI))] = .NIB_ SAVE CNIB_ 2] 
870 : 2287 DAD NIBBLE DATA 2 INTO SELECTED STACK LOCATION 
871 : 2288 
872 : 2289 (3) : 
873 : 2290 stack [(.STK_PTR = (.STK_OFF C.NIB_PTR]))] = .NIB SAVE (NIB 3] 
87% ; 3291 'LOAD NIBBLE DATA 3 INTO SELECTED STACK LOCATION 
876 : 2293 [4] : 
877 : 229% Stack C(.STK_PTR = (.STK_OFF C.NIB_ PTRI))3 = .NIB_SAVE CNIB_4] 
878 : 2295 OAD NIBALE BATA 4 INTO SELECTED STACK LOCATION 
879 : 2296 
880 : 2297 (5) : 
881 : 2298 stack C(.STK_PTR = (.STK_OFF C.NIB_ PTRI))3 = .NIB_SAVE (NIB_5) 
882 : 2299 NIBBLE BATA 5 INTO SELECTED STACK LOCATION 
883 ;: 2300 
884 : 2301 (6) : 
885 : 2302 stack [(.STK_PTR = (.STK_OFF C.NIB_ PTRI))3 = .NIB_SAVE (NIB 6) 
886 : 2303 OAD NIBBLE BATA 6 INTO SELECTED STACK LOCATION 
887 : 2304 
888 : 2305 (7] : 
889 : 2306 Stack [(.STK_PTR = (.STK_OFF C.NIB_ PTRI))4 = .NIB_SAVE (NIB 7); 
890 : 2307 OAD NIBBLE BATA 7 INTO SELECTED STACK LOCATION 
891 : 2308 
892 : 2309 (8) : 
893 : 2310 stack [(.STK_PTR = (.STK_OFF C.NIB_ PTRI))3 = .NIB_ SAVE CNIB_8) 
894 3 311 NIBBLE DATA 8 INTO SELECTED STACK LOCATION 
896 : $315 (9) : 
897 : 2314 stack C(.STK_PTR = (.STK_OFF C.NIB_ PIRJ))] = .NIB_SAVE (NIB 
898 : 2315 LOAD NIBBLE BATA 9 MAO E ecreD STACK LOCATION 
899 ;: 531$ tes; 
900 : 231 
901 ; 2318 end; 
905 
906 
907 


~ 


=, 


ne 


"ee 





ee 


SEQ 0050 
TOPS 
PA:< 


14-May-1981 13:68:38 
1 13:05: 
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SAU pins apes Fp. SEQ 0072 CA 


140 :ML4 14-May-1981 13:48:54 TOPS 
si : 14-May-1981 13:05:08  PAz< 

128 013576 RH.VEC: .BLKw 1 

144 013600 ML:LUN: [BLKW 1 

ig 013602 ML{DUT: [BLKY 1 

14 
$104 100000 BIT15== -100000 
$149 040000 BIT14== 40000 
$180 020000 BIT13== 20000 
5181 010000 BIT12== 10000 
2152 004000 BIT11== 4000 
518 002000 BIT10== 3000 
5184 001000 BITO9== 1000 
2155 000400 BITOB== 400 

136 000200 BITO7== 300 
5187 000100 81 T0¢== 100 
5138 000040 BIT0S== 40 
5189 000020 BIT04== 30 
5160 000010 BITO3== 10 
5161 000004 BITO2== é 
5162 000002 BITO1== 3 
5163 000001 BITOO== § 
5164 001000 BIT9== 1000 
5165 000400 BITB== 400 
5166 000200 BIT?== 300 
5167 000100 BIT6== 00 
5168 000040 BITS== 40 
5169 000020 BITé== 30 
5170 000010 BIT3== 10 
5171 000004 BIT2== é 
5172 000002 BITI== 2 
5173 000001 BITO== i 
517% 000040 EF. START== 40 
5175 000037 EF [RESTART== 37 
5176 36 EF | CONTINUE== 36 
5177 000035 EF (NEW== 35 
5178 3 EF _PWR== 3 
5179 000340 PRIO7== 340 
5180 000300 PRIO6== 300 
5181 000240 PRIOS== 240 
5182 000290 PRI04== 00 
5183 000140 PRIO3== 140 
5184 000100 PRIO2== 100 
2189 000040 PRIOI== 40 

186 000000 PRIOO== 0 
5187 000004 EVL== 4 

188 000010 LOT== 10 

189 000020 An== 20 

190 0 IDU== £0 
5191 000100 ISR== 100 
2192 000200 UAM== 200 
219 000400 BOE== £00 

19% 001000 PNT== 1000 
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SEQ 0074 
14-May-1981 13:48:54 TOPS 
14-May-1981 13:05:08 PA:< 








C2! 
ERI 


K 6 
co ie ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 94 C2! 


SEQ 0075 ERI 
308 ML4 14-May-1981 13:48:54 TOPS 
4 : 14-May-1981 13:05:08 PA:< 
311 007216 WRD.63= P.ADU 
a1¢ Bn 7ses WRD.64= P.ADV 
31 anes 2 WRD.65= P.ADW 
314 007240 WRD.67= P.ADX 
315 00724 WRD .68= P.ADY 
2316 00725 WRD .69= P.ADZ 
2317 7260 WRD.70= P.AEA 
2318 007272 WRD.71= P.AEB 
$a)3 00730 5 tes P.AEC 
320 00731 D.75= P.AED 
2321 007316 WRD.74= P. AEE 
$356 007330 D.75= P.AEF 
232 007340 D.76= P.AEG 
2324 007346 WRD.77= P.AEH 
2325 007366 PHR.1= P.AEI 
2326 007404 — P.AEJ 
2327 007422 PHR.3= P.AEK 
2328 007454 PHR.4= P.AEL 
2329 00747, HR.5= P.AEM 
2330 0075 R.6= P.AEN 
2331 007516 PHR, 7= P.AEO 
2332 007540 PHR.8= P.AEP 
23335 007552 PHR.9= P.AEQ 
2334 0075 PHR.10= P.AER 
2335 007576 PHR.11= P.AES 
2336 007614 PHR.12= P.AET 
2337 007636 PHR.13= P.AEU 
23. 007662 .14= P.AEV 
2339 007714 .15= P.AEW 
2340 007726 FNC. 1= P.AEX 
2341 007742 ee P.AEY 
234 007750 FNC.3= P.AEZ 
234 007756 FNC.4= P.AFA 
2344 007774 FNC.5= P.AFB 
2345 010004 FNC.6= P.AFC 
2348 010012 FNC.7= P.AFD 
2347 010022 FNC.8= P.AFE 
2348 010036 FNC.9= P.AFF 
2349 010050 FNC.10= P.AFG 
2350 010060 FNC.11= P.AFH 
2351 B91 ou ies P.AFI 
$te6 IOids FNC.13= P.AF.I 
235 0101 FNC.14= P.AFK 
2354 0101 FNC.15= P.AFL 
355 010150 eNe. 16s P.AFM 
356 01016 FNC.17= P.AFN 
357 01017, FNC. 18= P.AFO 
$305 Bio5%6 FNC.19= P.AFP 
359 1octs FNC.21= P.AFQ 
Se nese £4 
2362 $10386 REG. 1= P.AFT 
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TOPS 
PA:< 
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LOAD. STACK SEQ 0077 FIN 

419 ZML4 14-May-1981 13:48:54 TOPS 
“3 : 14-May-1981 13:05:08 PA:< 
age 013644 000060 .WORD 4$-1$ 

423 01 000076 [WORD 5$-1$ 

424 01365 000114 WORD 68-18 

425 01365 13 “WORD 7$-1$ 

4 6 013654 0001 “WORD - 

427 013656 000176 “WORD 10$-1$ 

428 013660 000224 “WORD 12$-1$ 

429 013662 000260 “WORD 15$-1$ 
2 013664 903005 2$: CLR R3 : 2278 
431 013666 151203 BISB = (R2),R3 
243 013670 010100 MOV R1,RO0 
2433 013672 160300 SUB R3_RO 
3434 013674 016703 175252 MOV NIB. SAVE ,R3 

435 013700 000500 BR 14$ 
2436 013702 005003 3$: CLR R3 : 2282 
2437 013704 15120 BISB (R2),R3 
2438 013706 010100 MOV R1,RO 
2439 013710 160300 SUB R3.RO 
2440 013712 916703 175234 MOV NIB. SAVE ,R3 
2441 013716 00043 BR x3 
ence 013720 005003 4$: CLR R3 : 2286 
2443 013722 151203 BISB = (R2),R3 

2444 013724 010100 MOV R1,RO0 

2445 013726 160300 SUB R3_RO 

2446 013730 016703 175216 MOV NIB. SAVE ,R3 

2447 013734 000461 BR 13$ 

2448 013736 005003 5$: CLR R3 : 2290 
2449 013740 151203 BISB = (R2),R3 

2450 013742 010100 MOV R1,R0 

2451 013744 160300 SUB R3,RO 

452 013746 016703 175200 MOV NIB. SAVE ,R3 

453 013752 000437 BR 11$ 
2454 013754 005003 6S: CLR R3 ; 2294 
2455 013756 151203 BISB (R2).R3 

2456 013760 010100 MOV R1,R0 
345 013762 160300 SUB R3.R 

458 015764 016703 175164 MOV NIB. SAVE+2,R3 

2459 013770 000444 BR 14$ 
2460 013772 003005 7$: CLR R3 : 2298 
2461 013774 151203 BI1SB (R2),R3 
gabe 013776 010100 MOV 1,R 

463 014000 160300 SUB R3_R 
2464 014002 016703 175146 MOV NIB. SAVE+2,R3 

2465 014 006203 8$: ASR R 

2466 01401 006203 ASR R 

346 014012 00620 ASR R 

468 014014 0062 3 ASR R 

469 14016 1 BR 14$ 

470 014020 005003 9$: CLR R3 : 2302 
471 014022 151203 BISB = (R2),.R3 

472 014024 010100 MOV R1, 

473 014026 160300 SUB R3.R 


CZMLACO ae LOGIC TEST 


LOAD. STAC 

475 

478 ape ts 
479 0140 
480 hy 
ot see 
ot is 
is si 
4 Babee 
487 014 
488 014 
2489 014 
490 014064 
491 014066 
249. bp 2a 
493 01407. 
494 014074 
495 014100 
496 014102 
2497 aaiis 
498 01411 
499 014116 
2500 o14138 
2501 014122 
2502 014124 
2505 014126 
2504 014132 
2505 014134 
2506 gis 
2507 01414 
2508 014142 
2509 014144 
2510 014150 
2511 014154 
$2i¢ 014160 
51 
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118: ASR 

BR 
12$: CLR 
13$: 


148: BIC 


15$: CLR 


3; Routine Size: 


; Maximum stack depth per invocation: 


NIB. SAVE+2,R3 
13$ 

R 

(R2) ,R3 

R1,RO 

R3,RO 

NIG. SAVE*2.R3 
R 


NIB. SAVE*4R3 
#177760,R3 
STACK (RO) 

R3, STACK (RO) 
PC 

R3 

(R2),R3 

R3,Ri 

NIB. SAVE+4 ,R3 
R3 

a 
RS 
R3 
#177770,R3 


STACK (R1) 
RS,STACK(R1) 


119 words 


4 words 


14-May-198 
14-May-198 


at a 


1 
1 


3:05 





SEQ 0078 


254 
:08 


TOPS 
PA:< 


2306 


2310 


2223 
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LOAD. STACK SEQ 0079 
2523 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
$35¢ : 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (6) 
2526 ; 2319 routine DAT_DM_XFER : novalue = 
2527 : 2320 
2528 ;: 2321 S++ 
$263 3 $35§ ' FUNCTIONAL DESCRIPTION: 
2530 ; 2323 =! 
2531: 2324 =! A REPEATEDLY CALLED SEQUENCE 
$oe6 3 2325 =! OF ASSIGNMENT EXPRESSIONS TO 
2533 : 2326 =! LOAD THE DSA S ADRS AND WORD 
2534: 2307 COUNT REGISTERS WITH APPROPRIATE 
2535 ; 2328 =|! INFORMATION BEFORE A MASS BUS 
2536 ;: 2329 =! TRANSFER CAN COMMENCE 
2537 : 2330 ! 
2538 ;: 2331 ! LOADS A MASS BUS BLOCK TRANSFER, 
2539 : 2332 =! IN DIAGNOSTIC MODE, AT THE GOOD 
2540 ;: 2335 |! BLOCK ADRS. 
2541 ;: 2334 =|! 
2542 ; 2335) Se 
2543 : 2336 
2544 : 2337 begin 
2545 ;: 2338 DAT_DM = ONE; 'SET DATA DIAG MODE 
2546 : 2339 MLDA = .GOOD BLK; 'LOAD DSA REG WITH THE GOOD BLOCK ADRS 
2547 : 2340 MLBA = 10 BUF; 'LOAD BUS ADRS REG WITH THE IO BUF ADRS 
2548 ;: 2341 MLWC = not 255; 'LOAD WORD COUNT REG WITH COMPLIMENT 256 
2549 : 2342 end; 
2553 
2554 -SBTTL DAT.DM.XFER 
2558 014162 DAT.DM.XFER: 
2559 014162 152777 177104 BISB #10,@ML .REG+120 J 2338 
2560 014170 016777 175370 177006 MOV GOOD .BLK ,aML .REG+30 3 2339 
2561 014176 012777 011600 176770 MOV #10.BUF ,aML .REG+20 3 2340 
2562 014204 Retry 177400 176752 MOV #-400,aML .REG+10 ; 2341 
$267 014212 207 RTS PC 3 2319 
2565 : Routine Size: 13 words 
$266 ; Maximum stack depth per invocation: 0 words 
2572 
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DAT.DM.XFER SEQ 0080 
574 :ML4 14-May-1981 13: :48:54  TOPS=20 Bliss-16 v2(212) 
375 : 14-May-1981 13:05:08 | PA:<NEALEDML4.8L1.7 (7) 

2577 : 2343 routine STRIPPER (WRD_CNT, NIB_CNT) : novalue = 
$278 : Sate begin is 
3580 : 2346! 44 
581 : 3347 i FUNCTIONAL DESCRIPTION 
2582 : 348 STRIPPER RUNS IN DATA DIAG MODE AND STRIPS OUT 
2583 : 2349 | A VARIABLE NUMBER OF GOOD NIBBLES FROM THE 
2584 : 2350 GOOD BLOCK STORES THEM INTO A CONTIGIOUS 
3585 : 351 ; STACK FOR SEQUENTIAL ACCESSING 
3287 ; 2355 FORMAL UPARAMETERS: 
2589 : 2355 TELLS STRIPPER HOW MANY WORDS IN THE GOOD 
3290 3 3356 BLOCK TO READ OUT 
2592 : 2358 
2593 ; 2359 =! vers” STRIPPER HOW MANY NIBBLES TO 
3994 ; 3360 : STRIP OUT OF EACH WORD. 
2596 ; 3362 IMPLICIT INPUTS: 
2598 : 2364 
2599 : 2365 local 
2600 ; 3366 STK_PTR; ‘STACK POINTER 
2602 : 2368 incr CNT from Q to .NIBACNT do 'CLEAR OUT THE STACK OFFSET 
2608 | 3369 STK_OFF C.CNTS ZEROES: _ 
609 $370 SURAABUS: ESET THE ST 
; “PTR = -1; 'R ACK POINTER 
2607 : $358 DAT_DM_XFER 0); iSET UP A DA TA XFER AT THE GOOD BLOCK 
2608 ;: 2374 MLCS1 = read: 'DO A READ XFER 
3609 3 373 DELAY (ONE_US); ‘ALLOW PROM DATA TO GET INTO THE MLPD REG 
611 3 377 iner cnt fren 0 to .WRD_CNT do ‘LOAD THE STACK WITH ALL GOOD NIBBLE DATA 
ze18 $340 Da? CLK thes iELOCK OUT THE DATA WORD 
sei¢ : 2381 PPLAY (ONE “USS; 
2616 ; 382 RD_LNG_WRD? i READ DATA DIAG REGS INTO NIBBLE SAVE 
2618 : 384 incr NIB-PTR from 0 to .NIB_CNT do 'STRIP OUT X NUMBER OF NIBBLES 
° e 
2620 ; 384 STRPTR = .STK_PTR + 1; ‘INCREMENT THE STACK POINTER 
2622 ; 388 if -PD_ TEMP C.NIB_PTR] 1S_SET 'SEE IF THIS A GOOD NIBBLE 
2624 : 390 STK_OFF {.NIB_PTR] = (.STK_OFF C.NIB PTR}) + (NIB CNT 
$65 ; 391 oa ‘THER INCREMENT [T"S STACK. OFFSET 
6 u ; 395 *LOAD_STACK (.STK_PTR, .NIB_PTR); ‘ELSE LOAD THE NIBBLE IN THE STACK 
29 :ML4 14-May-19 TOPS-20 Bliss-16 V (212) 
2630 : 1enhay=1981 1356 :0 38 PA:<NEALEDML4.BLI. 
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CLR_MBUS; 
end; 


167676 
000020 


012600 


000040 
177324 
177770 
000007 


1767 

177797 
177656 
000071 
000001 
165572 


177034 
000020 
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165524 
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-GLOBL LSDLY 


-SBTTL STRIPPER 


STRIPPER: 
J 
BR 
1$: CLRB 
2s: CMP 
B 
3$ BEQ 
4$ CLR 
5$ DEC 
BR 
6$: CLR 
BR 
7$: MO 
MO 
8$ BEQ 
MO 
sML4 
) CLR 
10$ DEC 


Ri .Seaves 
20(SP) ,R4 
R1 


2s 

STK. OFF (R1) 

R1 

R1,R4 
#40, @ML .REG*+40 
#7, aL .REG*4O 
RS , -REG+40 
PC, DAT.DM.XFER 
a7i . aL REG 


SDLY.R2 


#20,@ML. 
#1,R1 


11 
LSDLY,R2 
10$ 


Bete Se Se 


$ 
@ML .REG*+230,PD. TEMP 
REG+1 


+120 


NIB.CNT,* 
CNT 

= (CNT) 
CNT 

CNT,* 


*, STK.PTR 


* ,SSTMP2 


; *,SSTMP1 


SSTMP 


+ SSTMP1 
: $STMP2 
: CNT 


+, SSTMP2 


*,SSTMP1 


SSTMP 
SSTMP1 


; SSTMP2 








SEQ 0081 
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174526 MOV @ML .REG+160,£2. TEMP 
CLR R2 
BR 15$ 
12$: INC R5 
MOV R2,R1 
ASR R1 
ASR R1 
ASR R1 
ADD #PD.TEMP,R1 
MOV R1,-(SP). 
MOV R2,-(SP) 
BIC #177770, (SP) 
MOV #1,-(SP5 
CLR -(§P) 
JSR PC,BL$GT2 
ADD #10,SP 
DEC 
BNE 138 
CLR R1 
BISB STK.OFF(R2),R1 
ADD R4,R1 
MOV R1,RO 
INC 
MOVB _—RO, STK. OF F (R2) 
BR 14$ 
13$: MOV R5,-(SP) 
MOV R2,-(SP) 
JSR PC. LOAD. STACK 
CMP (SP)+, (SP)+ 
14$: INC R 
15$: CMP R2,R4 
BLE 12$ 
INC R 
16$: CM R3,22(SP) 
176430 BISB8 4#40,aML.REG+40 
MOV 5bul RS 
BIC #177770,R5 
176412 BICB = #7, AML. REG*40 
BISB R5.aML.REG+40 
TST (SP 
RTS PC 


: Routine Size: 127 words. 
; +’ ghee stack depth per invocation: 


11 words 


NIB.PTR 2384 
STK.PTR 2386 
NIB.PTR,* 2388 
NIB.PTR,* 
| 
2390 
*(NIB.PTR),* 
*,*(NIB.PTR) 
2388 
STK.PTR,* 2393 
NIB.PTR,* 
NIB.PTR 2384 
NIB.PTR,* 
CNT 237 | 
CNT ,WRD.CNT 
_—_ 
2343 
14-May-1981 13:48: 3 TOPS 
14-May-1981 15:05:08 PA:< 
a ae 


eal we 
ae 
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STRIPPER 


SEQ 0083 
gree 3ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
srt 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (8) 
2752 ; 401 routine CAL_CRC : novalue = 
2753; 40 begin 
2754 240 
2755 ; 404 !++ 

756 ; 405 ' FUNCTIONAL DESCRIPTION: 
757 ; $¢ i CALCULATE THE CRC CODE FOR THE GOOD BLOCKS 
2758 : 407 ! FIRST CRC GROUP (60 NIBBLES) BY STRIPPING 
2759 : 2408 =! OUT GOOD NIBBLES AND MODULO 2 ADDING EACH 
$760 é 5498 BITS WEIGHT RESULTING IN A_CAL,B_CAL,P_CAL. 
2762 ; 2411 =! vides og eH 
2763 ; selg ! P_CAL,A_C 
2764 ; 241 ! GOLBA CstOkAce” LCATION WHERE aa 
2765 ;: 2414 =! CRC SEES ARE STORED AND EXAMINED 
2766 ; 2415 ! 
2767 ; 2416! 
2768 ; 2417 ! Teace’  ONTAINING PRECALCULATED BIT POSITION 
2769 ;: 2418 ! WEIGHTS USED IN THE MODULO 2 CALCULATION OF THE 
2770 ;g 2419 =! CRC CODE 
2771 ;: 2420 !-- 
e772 : 2421 
2773: 242 local 
2774: 242 CHANNEL, 'CHANNEL POINTS TO THE BITS IN A WORD 
e775: 2424 STK_PTR, iSTACK POINTER 
2776 : 2425 NIB_SAV : bitvector (4], 'NIBBLE SAVE LOCATION 
e777 ;: 2426 ALOG, ‘INDEX INTO REMAINDER TABLE 
ea $ $t5e BLOG; ‘INDEX INTO REMAINDER TABLE 
2780 ; 2429 STRIPPER (12, 9); 'STRIP OUT ALL 10 NIBBLE FROM 13 ARRAY WORDS 
$78) : seas STK_PTR = -1; 'RESET STACK POINTER 
2783 ;: 243 incr PLOG from 0 to 5 do 'PLOG POINTS TO ONE CRC GROUP ‘°6 WORDS‘ 
2784 ; 243 egin 
re? 3 sike CHANNEL = -1; 'RESET CHANNEL FOR EACH WORD 
see 3 see incr NIG. CNT from 0 to 8 do 'READ DATA NIBBLE 0-8 AND CALCULATE CRC 
2789 : 438 STR.P PTR = .STK_PTR + 1; ‘INCREMENT THE STACK POINTER 
shor s aH NIB_ SAV = .stack ". STK. PTR): 'LOAD NIV_SAV WITH A STACK NIBBLE 
2792 : 2441 incr BIT_TST from 0 to 3 do 'TEST THE BIT FOR BEING SET 
2793 ; 244 > he 
3795 3 vee C EL = .CHANNEL + 1; 'CHANNEL POINTS TO THIS 3IT 
796 : 2445 if .NIB_SAV C.BIT_TSTJ IS_SET 'SEE IF THIS BIT IS SET 
2797 ; 446 then 
$i s 447 poaie ‘IF SET re MOD * ADD THE REMAINDER 
793 ; 448 ALOG = .PLOG + .CHANNEL; ‘CALCULATE THE AL 
sony 3 £83 BLOG = .PLOG + .CHANNEL*2; '!CALCULATE THE atog 
802 ; 451 while gatos 63 d 'REDUCE ALOG UNTIL < 64 
803 : 452 Mdc = 63; 
804 :ML4 14-May-1981 1 254 TOPS-20 Bliss-16 vg (el) 
805 ; 14-May-1981 1 r :08 PA:<NEALE>ML4.BL1.7 (8) 
Se —————eEEEEEeE—EEeEeEeEeEeeeEeeeEeeEeEeEeEeEeEeEeeEeEeEeEeeEeEeEeEeee — 


me 
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STRIPPER 


SEQ 0084 
806 
807 ;: 453 
808 : 454 while .BLOG ge 63 do 'REDUCE BLOG UNTIL <64 
3809 ; 499 BLOG = .BLOG - 63; 
2811 : 45 P_CAL = (.P_CAL) xor (.REM_TBL [.PLOG]); | 'MOD 2 P_CAL WITH REM_TBL 
Ble : 458 A-CAL = (.A-CAL) xor (.REM-TBL [C.ALOGJ): | ‘MOD 2 A-CAL WITH REM~TBL 
2813 : 459 B-CAL = (.B_CAL) xor (.REM_TBL C.B8L0GJ); | 'MOD 2 B-CAL WITH REM_TBL 
2814 ;: 460 end: 
2815 : 2461 
2816 ;: 246 end; 
2817 : 246 
2818 ;: 2464 end; 
2819 : 2465 
2820 ; 2466 STK_PTR = .STK_PTR + 1; 'SKIP OVER THE CRC NIB NT THE STACK 
2821 ;: 2467 end; 
2822 : 2468 
2823 ; 2469 end; 
2827 
2828 -SBTTL CAL.CRC 
2832 014612 004167 167300 CAL.CRC:JSR R1,$SAVE5 ; 2401 
2833 014616 162706 000012 SUB #12,SP 
2834 014622 012746 000014 MOV #14,-(SP) : 2429 
2835 014626 012746 11 MOV #11,-(SP) 
2836 014632 004767 177356 JSR PC, STRIPPER 
2837 014636 012766 177777 000006 MOV #-i,6(SP) : *,STK.PTR 2430 
2838 014644 005066 000004 CLR 4(SP) + PLOG 2432 
2839 014650 012766 177777 000010 1S: MOV #-1,10(SP) i, L 434 
2840 014656 005066 000012 CLR 12(SP) : NIB. CNT 436 
2841 014662 005266 000006 2$: INC 6(SP) : STK.PTR 2438 
2842 014666 016605 000 MOV 6(SP) RS : STK.PTR,* 2439 
2843 014672 116566 012612 000014 MOVB = STACK(R5),14(SP) + *,NIB.SAV 
2844 014700 105066 000015 CLRB  =—-:-15 (SP) : NIB. SAV 
2845 014704 005003 CLR R3 : BIT.TST 2441 
2846 014706 005266 000010 3$: INC 10(SP) + CHANNEL 2443 
2847 014712 010305 MOV R3,R5 : BIT.TST.* 2445 
2848 014714 006205 ASR R5 
2849 014716 006205 ASR R5 
2850 014720 006205 ASR R5 
Shee 14756 pateo, "4 WDD SPAR NIB. SAV 
e e . * 
285 O1e980 060405 ADD 4.R5 
2854 014732 010546 MOV R5.-(SP) 
3855 014734 010346 V 3°-(SP) : BIT.TST,* 
856 014736 042716 177770 BIC #177770, (SP) 
2857 014742 012746 1 V 1,-(SP5 
2858 014746 005046 CLR -(§P) 
2859 ZML4 14-May-1981 13:48:54 TOPS 
28st ; 14-May-1981 13:05:08 PA:< 
014750 004767 166164 JSR PC ,BLSGT2 
$ae 014754 062706 000010 ADD #10,SP 
864 014760 005 DEC RO 
B65 014762 001066 BNE 7$ 
288 O14770 Ooee0l opntO MoD CTOneD Sat ¢ Chanier RLOG 
868 014774 016605 000010 V 10(SP) °R5 : Lie 
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000010 


000005 


4$: CMP 


7$: INC 


3; Routine Size: 


; Maximum stack depth per 
;ML4 


RS 

4(SP) RS 
R1.477 
#77,R1 
R2,477 
6$ 
#77,.R2 
5$ 


4 (SP) ,R4 
REM. TAL (R4) RS 
R5,-(SP) 

P. CAL, (SP) 


R5,P.CAL 
(SP)+,P.CAL 
REM. TBL(R1),RS 
RS 


R 

~ fy eae 
R5 ,R4 
B.CAL,R4 


128 word 


s 
invocation: 17 words 


Bete te 


; *(ALOG),* 


* (BLOG) ,* 


BIT.TST 
BIT.TST,* 


NIB.CNT 
NIB.CNT,* 


STK.PTR 
PLOG 
PLOG,* 


14-May-19 
14-May-19 


a 


2:48:54 


2458 


2459 


2441 


2436 


2466 
2432 


2401 


TOPS 
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CAL.CRC SEQ 0086 LA! 
4 3ML4 14-May-1981 13:69:36 TOPS-20 Bliss-16 V2(212) 
? $ 14-May-1981 15:05:08 PA:<NEALE>ML4.BL1I.7 (9) 
27: 2470 routine ERR_CHK_CRC = 
8 ; 2471 begin 
9; 47 
: 473! ++ 
31; 474 ! FUNCTIONAL DESCRIPTION: 
$o36 3 2475 =! "ERROR CHECK CRC’ COMPARES HARDWARE GENERATED CRC 
2933 ; 2476 =! CODES TO SOFTWARE CALCULATED CRC CODE FOR 
Soee 3 seen CRC GROUP AND RETURNS A ONE ON DETECTION OF ERRORS 
2936 ;: 2479 =| IMPLICIT INPUTS: 
2937 ; 2480 ! P_CAL,A_CAL,B_CAL 
2938 ; 481 ! GCOBAL STORAGE LOCATIONS WHERE CALCULATED 
2939 : 482 ! CRC CODES ARE STORED AND EXAMINED FROM 
2940 ;: 2483 |! 
2941 ;: 2484 =! P_GEN,A_GEN,B_GEN 
Sore 3 2485 =! GLOBAL STROAGE LOCATIONS WHERE HARDWARE GENERATED 
2943 ; sone ! CRC CODES ARE STORED AND EXAMINED FROM 
2944 ;: 2487 !-- 
2945 : 2488 
2946 ;: 2489 local 
7; 2490 POS 'VARIABLE FOR FIELD SELECTOR 
8; 2491 TEMP; i TEMPORARY STORAGE LOCATION 
2949 : 2492 
Seat ; sear POS = -1; ‘RESET THE POS 
5325 3 $132 it~ * tae from 9 to 59 by 10 do ‘CONVERT VERTICAL STACK CRC TO HORIZONTAL REPRESENTATION 
3 egin 
2954 ;: 2497 Pos = .POS + 1; ' INCREMENT POS 
2955 : 2498 TEMP = .stack {.STK_PTRI: 'READ CRC NIB FROM THE STACK 
2956 : 2499 (P_GEN)<.POS, 1> = .TEMP<O, 1>; 'CONVERT 1ST BIT 
2957 : 2500 (A_GEN)<.POS, 1> = not .TEMP<1, 1>; 'CONVERT 2ND BIT 
2958 ;: 2501 (B_GEN)<.POS, 1> = not .TEMP<2, 1>; ‘CONVERT 3ED BIT 
2959 : $208 end; 
2960 ;: 250 
2961 ; $2be if (.P_GEN neq .P_CAL) or (.A_GEN neq .A_CAL) or (.B_GEN neq .B_CAL) then return ONE else return ZERO; 
2963 : 2506 'COMPARE GENERATED CRC CODE TO CALCULATED CRC CODE 
2964 ;: 2507 end; 
2969 SBTTL ERR.CHK.CRC 
34h 013818 ERR.CHK.CRC: 
74 015212 004167 1 She JSR R1,$SAVE3 3 
2975 015216 012701 17777 MOV #-1,R1 : *,POS 
$376 015222 012702 000011 MOV #11,R2 3 *,STK.PTR 
2977 015226 005201 1$: INC Ry 3 POS 
2978 015230 005003 CLR R3 : TEMP 
——————————————————————————————_—_—__ a _..aaaSNRKe-" lX"_au0V7°°:_—_—ee __ 
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3980 ZML4 14-May-1981 13:48:54 TOPS 
81 3 14-May-1981 13:05:08 PA:< 
83 015232 15 205 01261 BISB STACK(R2),R3 : *(STK.PTR), TEMP 
84 015 oi 46 01315 MOV WP. GEN, -(SP) : 2499 
5 015242 010146 MOV R1,-(SP) : POS,* 
B6 015244 012746 000001 MOV #1,-(SP) 
87 015250 010346 MOV R3,-(SP) : TEMP,* 
B8 015252 042716 177776 BIC #177776, (SP) 
89 013296 004767 166114 JSR PC ,BL$PU2 
2990 015262 012716 013146 MOV #A.GEN, (SP) ; 2500 
2991 015266 010146 MOV R1,-(SP) + POS,* 
2992 015270 012746 000001 MOV #1,-(SP) 
2993 015274 905046 CLR -(§P) 
2994 013276 032703 000002 BIT #2,R3 : *, TEMP 
2995 015302 001401 BEQ 2$ 
2996 015304 005216 INC 
2997 015306 005116 2$: COM (SP) 
2998 015310 004767 166062 JSR PC ,BL$PU2 
2999 015314 012716 013150 MOV #8.GEN, (SP) : 2501 
3000 015320 010146 MOV R1,-(SP) : POS,* 
3001 015322 012746 000001 MOV #1,-(SP) 
3002 015326 005046 CLR -(§P) 
3003 015330 032703 000004 BIT #4,R3 : *, TEMP 
3004 015334 001401 BEQ 3$ 
3005 015336 005216 INC (SP) 
3006 015340 005116 3$: COM (SP) 
3007 015342 004767 166030 JSR PC ,BL$PU2 
3008 015346 062796 000024 ADD #24,SP ; 2496 
3009 015352 062702 000012 ADD #12 Re : *,STK.PTR 2495 
3010 015356 020227 00007 CMP R2,47 + STK.PTR,* 
3011 015362 003721 BLE 1 
3012 015364 026767 175562 175552 CMP P.GEN,P.CAL ; 2504 
3013 015372 001010 BNE 
3014 015374 026767 175546 175536 CMP A.GEN,A.CAL 
3015 015402 001004 BNE 
3016 015404 026767 175540 175530 CMP B.GEN,B.CAL 
3017 015412 001403 BEQ 5$ 
3018 015414 012701 000001 4$: MOV #1,R1 
3019 015420 000401 BR 63 
Bs Sistas Grote $A ln x7 
3022 015426 000207 RTS PC : 2470 
24 ; Routine Size: 71 words 
$3 3; Maximum stack depth per invocation: 14 words 
3031 
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ERR.CHK.CRC SEQ 0088 TS’ 
3 3ML4 14-May-1981 13: :48:54 TOPS-20 Bliss-16 V2(212) 
3 ; 14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (10) 


3036 ; 508 routine FIND_COMP_BIT (BITS_XFERED) = 
3037 : 509 begin 
HY 3 510 
9; 511 !+ 
3040 ; 31 i FUNCTIONAL DESCRIPTION: 
1; 513 "FIND COMPLIMENT’ BIT IS CAILLED BY THE 
3042 : 514 SYNDROME DECODE TESTS AND INDEXES INTO 
3043 : 2515 THE 10 BUF LOOKING FOR COMPLIMENTED 
3044 ; 3316 BITS. "A COMPLIMENTED BIT IS BY DEF A ONE 
3042 : 2518 A ONE 1s RETURNED IF THE INDEXED BIT IS 
3047 : 2519 NOT SET 
3048 : 2520 i 
3049 ;: 521 i FORMAL PARAMETERS: 
3050 : 3¢¢ i BITS_XFERED 
3051 : 503 REPRESENTS THE BIT BEING TESTED 
3 ; 2524 | IN THE DRIVE AND FROM THIS THE 
3053 : 2525! WORD AND BIT INDEX INTO THE 
3054 : 2526 = 10_BUF CAN BE CALCULATED 
3055 : 2527 _ 
3056 : 2528 | IMPLICIT INPUTS: 
3057 : 2529 i= 
3058 : 2530 
3059 ;: 2531 local 
3060 : 2532 COMP_WRD, ‘WORD WHERE COMPLINEMT BIT IS LOCATED 
3061 : 2533 COMP~BIT. iBIT THAT IS COMPLINEMT 
3062 : 3334 BUF PO bitvector (16): iSTORES THE WORD IN WHICH THE BIT IS COMPLIMENTED 
3064 : 2536 COMP_WRD = .BITS_XFERED/16; 'CALCULATE THE COMP WORD 
3065 : 2537 COMP"BIT = .BITSXFERED mod 16; {CALCULATE THE COMP BIT 
3066 ; 2538 BUF_SAV = .J0_BUF [.COMP_WRDJ; iLOAD THE COMP WORD INTO BUF _SAV 
3067 ; 3939 10_BUF C.COMP“WRD] = ZEROES; i2ERO THE COMP WORD 
sis : 2342 if .BUF_SAV C.COMP_BIT] IS_NOT_SET then return ZERO else return ONE; 
3071 : 254 ‘FIND COMPLIMENTED BIT AND RETURN ERROR STATUS 
sone 3 2544 end: 
307 .SBTTL FIND.COMP.BIT 
3082 EPR 004167 166410 Aapebeaate” wis R1 ,SSAVE2 508 
S085 015484 905746 OO itt can el me 
fp Py ° * 
Bs 915443 G19746 900096 mY dei 
87 018489 010001 MOV RO.R1 : *,COMP.WRD 


744 
TS! 


? 
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FIND.COMP.BIT SEQ 0090 
1 $ 3ML4 14-May-1981 13 2:48:54 TOPS-20 Bliss-16 V2(212) 
; : 14-May-1981 15:05:08 PA:<NEALE>ML4.8L1.7 (11) 
135 ; set? routine FORCE_REM (PLOG, CHAN) : novalue = 
136 ; 248 begin 
137 ; 254 
138 ; 2548 = !+ 
139 ; 549 FUNCTIONAL ogg ny ee 
140 ; 550 ! VIA ECC_DM AND THE PRECALCULATED aaa é 

3141 ; 551 REMAINDERS STORED IN oF) TBLCI, 
31¢6 3 $226 i CRC_A,CRC_B eit PAR_C EoD 
143 ; 255 ! ARE’ FORCED WITH ERRONEOUS CRC DATA TO 
3144 ; 2554 :~(C! FORCE PERDICTABLE ECC ERRORS 
3145 ; 2555! 
3146 ;: $228 ' FORMAL PARAMETERS: 
3147 ; 255 ! PLOG 
3148 ; 2558 ! POINTS TO ONE OF THE SIX WORDS OF 
3149 ; 2559‘! A CRC GROUP 
3150 ; 2560 ! 
3151; 2561 =! CHAN 
e138 3 2562 =! POINTS TO ONE OF 36 CHANNELS IN 
3153 ; 2565 =! A CRC GROUP 
size : 2564 =! 
155 ; 2565 ! IMPLICIT INPUTS: 
3156 ;: 2566 N= 
3157 ; 2567 
3158 ; 2568 local 
3159 ; 2569 ALOG, 'INDEX INTO REM_TBL 
$199 3 $250 BLOG; 'INDEX INTO REM_TBL 
3162 ; $256 ALOG = .PLOG + .CHAN; ‘CALCULATE A_LOG 
$197 3 sor7 BLOG = .PLOG + | CHAN*2; 'CALCULATE B_ LOG 
3165 ; 2575 mite sa. 06 ge 4 63 do. 'REDUCE A_LOG UNTIL < 64 
3166 ; 2576 LOG - 
318 : $378 hil zovos 63 9. ‘REDUCE B_LOG UNTIL < 64 
; while . e .. ! < 
3169 ; 2579 BLO Bids - x“ 
3170 ; 2580 
3171; 2581 ECC_DM = ONE; 1SET ECC DIAG MODE 
a1 $ S286 PAR * C_ “WRD = -REM_TBL ([.PLOG); 'LOAD oA CRC_WRD wine REM_TBL 
3173 ; 258 CRC_A = -REM_ TBL C.ALOG); iLOAD CRC~A WITH REM |_TBL 
3174 ; 2584 CRC “B = .REM_TBL C. BLOG): 'LOAD Re 3 WITH REM_TBL 
fe 3 2585 end; 
180 -SBTTL FORCE.REM 
184 015602 _ FORCE .REM: 
185 015602 004167 166252 JSR R1,$SAVE3 3 2545 
186 015606 016600 000014 HOV 14(SP) RO 3; PLOG,* 2572 
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CE.RE SEQ 0091 
1 ZML4 14-May-1981 13:48:54 TOPS 
189 : 1e-mey= 198) 13:6808 Pace 
191 15612 910002 MOV RO.R2 3 *,AL0G 
198 1561 900012 ADD 12(SP) ,R2 : CHAN,ALOG 
193 015620 916601 01 MOV 12(SP)<R1 : CHAN,* 2573 
194 015624 1 ASL R1 
195 015 1 ADD RO.R1 
196 15630 020227 000077 1$ CMP R2,A77 : ALOG,* 2575 
197 0156 4 BLT 2 
198 015636 162702 000077 SUB #77 ,R2 3 *,AL0G 357 
199 01364 77 BR 1$ : 57 
1564 0127 000077 2$ CMP R1,477 + BLOG,* 2578 
1 01 3650 002403 3$ 
02 01565 162701 000077 #77,R1 : *,BLOG 579 
0 013696 00077¢ 2 : 578 
04 015 15277 609001 175406 38: #1, @ML.REG+120 ; 2581 
05 913666 116003 01 REM. TBL(RO) .R3 : 2582 
06 15672 00030 R 
07 015674 04270 140377 #140377,R3 
08 015700 7 05 400 175416 #37400 QML -REG+150 
09 915706 050377 175412 R3,aML.REG+1 
10 015712 11 3 013454 REM. TBL(R2),R ; #(ALOG),* 2583 
11 015716 042703 17 700 #177700, 
12 015722 042777 77 (175374 #77, aM .REG+150 
13 015730 050377 175370 R3,aML .REG+150 
14 015734 116103 013434 REM. TBL(R1) R3 ; *(BLOG),* 2584 
3215 015740 042703 177700 #177700, 
16 015744 042777 900077 175362 #77, aML .REG+160 
17 015752 050377 175356 R3,aML .REG+160 
5218 015756 000207 PC 2545 
3220 3; Routine Size: 55 words 
$555 3; Maximum stack depth per invocation: 4 words 
3227 
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14-May-1981 13:48:36 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALEDML4.BL1.7 (12) 


sae & 
P2] 
i. 


1 

32 4 3 2586 routine FOR_ECC_ERR (SGL, UNC) : novalue = 
3233 ; 2587 begin 
3234 ; 2588 
3235 ; 2589 4+ 
3236 ; 2590 =! FUNCTIONAL DESCRIPTION: 
$5%5 3 2591 =! "FORCE ECC ERROR’ WHEN CALLED WILL FORCE 

238 ; 2592 ~=(! VIA ECC DIAG MODE, SINGLE BIT ECC ERRORS 
3239 ; 2593 OR UNCORRECTABLE ECC ERRORS INTO THE 
3240 ; 2594 |! ECC DIAGNOSTIC REGISTERS 
3241 ;: 2595 =! 
3242 ;: 2596 |! FORMAL PARAMETERS: 
3243 ; 2597 =|! SGL 
3244 ; 2598 =! WHEN SET TO A ONE THIS 
3245 ;: 2599 =! ROUTINE WILL FORCE SINGLE BIT ERRORS 
3246 ; 2600 ! 
3247 ;: 2601 ! UNC 
3248 ;: 260 ! WHEN SET TO A ONE THIS ROUTINE WILL 
3249 ; 260 ' FORCE UNCORRECTASLE ECC ERRORS 
3250 ;: 2604 =! 
3251 ; 2605 ! IMPLICIT INPUTS: 
3252 : 2606 !-- 
3253 : 2607 
3254 ; 2608 ECC_DM = ONE; 'SET ECC DIAG MODE 
353? ; $090 if .SGL 'IF SGL IS TRUE 

3 Zz ! 

3257 ; 2611 then 
3258 ; 2612 poate 'THEN FORCE A SINGLE BIT ERROR 
3259 ;: 2613 PAR_CRC_WRD = %b°111111'; 
3260 ; 2614 CRC_A = %b'000000'; 
3261 ; 2615 CRC_B = %5'000000'; 
3262 ; 2616 en 
3263 ; 2617 else 
3264 ;: 2618 begin 'ELSE FORCE A UNCORRECTABLE ERROR 
3265 ; 2619 PAR_CRC_WRD = %b'111111"; 

3266 ;: 2620 CRC_A = %b°111111'; 

3267 ;: 2621 CRC_B = %b°000000'; 

3268 ; 262 end; 
3269 ;: 262 
3270 ; 2624 end; 
ie SBTT FOR.ECC.ERR 

a L o — 

3573 015760 FOR.ECC.ERR: 

3280 015760 152777 000001 175306 B1SB8 #1, QML .REG+120 3 
3281 015766 032766 000001 000004 BIT #1,4(SP) : *,SGL 
5 015774 001407 BEQ 1$ 

83 015776 052777 037400 175320 81s #37400, aML .REG+150 3 








SEQ 0092 














01 000077 175312 BIC #77 ,@ML .REG*+150 
016012 0004 BR 2s 

016014 052777 037400 175302 1S: BIS #37400,aML. ea 
016022 052777 000077 175274 BIS #77 QML .REG+150 
016030 042777 000077 175276 28: BIC #77, 0M. -REG+160 
016036 000207 RTS PC 


3; Routine Size: 24 words 
: Maximum stack depth per invocation: 


0 words 


14-May-1981 
14-May-1981 


xe 


ao 


on 
7 
nm 


Sessa 


a tt ape pe pepe pepe pepe pe pes 
A) ee ee ed ed ed ed od ed 
WN $9 ODONOULSWwIN—O 


WAWWAWWNANAANNWWWw 
&* 


WW 
ACI A A 
INFI OCB NOU 


3337 


“he LOGIC TEST 


. 


MASS 
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routine FIRST_BLK_XFER : novalue = 


ee 
i FUNCTIONAL DESCRIPTION: 

i A REPEATEDLY CALLED SEQUENCE OF 
ASSIGNMENT EXPRESSION TO LOAD 

THE DSA, BUS ADRS AND WORD COUNT 
REGISTERS WITH APPROPRIATE INFORMATION 
BEFORE MASS BUS TRANSFERS CAN 


LOADS A MASS_BUS BLOCK XFERR AT 
BLOCK ZERO. 


beg! 
ECC_DIS = ONE; 
MLDA = ZEROES; 

MLBA = BUF ; 

MLWC = not 255; 

end; 

-SBTTL FIRST.BLK.XFER 
FIRST.BLK.XFER: 

000002 175226 B1SB8 #2, @ML .REG*+120 
175132 CLR @ML .REG+ 
011600 175114 MOV #10.BUF ,aML .REG+20 
177400 175076 aad Sovee Oe. AEG* te 


3; Routine Size: 12 word 


14-May-1981 13:48: TOPS-20 Bliss-16 ss Se fh 
14-May-1981 13:05: (1 


4 
8 PA: <NEALE>ML4.8L1. ) 


ou 


!DISABLE ECC CORRECTION 

!LOAD THE DSA REG WITH SECTOR ZERO 

‘LOAD THE BUS ADDRESS REG WITH IO BUF ADRS 
'LOAD WORD COUNT REG WITH COMPLIMENT 256 


s 
3; Maximum stack depth per invocation: 0 words 


SEQ 0094 
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3 Maximum stack depth per invocation: 0 words 





FIRST. BLK.XFER SEQ 0095 
53 :ML4 14-May-1981 1 48:54 TOPS=20 Bliss-16 V2(212) 
24 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (14) | 
> j 
328 3 ett routine GD_BLK_XFER : novalue = 
$3 3 648 
358 ; 649 '++ 
359 : 650 ! FUNCTIONAL DESCRIPTION: 
360 ; 651 REPEA TEDLY CALLED SEQUENCE OF 
1: 654 i T EXPRESSIONS TO L | 
362 : 653! THE DSA NBUS ADRS AND WORD 
3363 ; 654 COUNT REGISTERS WITH APPROPRIATE | 
3364 : 655! INFORMATION BEFORE A MASS BUS 
365 : 656 i TRANSFERS CAN COMMENCE 
3366 ; 2657 =! 
3367 : 2658! LOADS A MASS BUS BLOCK XFERR 
3368 ;: 2659 =! AT THE GOOD BLOCK ADRS FOUND 
3369 ; 2660 ! BY THE READ WRITE ARRAYS WITH 
370 : 2661 =! PROM DATA TEST | 
3371 ;: 2662 =! | 
3372 : 2663 i-- 
3373 ; 2664 
3374: 2665 begin 
3375 : 2666 ECC_DIS = ONE; 'DISABLE ERROR CORRECTION 
3376 : 2667 MLDA = .GOOD BLK; iLOAD DSA REG WITH THE GOOD BLOCK ADRS 
3377 : 2668 MLBA = 10 BUF: ‘LOAD BUS ADRS REG WITH 10 
3378 : 2669 MLWC = not 255; ‘LOAD WORD COUNT REG WITH COMPLIMENT 256 
3379 ; 2670 end; 
3383 
3384 .SBTTL GD.BLK.XFER 
3388 016070 GD.BLK.XFER: 
3389 016070 152777 000002 175176 BISB #2,aML.REG+120 : 2666 
3390 91607 016777 173462 175100 MOV GOOD.BLK,aML .REG+30 3 2667 
391 016104 012777 011600 175062 MOV #10, BUF AL -REG*20 : 668 
392 016112 012777 177400 175044 MOV #~400, aML .REG+10 ; 669 
3393 016120 000207 RTS PC : 2647 
3395 ; Routine Size: 13 words 


“etd eh LOGIC TEST 


GD.BLK.X 


SESE F 


38 


REFSEESEEERELELEEESE 
POPONNONOY 2 es 


CONAVUSWN —OODNOULSWN—O 


NS 


35 ~ 
oo 


F_ 8 
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14-May-1981 1 13: :48:54  TOPS-20 Bliss-16 v2(212) 
14-May-1981 13:05:08 | PA:<NEALEDML4.BLJ.7 (15) 
routine LAST_BLK_XFER : novalue = 
'¢ 
i FUNCTIONAL DESCRIPTION 
i REPEATEDLY CALLED SEQUENCE OF 
i A SIGNMENT TeX PRE SSIONS TO LOAD 
i THE D RS AND WORD 
i COUNT SREGISTERS WITH APPROPRIATE 
i INFORMATION BEFORE A MBUS 
TRANSFER CAN COMMENC 
i LOADS A MASS BUS BLOCK 
i TRANSFER AT THE LAST BLOCK 
ADDRESS 
1 
begin 
ECC_DIS = ONE: !DISABLE ERROR CORRECTION 
MLDA = .LST BLK: iLOAD DSA REG WITH THE LAST BLOCK ADRS 
MLBA = 10 BOF: iLOAD BUS ADRS REG WITH THE IO BUF ADRS 
MLC = not 255; iLOAD WORD COUNT REG WITH COMPLIMENT B86 
end; 
.SBTTL LAST.BLK.XFER 
LAST.BLK.XFER: 
002 175144 BISB #2,aML.REG+120 : 
173436 175046 LST.BLK,aML.REG+30 : 
011600 175030 MOV rite BUF , aML .REG+20 : 
177400 175012 : 


MOV #~400,aML .REG+10 
RTS PC 


3; Routine Size: 13 wor 


rds 
+ Maximum stack depth per invocation: 


0 words 


SEQ 0096 


eee | 


CZMLACO ML-11 LOGIC TEST 
LAST .BLK.XFER 


Looe | 


Mini 
NOs 


BRERLSSS 


LSSHISARANASSSIF 


EEFELELEESERELSELESELESESE SELEY 
Sure 


Co 
~N 


KIRALLESS 


34 
34 
34 
34 
34 
395 


s 
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MACRO M1113 18-MAY-81 08:17 PAGE $12 
14-May-1981 13: 48:54 
14-May-1981 13:05:08 

routine TST_LNG_WAD (NIB_NUM, NIB_PAT, ERR_FLG) : novalue = 

gin 

lee 

i FUNCTIONAL DESCRIPTION: 

i COMPARES THE CURRENT NIBBLE 

POSIT ION IN "NIB_SAVE' WITH THE 

CURRENT TEST PATTERN. IF THE 

TWO VALUES ARE NOT EQUAL AN 

ERROR FLG IS SET WHICH THE 

CALLER CAN INTERIGATE 

i FORMAL PARAMETERS: 

i NIB_NUM 

CASE SELECT EXPRESSION TO SELECT THE 
CURRENT NIBBLE TO BE EXAMINED 


CURRENT NIBBLE PATTERN TO BE 
COMPARED 


ERR_FLG 
CONTAINS THE ng te + area BY REF) 


ENAB 0 EXAMINE 
i THE ERROR STATUS OF THE ROUTINE CALL 
i IMPLICIT INPUTS: 


N < 

BLOCK OF 3 WORDS TO STORE 

THE DATA FOUND IN MLD1, MLD2 

7 Aig AFTER A DIAGNOSTIC MODE 


: IMPLICIT OUTPUTS: NONE 
.ERR_FLG = ZERO; ‘CLEAR THE ERROR FLAG BACK IN THE CALLING ROUTINE 
case , (NIB_NUM) from 0 to 9 of ‘SELECT THE NIBBLE TO BE TESTED 
se 
(0) : 


if .NIB_SAVE C[NIB_0J neq .(NIB_PAT)<0, 4> then .ERR_FLG = 


!TEST NIBBLE 0 AND SET ERR FLG IF NEQ 


{iJ : 
if .NIB_SAVE [NIB_1] neq .(NIB_PAT)<O, 4> then .ERR_FLG = 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>ML4.BLI. 
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LAST .BLK.XFER SEQ 0098 
510 ;ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
“3! ; 14-May-1981 15:05:08 PA: <NEALE>ML4.BL1.7 (16) 
318 : % 'TEST NIBBLE 1 AND SET ERR FLG IF NEQ 
515 ; 2748 (2) : 

516 ; 749 
Ah 4 : es if .NIB_SAVE CNIB_2] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3519 ; 275 'TEST NIBBLE 2 AND SET ERR FLG IF NEQ 
3520 ; 275 
521; 2754 (3) : 
256 3 2755 
$257 : $f38 if .NIB_SAVE C(NIB_3] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3525 : 2758 'TEST NIBBLE 3 AND SET ERR FLG IF NEQ 
e256 3 2759 
3527 ;: 2760 (4] . 
3528 ; 2761 
$28) : 5768 if .NIB_SAVE C(NIB_4] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3531: 2764 'TEST NIBBLE 4 AND SET ERR FLG IF NEQ 
3532 ;: 2765 
3533; 5f06 (5] : 
3534 ; 276 , 
$232 3 $768 if .NIB_SAVE CNIB_5] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3537 : 2770 'TEST NIBBLE 5 AND SET ERR FLG IF NEQ 
3538 ; 2771 
3539 ;: 277. [6] : 
3540 ; 277 ; 
at : ooee if .NIB_SAVE C(NIB_6] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3543 ; 2776 'TEST NIBBLE 6 AND SET ERR FLG IF NEQ 
3544 ;: 2777 
3545 : 2778 {7] : 
3546 ;: 2779 
roth 3 $760 if .NIB_SAVE [NIB_7] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3549 : 278 'TEST NIBBLE 7 AND SET ERR FLG IF NEQ 
3550 ;: 278 
3551 ;: 2784 (8) : 
$226 ; 785 
$237 : rag if .NIB_SAVE CNIB_8] neq .(NIB_PAT)<0, 4> then .ERR_FLG = ONE; 
3555 : 788 'TEST NIBBLE 8 AND SET ERR FLG IF NEQ 
3556 : 789 
3557 ; 2790 (9) : 
558 ; 2791 
22) 3 $f if .NIB_SAVE CNIB_9] neq .(NIB_PAT)<0, 3> 
; en 
561 ; 794 -ERR_FLG = ONE 'TEST NIBBLE 9 AND SET ERR FLG IF NEQ 
266 3 795 tes; 
5635 ; 736 
564 ; 79 end; 





a= 


MACRO M1113 18-MAY-81 08:17 PAGE 114 


CZMLACO Mi-11 LOGIC TEST 


LAST.BLK.XFER 
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T.LNG.WRD SEQ 0100 
22 ZML4 14-May-1981 13:48:54 TOPS 
3 14-May-1981 13:05:08 PA:< 
5 016344 042701 177760 BIC #177760,R1 
6 O16 50 010702 172576 MOV NIB. SAVE ,R2 
16354 00620 ASR R 
8 O16 56 00620 ASR R 
9 016 00620 ASR R2 
016 00620 ASR : 
31 016364 00030 SWAB OR 
3632 016 042702 177760 BIC #177760,R2 
3 01637 020201 CMP Re R1 
34 016374 001524 BEQ 13$ 
35 016376 000521 BR 128 
3636 016400 016601 000012 6S: MOV 12(SP) ,R1 : NIB.PAT,* 2762 
37 016404 042701 177760 BIC #177760,R1 
3638 016410 016702 172540 MOV NIB. SAVE+2,R2 
39 016414 042702 177760 BIC #177760, 
3640 016420 920201 CMP é 
1 016422 001511 BEQ 13$ 
3648 016424 000506 BR 128 
364 016426 016601 000012 7$: MOV 12(SP),R1 : NIB.PAT,* 2768 
3644 016432 042701 177760 BIC #177760,R1 
3645 016436 016702 172512 MOV NIB. SAVE+2,R2 
3646 016442 00620 ASR R2 
3647 016444 006202 ASR R2 
8 016446 00620 ASR R2 
3649 016450 00620 ASR R2 
3650 016452 042702 177760 BIC #177760,R2 
3651 016456 020201 CMP R2,R1 
365¢ 016460 001472 BEQ 13$ 
3653 016462 00046 BR 12$ 
3054 016464 016601 000012 8$: MOV 12(SP),R1 : NIB.PAT,* 2774 
55 016470 042701 177760 BIC #177760,R1 
3656 016474 016702 172454 MOV NIB. SAVE+2,R2 
3657 016500 000302 SWAB sR 
3658 016502 042702 177760 BIC #177760,R2 
3659 016506 020201 CMP R2,R1 
3660 016510 001496 BEQ 13$ 
! Oreeie it tr 012 9$ ACV 1S cp) R1 NIB.PAT 2780 
: Py . o® 
ae 016520 645901 ants BIC #177760,R1 
016524 016702 172424 MOV NIB. SAVE+2,R2 
5 0165 006 0 ASR R 
016532 0 ASR R 
3667 16534 00620 ASR R 
b183 poen ASR R 
3669 16540 0 SWAB RR 
0 016542 2708 177760 BIC #177760,R2 
71 16546 20201 CMP Re R1 
es 1655 14 BEQ 13$ 
s b1ese4 tea 000012 10$ V 13¢sp) R1 NIB.PAT 7 
3 e . * 
75 016566 042701 atts BIC #177760,R1 eres 
76 016564 016702 172366 V NIB. SAVE +4 ,R2 





ee ee 
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TST.LNG.WRD SEO 0101 
78 IML 14-May-1981 13:48:5 TOPS 
3 14-May-1981 13:05: 38 PA:< 
1 01657 0 SWAB sR 
18372 029709 177760 BIC #177760.R2 
16576 020201 CMP a1 
16600 O014¢¢ BEQ age” 
5 01660 1 BR 128 
016604 91 1 900012 11$: MOV 12(SP) .R1 : NIB.PAT,* 2792 
016610 701 177770 BIC #177770,R1 
016614 016702 172336 MOV NIB. SAVE +4 ,R2 
9 916620 00620. ASR 
90 01 00620 ASR 4 
91 016624 006 0 ASR R 
4 016626 0 ASR R2 
93 016630 00030 SWAB sR 
94 016632 042702 177770 BIC #177770,R2 
95 016636 020201 CMP R2,R1 
96 016640 001402 BEQ 1 
97 016642 012710 000001 128: MOV #1, (RO) : 2794 
3698 016646 000207 13$: RTS PC : 2694 
3700 ; Routine Size: 158 word 
$0, : Maximum stack depth per ” tewsent tons 3 words 


~N 


370 
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ine ee SEQ 0102 RD. 


709 ;ML4 \e~fey~ 1301 13:48:54 TOPS=-20 Bliss-16 V2(212) 
at : 14-May-1981 13:66,08 em A hy at (17) 
a : 798 routine XCR_LNG_WRD (NIB_NUM, NIB_PAT, RESULT) : novalue = 
713 ; 799 begin 
714 ; 800 
715 ; 801 !+¢ 
rie ; 802 } FUNCTIONAL DESCRIPTION: 
717 ; $85 i EXCLUSIVE ORS THE CURRENT 
718 ; 804} IBBLE POSITION IN ‘'NIB_SAVE' 
719 ; 2805 =! WITH THE CURRENT TEST PATTERN 
720 ; gene ! AND ASSIGNS THE RESULTS TO THE 
r 1; 44 FORMAL PARAMETER ‘RESULT’. 
3758 3 2809 ! FORMAL PARAMETERS: 
3724 ; $oi9 5 
3725 ; 811 ! CAS peveet EXPRESSION TO 
726 ; seis : SELECT THE CURRENT NIBBLE TO BE 
727; 2813 ! EXAMINED 
3728 ; 2814 ! 
$555 3 2815 ! NIB_PAT 
3730 ; 2816 ! CURRENT NIBBLE PATTERN TO BE 
3731 ; 2817 ! xXOR'ED 
732; 2818 ! 
733; 2819 ! RESULT 
734; 2820 ! CONTAINS THE ADDRESS (PASSED BY REF) 
735 ; 2821 ! OF AN OWN STORAGE LOCAT T 
3736 3 $e56 : ENABLE THE CALLER TO EXAMINE THE XOR RESULTS. 
3738 ; 2824 =! tale || INPUTS: 
3739 ;: 2825! SAV. 
3740 ; 2826 =! BLOtk OF ; WORDS TO STORE 
3741 ; 2827 =! THE DATA FOUND IN MLD1 
3742 ;: 2828 =! MLD2 AND MLE2 AFTER A 
3743 ; 2829 ! DIAGNOSTIC MODE READ. 
3744; 830 ! 
3745 : 831 |! IMPLICIT OUTPUTS: NONE 
wei BR Is 
748 ; sexe case .(NIB_NUM) from 0 to 9 of 'SELECT THE NIBBLE TO BE XOR'ED 
3749 ;: 835 set 
3750 ;: S39 
751 ; 83 J: 
752 ; 838 -RESULT = .NIB_SAVE C(NIB_0J xor -NIB_PAT 
a}, 3 32> 'XOR NIBBLE i AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
755; 2641 3: 
736 : Beg eRESULT = .NIB_SAVE (NIB_1) xor -NIB_P. 
els ; Bez 'XOR "NIBBLE "j AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
759 ; 845 C2) : 
760 ; 74 eRESULT = .NIB_SAVE C(NIB_2) x xor -NIB_P. 
re) : 25g 'XOR "NIBBLE % AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
763 : 84 (3) : 
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TST.LNG.WRD SEQ 0103 
765 ;ML 14-May-1981 13: 48: 754 TOPS=-20 Bliss-16 V. sf ; 
v6 : 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1. 
768 ; 2850 -RESULT = .NIB_SAVE CNIB_ my re -NIB_PAT; 
As ; see NIBBLE $ AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
771 ; $ee6 4]: 
772 ; 2854 »RESULT = .NIB_SAVE (NIB_4] xor -NIB_PAT 
Ae 3 Spee 'XOR NIBBLE i AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
775 ; 2857 J: 
776 ; Sees eRESULT = .NIB_SAVE (NIB_5] xor -NIB_P 
Lads : $825 'XOR *NIBBLE "% AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
779 ; 2861 [6] : 
780 ; sacs «RESULT = .NIB_SAVE C(NIB_6] xor -NIB_P 
oes ; Seer 'XOR *NIGBLE. é AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
3783 ; 2865 (7] : 
3784 ; 2866 eRESULT = .NJB_SAVE (NIB_7] xor -NIB_P 
a2 : st 'XOR *NIBBLE "5 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
3787 ; 2869 [8] : 
3788 ; 2870 »RESULT = .NIB_SAVE (NIB_8] xor -NIB_P 
$055 : $855 'XOR NIBBLE VF AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
3791 ; 2873 [9] : 
3792 ; 2874 -RESULT = .NIB_SAVE CNIB_9] xor 
3793 ; 2875 'XOR “NIBBLE. 9 AND STORE RESULTS IN THE ADRS CONTAINED IN .RESULTS 
3794 ; 2876 tes; 
3795 ; 2877 
3796 ; 2878 end; 
3800 
3801 -SBTTL XOR.LNG.WRD 
3805 016650 XOR.LNG.WRD: 
3806 016650 004167 165222 JSR R1,$SAVE4 3 2798 
3807 016654 016601 000016 MOV 16(SP),R1 3 NIB.PAT,* 2838 
Sie SES HIStS tb me tea is 23 
e Py e e * 
3810 016670 b068 ASL RO 
3811 016672 066007 016676 ADD 1$(RO) ,PC 
aig 016676 000024 1$: «WORD $3-13 
13 016700 0000 . WORD $-1$ 
14 016702 ies «WORD 4$-1$ 
15 016704 0000 - WORD $-1$ 
snig 0167 000076 - WORD -1$ 
3817 016710 Bro gy - WORD $-1$ 
ssi8 016712 0001 - WORD -1 
19 016714 000144 WORD 10$-1$ 


CZMLACO ML-11 LOGIC TEST 
XOR D 


ee 
CONAU EWR é 


01671 
01672 
3 2 
167, $ 
0167 
0167 
016740 
3831 016742 
3836 016744 
33 016746 
34 016750 
35 016754 
tig 016756 
3? 016760 
3838 016764 
3839 310786 
eect 01677 
1 Bees 
sec8 017000 
3843 017004 
3844 017006 
3845 017010 
sec9 Bi eOle 
17014 
3848 017016 
3849 017022 
See) 17024 
51 017026 
se38 170 
3853 017032 
$28 A 
55 01704 
28 Oe 
57 01704 
58 Ha 
59 01705 
3860 017054 
3861 017056 
3066 17060 
A 
ses Sm 
17074 
171 
171 
so 
71 1911 
72 017112 
mB 
75 O17135 


_ = 

oa 

NEN 
aN ee 


——OOo0oD 
NRNMWWUS 


see 
Coon 
SINS 
RRGVORGR 


Oo 
=o 
Sues 

~N 


DRRLR 
RIN 


S 
GREEEESS 


sscceeeee 
aon o 
BERESES Seeees 


So 
= 
on 
SS 
RR 


$e 


= 
S 
R= 


—— 
RY 
oo— ~ 

IAIN 


—o 


172224 
177760 


172212 


177760 


172166 
172160 


172154 
177760 


172132 


172114 
172106 


172072 
177760 
172056 


177770 
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12$-1$ 
15$-1$ 

NIB AVE, (R2) 
a7? 60, (R2) 
NIB. SAVERS 
R 

R3 


R3 

R3 
#177760,R3 
R3,(R2) 

NIB. SAVE ,R4 


NIB. SAVE .R4 
NIB. SAVE +2, (R2) 
#177760, (R2) 


NIB. SAVE +2 ,R4 
R4 

R4 

R4 

R4 

14% 

NIB. SAVE +2 ,R4 
NIB. SAVE+2 ,R4 
R4 

R4 

R4 

R4 

13$ 
NIB.SAVE+4 ,R4 
1 aa 
NIB. SAVE +4 ,.R4 
R4 

R4 

R4 

R4 

R4 

#177770,R4 
R4,(R2) 


R1_R 
(RO) ,R3 


14-May-1981 
14-May-1981 


13: 
13: 


748: 


05: 





SEQ 0104 


54 
08 


TOPS 
PA:< 


2838 


2842 


2846 
2850 
2854 


2834 
2858 


2862 
2866 


2870 


2874 


cz? 
WR 
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R1, ot 
Sz (R2) 


z2@wo 
WVMnn 


I 
I 
T 


3; Routine Size: 89 word 


+ Maximum stack depth oer invocation: 


5 words 


14-May-1981 1 
14-May-1981 1 


SEQ 0105 
7:48:54 TOPS | 
7:05:08 PA:< | 

2798 | 


t 
















C 
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KOR .LNG.WRD SEQ 0106 





344 ALG 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
$698 ; 14-May-1981 13:05:08 PA: <NEALE>ML4. a 1.7 (18) 
2098 3 3 444 routine LD_LNG_WRD (NIB_NUM, NIB_PAT) : novalue = 
3897 ; 880 begin 
3898 ; 2881 
99 ; seas ‘ee 
900 ; 88 i iecnebin DESCRIPTION: 
901 ; 884 OADS "NIB_SAVE® WITH UNIQUE 
Sons 3 885 |! NIBBLE PATTERNS PRIOR TO WRITING 
$05 3 2886 =! TO MLD1, MLD2 AND MLE2 
904 ; 887 ! DATA DIAGNOSTIC REGISTERS. 
3905 ;: 888 
3906 ;: 889 ! FORMAL PARAMETERS: 
3907 ;: 2890 =! NIB_NUM 
3908 ;: 2891 ! CASE SELECT EXPRESSION TO SELECT 
3909 ;: 89 ! HE CURRENT NIBBLE TO BE |.OADED 
3910 ; 893! 
3911 ; 2894 ! 
3912 ;: 2895 =! SURRENT NIBBLE PATTERN TO BE 
3913 ; Sane ; LOADED 
3914 : 2897 : 
3915 ;: 2898 ! IMPLICIT INPUTS: 
3916 ;: 2899 =! NIB_SA 
3917 : 2900 ! BLOCK OF 3 WORDS TO STORE 
3918 : 2901 =! THE DATA TO BE WRITTEN 
3919 ;: $o08 4 INTO MLD1 MLD2 MLE2 
3920 ; 2903 ! 
3921 ; 2904 ! IMPLICIT OUTPUTS: 
3922 ;: 2905 =! NIB_SAVE IS LOADED WIH 
3923 ;: 2906 =! THE CURRENT NIBBLE PATTERN 
3924 ; 2907 !-- 
3925 ;: 2908 
3926 ;: 2909 case .(NIB_NUM) from 0 to 9 of !SELECT THE NIBBLE LOCATION IN NIB_SAVE TO BE LOADSD 
3927 ;: 2910 set 
$959 3 911 
4 : aig J): 
3934 é sora NIB_SAVE C[NIB_0] = .NIB_PAT; ‘LOAD NIBBLE 0 WITH NIB_PAT 
s938 : soi 1} : 
3933 : 916 NIB_SAVE (NIB_1) = .NIB_PAT; ‘LOAD NIBBLE 1 WITH NIB_PAT 
3934 ; 2917 
3935 ;: 18 }: 
3956 : 19 NIB_SAVE [NIB_2] = .NIB_PAT; 'LOAD NIBBLE 2 WITH NIB_PAT 
3938 ;: 1 ]: 
3959 ‘ NIB_SAVE [NIB_3) = .NIB_PAT; 'LOAD NIBBLE 3 WITH NIB_PAT 
1: 4 ): 
ny! 3 36 NIB_SAVE (NIB_4) = .NIB_PAT; !LOAD NIBBLE 4 WITH NIB_PAT 
4; J: 
45 3 $5 NIB_SAVE (NIB_5] = .NIB_PAT; ‘LOAD NIBBLE 5 WITH NIB_PAT 
$9e8 : 9 (6) : 


eC -- _ —_——— — 
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s23225 
Re 


3 
~ 
FNSESES 


Ean2833 


wm 
SOOQOOOOOooooooooooooooooeooo 


Oe ee at a a st 
SRVNSRERS 


= 


MOND 


NININININININININININ tt oe 


SRREREERESE ST 


MIMIMIMININNYD 


Vn ds & — ed ot et 


s 


Wr— 


eh a ad ee ek th a Se ee ts a a a st Ss SY 
NN 
Nm 


4 
4 


NN 
nor 


ss 





BOOSSOOO 
BIRARUS 


Rong 
wnr—0 0 


gscee 
as a 
esas 

rs 
orV228s 


= 


end; 


017152 


177760 
0000 


17 


177417 
000360 


170377 
007400 


MACRO M1113 





18-MAY~81 


NIB_SAVE (NIB_6] = 


33 
NIB_SAVE (NIB_7J 


J: 
NIB_SAVE (NIB_8] 


9]: 
NIB_SAVE (NIB_9) = 


171742 


171716 


171700 


1$: 


23: 


3$: 


4$: 





0.9 
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-NIB_PAT; 
-NIB_PAT; 
-NIB_PAT; 


.NIB_PAT 


-1$ 
#177760,R0 


#17 NIB. SAVE 
6$ 


R 
#177417 


RO 
#360,NIB. SAVE 
6$ 


RO 
#1703 


77,R0 
Si600 MIB. SANE 


RO 


14-May-1981 13:48:54 
14-May-1981 13:05:08 
'LOAD NIBBLE 6 WITH NIB_PAT 
'LOAD NIBBLE 7 WITH NIB_PAT 
!LOAD NIBBLE 8 WITH NIB_PAT 


'LOAD NIBBLE 9 WITH NIB_PAT 





SEQ 0107 


TOPS=20 Bliss-16 Vv2(212) 
PA: <NEALE>ML4 .BL1. 


eo 









4005 


283 


017256 

4009 017 ¢ 
4010 017 
4011 gi7 64 
pr A 17 
4013 017 
4014 017 
3 Se 
torr O1y3i5 
4018 017320 
4019 OI ase 
4020 017326 
4021 017326 
1856 0173. 
4023 017332 
4024 017336 
4025 017344 
4026 017346 
4027 017350 
4028 HEA S| 
rts 34 017 
4030 017364 
4031 017366 
1058 017370 
4033 017372 
4034 017374 
4035 017376 
036 0174 
4037 01741 
4038 017414 
4039 017416 
4040 01 
4041 017424 
4042 01 

4043 0174 
4044 017436 
4045 017440 
4 017442 
rire 
is Sts 
4050 017: 
4051 017464 
o036 017466 
405 

4054 

4055 


CZMLACO ML-11 LOGIC TEST 
LDO.LNG.WRD 


Rises 
esses 


RRS 

SNES 
WAS 
WNSNN 


Risese 
tsssss 


RiSessssuTes 
obeeee set 


3s 
w 
wn 


7777 
170000 
171646 


177417 
000360 


170377 
007460 


007777 
170000 
171540 


170377 
007400 


5 Ahk 
070000 
171472 
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171652 


171634 


171610 


171572 


171544 


171524 


171476 


ZML4 
ASL RO 
ASL RO 
ASL RO 
ASL RO 
BIC #7777,RO 
BIC #170000 ,NIB. SAVE 
68: BIS RO,NIB. SAVE 
7$: BIC #177760,R0 
BICB #17,NIB.SAVE+2 
BR 11$ 
8$ ASL 
ASL RO 
ASL RO 
ASL 
BIC #177617,R0 
BICB #360,NIB.SAVE+2 
BR 11$ 
9$ SWAB 


RO 
BIC #170377 ,R0 


BIC #7400,NIB.SAVE+2 

BR 11$ 
10$: SWAB RO 

ASL RO 

ASL RO 

ASL RO 

are 3D 77 RO 

BIC #170000,NIB. SAVE+2 
11$: BIS RO, NIB. SAVE +2 

BR 15$ 
128: SWAB RO 

BIC #170377,R0 

BIC #7400,NIB. SAVE+4 

BR 14$ 
13$: SWAB RO 

ASL RO 

ASL R 

ASL R 

ASL R 

BIC #107777,.R0 

BIC #70000 NIB. SAVE+4 
14$: BIS RO,NIB. SAVE +4 
15$: MOV (SP)+,R1 

RTS PC 


3; Routine Size: 111 word 
3; Maximum stack depth per 


s 
invocation: 


2 words 





14-May-19 
14-May-198 


_—— 
—— 
Ww 
= 
co 
w 





F_9 
CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 124 


LD.LNG.WRD SEQ 0109 . 
4061 ;ML4 14-May-1981 TOPS-20 Bliss-16 V2(212) 
rrr] : 14-May-1981 33 Ne Ley ae | 218) 

4064 ; soce routine WRT_CS1 (TST_PAT, index) : novalue = 

4065 ; 945 begin 

4066 ; soe8 

4067 ; 947 S44 

tee 3 age FUNCTIONAL DESCRIPTION: 

4070 ; 950 |! LOADS THE CONTROL & STATUS REGISTER 1 WITH A DATA PATTERN j 
pris 3 923 GENERATED BY THE MACRO WRT_MASK. 

40735 ;: 2955 ' FORMAL PARAMETERS: 

4074 ; 954 ! A 

4075 ; 2955 =|! CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

4076 ; 2956 =|! 

4077 ; 957 ! INDEX 

4078 ; 958 =! USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 

4079 ; 2959 =! FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
4080 ; 2960 =! 
4081 ; 2961 I= 
4082 ; 296 

4083 ;: 296 MLCS1 = WRT_MASK; 'LOAD GENERATED WRT_MASK PATTERN INTO MLCS1 | 
4084 ; 2964 end; 

4088 

4089  - Sie WRT.CS1 

4093 017470 004167 164350 WRT.CS1:JSR R1, 23 AVE2 ; 2944 
4094 017474 016600 000010 MOV 10(SP) ,RO 3: INDEX,* 2963 
4095 017500 006300 ASL RO 

4096 017502 006300 ASL RO 

4097 017504 006300 ASL RO 

4098 017506 010001 MOV RO, 
4099 017510 016100 013156 MOV Rene EG+2(R1),RO 

4100 017514 056600 000012 BIS 12(SP) ,RO 3; TST.PAT,* 

4101 017520 046100 013160 BIC MAL. REG+4(R1) RO 

4102 017524 016102 013162 ML .REG+6(R1) .R2 | 
4103 017530 P00. BIS RO, 

4104 017532 010277 173416 MOV R2,@ML.REG 

rh 64 017536 000207 RTS PC 3 2944 
4107 3; Routine Size: 20 words 

oi ; Maximum stack depth per invocation: 3 words 

4114 


ee ee ee eee 


sc 
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CZMLACO 
WRT.CS1 ci 
ne ¢ SEQ 0110 WR 
; 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
4117 : 12-0) 198] 13: ‘68:88 PA:<NEALE>ML4.BL1. 238) 
4119 ; 965 routine RD_CS1 (TST_PAT, index, ERR_FLG) : novalue = 
181 : 369 sh 
41 4 : 968 !++ 
412s : ; ° FUNCTIONAL DESCRIPTION: 
4125 : 971 COMPARES THE CONTENTS OF THE 
4126 ; 97 CONTROL & STATUS REGISTER 1 
aig? 373 WITH THE MASKED DATA PATTERN 
i133 3974 GENERATED BY THE MACRO 'WRT_MASK 
4130 ; 2976 = IF THE COMPARE IS NOT EQUAL THEN 
4131 3 977 THE FORMAL PARAMETER "ERR FLG' IS 
413¢ ; 3978 ASSIGNED A ONE TO INDICATE THE 
4134 : 980 } 
4135 ; 381 i FORMAL PARAMETERS: 
152 oe 1K 
; i DAT PATTERN TO BE MASKED AND 
4139 ; 985 : COMPARED AGAINST THE CONTENTS 
4140 e986 | OF THE REGISTER UNDER TEST. 
4142 : 2988 INDEX 
4143 ; 989 USED BY THE MACRO WRT_MASK TO 
4144 3990 | SELECT THE CURRENT REGISTERS ADDRESS, 
4145 3 o991 | FORCED HI, FORCED LO AND DON'T CARE 
4146 299¢ | SK INFORMATION. 
4149 oe i ERATALA 
; i CON AINS THE ADDRESS (PASSED BY REF) 
4150 ; 996 OF THE CALLERS ERROR FLG TO ENABLE THE 
4151 97 | CALLER to EXAMINE T HE ERROR STATUS 
4153 : 2999 i mao Srna 
cise: $EGP | MrLaCyT yrs: 
4196 ; 300 GETS LOADED WITH THE GENERATED 
4197 003 WRT MASK DATA PATTERN THUS ALLOWING 
4158 3003 : TO PRINT FAILING GOOD DATA. 
rs : 3009 Roe LOADED WIT 
; i WITH DATA READ FROM THE 
4162 ; 3008 REGISTER THUS ALLOWING CALLER 
4163 3009 TO PRINT FAILING BAD DATA. 
4165 ; 3011 i IMPLICIT OUTPUTS: 
4167 : 318 i tn ND RD SATA LOADED” TTA GOOD 
4168 ; 3014 & AND BAB REGISTER DATA 
4170 : 3016 





aan Hy 
H 9 
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SEQ 0111 
4172 sML4 efeyn 138 13:48:54 TOPS-20 Bliss-16 v2(212) 
4173 : 14-May-1981 13:05:08 PA:<NEALEDML4.B8L1.7 (20) 
4175 ;: 017 -ERR_FLG = ZERO; 'CLEAR ERROR FLAG 
4176 : 018 WT_DATA = WRT_MASK; 'SAVE THE DATA WRITTEN TO THE REGISTER 
aie 3 a4 RD_DATA = -MLTUS1 or .IGNORE; 'READ AND SAVE THE REGISTER 
S109 : 02) if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
4181 ; 028 'SET ERROR FLAG IF NEQ 
4182 ; 4 end; 
4186 
4187 -SBTTL RD.CS1 
4191 017540 004167 164300 RD.CS1: JSR R1,$SAVE2 3 5 
419¢ 017544 005076 000010 CLR a16(SP) t ERR.FLG 17 
4193 017550 016600 000012 MOV 12(SP),RO 3: INDEX,* 3018 
4194 017554 006300 ASL RO 
4195 017556 006300 ASL RO 
4196 017560 006300 ASL RO 
4197 017562 010001 MOV RO,R1 
4198 017564 016100 013156 MOV ML .REG+2(R1),RO 
4199 017570 056600 14 BIS 14(SP) ,RO ; TST.PAT,* 
4200 017574 046100 013160 BIC ML.REG+4(R1),RO 
4201 017600 016102 013162 MOV ML.REG+6(R1),R2 
este 017604 05000 BIS RO.R 
4203 017606 Bess 173314 MOV R2,WT.DATA 
4204 017612 017702 173336 MOV -REG,R2 3 3019 
4205 017616 05610¢ 013162 BIS ML.REG+6(R1) RZ 
4206 017622 010267 173302 MOV R2,RD.DATA 
4207 oreo 026767 173274 173274 CMP WT .DATA,RD.DATA 3 3021 
4 176 1403 BEQ 1 
4209 017636 012776 000001 000010 MOV #1,a10(SP) ; *,ERR.FLG 
259 017644 000207 1$: RTS PC 2 2965 
4212 ; Routine Size: 35 words | ‘ 
$si3 ; Maximum stack depth per invocation: 3 words 
4219 


FF 


9 
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SEQ 0112 
4221 ;ML4 14-May-1981 13269: %8 TOPS=20 Bliss=-16 V2(212) 
: : 14-May-1981 13:05:08 PA:<NEALE>ML4.B8L1.7 (21) 
$5Se 3 025 routine WRT_ER (TST_PAT, index) : novalue = 
4 3 0 § begin 
4 $$ 3 0 
4227 ; 028 !++ 
: $3 : : , FUNCTIONAL DESCRIPTION: 
? si 3 Oe : LOADS THE ERROR REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
4232 ; 3038 ' FORMAL PARAMETERS: 
4233 ; 034 ! 
4234 ; 3035 =! TST_PAT 
4235 ; 3036 =! CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
4236 ;: 3037 ! 
4237 ;: 3038 ! INDEX 
4238 ; 039 =! USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
4239 ; 040 ! FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
4240 ;: 3041 !-- 
4241 ; soc8 
4 vi 3 04 MLER = WRT_MASK; 'LOAD GENERATE WRT_MASK PATTERN INTO MLER 
4243 ; 3044 end; 
4247 
4248 -SBTTL oh Phi 
4252 017646 004167 164172 WRT.ER: JSR SAVE2 3 3025 
4253 017652 016600 000010 MOV RS RO 3; INDEX,* 3043 
4254 017656 006300 ASL RO 
4255 017660 006300 ASL RO 
4256 017662 006300 ASL RO 
4257 017664 010001 MOV RO.R 
4258 017666 016100 013156 MOV ReGe2(R1) -RO 
4259 017672 056600 12 BIS 12(SP) RO 3; TST.PAT,* 
4260 017676 046100 013160 BIC ML.REG+4(R1),RO 
4261 017702 016102 013162 MOV ML .REG*6(R1).R2 
4262 017705 05000. BIS RO,R2 
4263 017710 010277 173320 MOV Re. aMiL .REG*60 
$566 017714 000207 RTS ; 3025 
4266 3; Routine Size: 20 word 
$582 + Maximum stack depth oat invocation: 3 words 
427 


CZMLACO ML-11 LOGIC TEST 
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14-May-1981 13: 748:54 
14-May-1981 13:05:08 


routine RD_ER (TST_PAT, index, ERR_FLG) : novalue = 
begin 


lee 
! FUNCTIONAL DESCRIPTION: 


Se a a te te te te te te te 


COMPARES THE Th OF THE 
ERROR REGISTER WItH 

THE MASKED DATA PATT ERN 
GENERATED BY THE MACRO ‘WRT_MASK'. 


. THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG' IS 
ae A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT _MASK TO 
SELECT THE CURRENT REGISTERS ay ee 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS ey BY REF) 
OF THE ee ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT_D 


A 
GETS LOADED WITH THE GENERATED 
WRT_MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 


GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS=20 
PA: <NEAL 


;- 


= 


is 


@ 


"| 


oa 


I 


‘<= 


¢ 


an 


12) 
22) 


SEQ 0113 


ia. oh 


rd 
wR 
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SEQ 0114 RD. 
4331 :ML4 14-May-1981 1 48:54 TOPS-20 Bliss-16 vg (212) 
4 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (22) 
4334 ; 097 
4335 : 098 .ERR_FLG = ZERO; 'CLEAR THE ERROR FLAG 
4336 ; 099 WT_DATA = WRT_MASK; iSAVE THE DATA WRITTEN TO THE REGISTER 
4337 : 100 RD-DATA = .MLER or .IGNORE; iREAD AND SAVE THE REGISTER 
4339 : 108 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
4341 : 104 'SET ERROR FLAG IF NEQ 
4342 ; 105 end; 
4346 
4347 .SBTTL RD.ER 
4351 017716 004167 164122 RD.ER: JSR R1,$SAVE2 : 3045 
017722 005076 000010 CLR @10(SP) t ERR.FLG 3098 

4353 017726 016600 000012 MOV 12(SP) ,RO > INDEX,* 3099 
4354 017732 006300 ASL RO 

55 017734 300 ASL RO 
4356 017736 300 ASL RO 
4357 017740 010001 MOV RO,R1 

358 017742 016100 013156 MOV ML .REG+2(R1),RO 
4359 017746 056600 000014 BIS 14 (SP) ,RO : TST.PAT,* 
4360 017752 046100 013160 BIC ML.REG+4(R1),RO 
4361 017756 016102 013162 MOV ML -REG+O(R1) .Re 
4362 017 95000¢ BIS RO.R 
4363 017764 01026 173136 MOV R2.WT.DATA 
4364 017770 017702 173240 MOV aM .REG+60,R2 ; 3100 
4365 017774 05610¢ 013162 BIS ML .REG+6(R1) ,R2 

0 01026 173124 MOV R2,RD.DA 

4367 020004 026767 173116 173116 CMP WT.DATA,RD.DATA : 3102 
4368 020012 001403 BEQ 1 
4369 020014 012776 000001 000010 MOV #1,a10(SP) : *,ERR.FLG 
4370 020022 000207 1$: RTS PC : 3045 
4372 ; Routine Size: 35 words : 
oes 3; Maximum stack depth per invocation: 3 words 
4379 


Os? eo 


g 
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SEQ 0115 
4381 :ML4 Je~feyn 158! | TOPS-20 Bliss-16 V2(212) 
: : 14-May-1981 ‘38 PA: <NEALE>ML4.8L1.7 (23) 
4384 ; 106 routine WRI_DA (TST_PAT, index) : novalue = 
4385 ; 107 begin 
oees : 108 
ret 3 109 !4+ 
rer} : 119 FUNCTIONAL DESCRIPTION: 
$300 3 Ng : LOADS THE DESIRED SECTOR WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
4392 : 114 ! FORMAL PARAMETERS: 
4393 ;: aE ! 
43% ; 116 ! TST_PAT 
ote 3 : : ‘ CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
4397 ;: 119 ~! INDEX 
4398 ;: 139 ' USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
4399 ; 1271 ! FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
tor : 3158 
4402 ; 3124 MLDA = WRT_MASK; 'LOAD MLDA WITH GENERATED WRT_MASK PATTERN 
4403 ; 3125 end; 
4407 
44 -SBTTL WRT.DA 
ais 020024 004167 164014 WRT.DA: JSR R1,$SAVE2 3 3106 
4413 020030 016600 000010 MOV 10(SP) ,RO : INDEX,* 3124 
4414 020034 006300 ASL RO 
4415 020036 006300 ASL RO 
4416 020040 006300 ASL 
4417 020042 010001 MOV RO.R 
4418 020044 016100 013156 MOV mi ReGe2(Ri). RO 
4419 020050 056600 000012 BIS 12(SP) ,RO 3; TST.PAT,* 
4420 020054 046100 013160 BIC ML .REG+4(R1),RO 
és! 020060 016102 013162 MOV 4 . G+6(R1).R2 
44 § 020064 05000 BIS 
4423 020066 010277 173112 MOV Re aA .REG*30 
$658 020072 000207 RTS 3 3106 
4426 ; Routine Size: 20 word 
ry (4 : Maximum stack depth + invocation: 3 words 
443 
SE ee eee To 
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SEQ 0116 wRI 
4435 :ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
44 : 14-May-1981 13:05:08 PA:<NEALEDML4.BL1.7 (24) 
44638 ; 1 $ routine RD_DA (TST_PAT, index, ERR_FLG) : novalue = 
4439 ; 1 begin 
4440 ; 128 
4441 ; 193 'e¢ 
rrr 3 13 FUNCTIONAL DESCRIPTION: 
4444 ; 136 ! COMPARES THE CONTENTS OF THE 
4445 ;: 133 =! DESIRED SECTOR ADDRESS REGISTER 
4446 ; 134! TH THE MASKED DATA PAT 
rid 3 13? GENERATED BY THE MACRO ‘WRT_MASK' 
4449 ; 3137 |! IF THE COMPARE IS NOT EQUAL THEN 
4450 ; 3138 =! THE FORMAL PARAMETER ‘ERR_FLG' IS 
4451 ; 3139 |! ASSIGNED A ONE TO INDICATE THE 
4452 ; 3140 ! ERROR 
4453 ; 3141! 
4454 ;: 314¢ ' FORMAL PARAMETERS: 
4455 ; 3143! 
4456 ;: 3144! TST_PAT 
4457 ;: 3145! DATA PATTERN TO BE MASKED AND 
4458 ; 3146 ! COMPARED AGAINST THE CONTENTS 
4459 : 147! OF THE REGISTER UNDER TEST 
4460 ; 3148 =! 
4461 ; 3149 |! INDEX 
4462 ; 3150 ! USED BY THE MACRO WRT_MASK TO 
4463 ;: 3151! SELECT THE CURRENT REGISTERS ADDRESS, 
64; 3138 ! FORCED HI, FORCED LO AND DON'T CARE 
4465 ; 3153! MASK INFORMATION 
4466 ; 3154! 
4467 ; 3155! ERR_FLG 
4468 ; 3156! CONTAINS THE ADDRESS (PASSED BY REF) 
4469 : 3122 ! OF THE CALLERS ERROR FLG TO ENABLE THE 
4470 ;: 158 ! CALLER TO EXAMINE THE ERROR STATUS 
4471 ; 3159} OF THE ROUTINE CALL. 
4472 ;: 160 ! IMPLICIT INPUTS: 
4473 ;: 161 ! WT_D 
4474 ;: 16¢ ! GETS LOADED WITH THE GENERATED 
4475 : 3163! WRT_MASK DATA PATTERN THUS ALLOWING 
4676 : sie ! CALCER TO PRINT FAILING GOOD DATA. 
4477 ; 165 ! 
4478 ; 166 ! RD_DATA 
4479 ;: 167 ! GETS LOADED WITH DATA READ FROM THE 
4480 ; 168 =! REGISTER THUS ALLOWING CALLER 
oe] 3 2 : TO PRINT FAILING BAD DATA, 
4483 ; 171 ! IMPLICIT OUTPUTS: 
4484 ; Ie ! GLOBAL LOCATION WR_DATA 
4485 ;: 173 =! AND RD_DATA LOADED WITH GOOD 
4486 ; 174 ~! AND BAD REGISTER DATA 
4487 ; 175! 
4488 ; 3176 lee 
4489 ; 17 
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SEQ 0117 
6491 :ML4 14-May-1981 13:48:54 § TOPS-20 Bliss-16 V2(212) 
449e : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (24) 
469% ; 178 .ERR_FLG = ZERO; 'CLEAR THE ERROR FLAG 
4495 : 179 WT_DATA = WRT_MASK; iSAVE THE DATA WRITTEN TO THE REGISTER 
o636 : 180 RD-DATA = .MLDA or . IGNORE; 'READ AND SAVE THE REGISTER 
4498 : 182 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
4500 : 3184 'SET ERROR FLAG IF NEQ 
4501 ; 185 end; 
4505 
45 .SBTTL RD.DA 
4510 92007% 004167 163744 RD.DA: JSR R1,$SAVE2 ; 3126 
4511 020100 005076 00001 CLR a16(SP) t ERR.FLG 3178 
alg 020104 016600 00001 V 12(SP) ,RO : INDEX,* 3179 
4513 020110 006300 ASL RO 
4514 020112 006300 ASL RO 
4515 020114 006300 ASL RO 
4516 020116 910001 MOV RO,R1 
4517 0201 16100 013156 MOV ML .REG+2(R1),RO 
4518 020124 056600 000014 BIS 14(SP) ,RO : TST.PAT,* 
4319 020130 046100 013160 BIC ML.REG+4(R1),RO 
4520 020134 016102 013162 MOV -REG+6(R1) ,R2 
4521 020140 05000. BIS RO.R 
45 920142 01026 172760 MOV R2.WT.DATA 
4523 020146 017702 17303 MOV aM .REG+30,R2 ; 3180 
4526 020152 056102 01316 BIS Mi, .REG*6 (RI) .R2 
4525 020156 01026 172746 MOV R2,RD.DAT 
4526 020162 026767 172740 172740 CMP WT.DATA,RD.DATA : 3182 
4527 020170 001403 BEQ 1 
4528 020172 012776 000001 000010 MOV #1,a10(SP) : *,ERR.FLG 
49¢8 020200 20 1$: RTS PC : 3126 
4531 ; Routine Size: 35 words — F 
$33 ; Maximum stack depth per invocation: 3 words 
4538 


0 
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RD.DA SEQ 0118 | 


IML4 14-May-1981 | TOPS=20 Bliss-16 V2(212) 
: 14-May-1981 ‘3 ‘38 PA:<NEALEML4.BLI.7 (25) 
s 196 routine WRT_MR (TST_PAT, index) : novalue = 
: 18 begin 
3 188 
: 189 !4+ 
; oe i FUNCTIONAL DESCRIPTION: | 
: 3198 i LOADS THE MAINTENANCE REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK | 
; 3194 i FORMAL PARAMETERS: 
; 3196 
; 3197 LORRENT DATA PATTERN TO BE LOADED IN THE REGISTER. | 
° | 
: 3199 | INDEX 
: 3200} USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, | 
: $30 * FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. | 
; 320 
: 3204 MLMR = WRT_MASK; 'LOAD MLMR WITH GENERATED WRT_MASK PATTERN 
: 3205 end; 
? .SBTTL WRT.MR 
020202 004167 163636 WRT.MR: JSR R1,$SAVE2 3 3186 | 
20206 016600 000010 MOV 10(SP) RO + INDEX,* 3204 | 
4573 020212 006300 ASL RO | 
020214 006300 ASL RO 
020216 006300 ASL 0 
020220 010001 MOV 0.R 
4577 020222 016100 013156 MOV AL -REGS2CR), RO 
020226 056600 000012 BIS eyes ; TST.PAT,* 
4579 020232 046100 013160 BIC ML. Sr esecR1), RO 
020236 016102 013162 MOV ML .REG+6(R1) .R2 
020242 050002 BIS RO.R 
020244 010277 173024 MOV R2.aML .REG+120 | 
020250 000207 RTS PC : 3186 


; Routine Size: 20 words — : 
3; Maximum stack depth per invocation: 3 words 
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routine RD_MR (TST_PAT, index, ERR_FLG) : noval 
begin 


lee 
! FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
MAINTENANCE REGISTER WITH THE 
MASKED DATA PATTERN 

GENERATED BY THE MACRO ‘WRT_MASK'. 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG’ IS 
mee? A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT _MASK TO 
73834 THE lowe oad REGISTERS er? ae 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR 
EONTATNS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ge FLG TO ENABLE THE 
CALLER TO oe HE ERROR STATUS 

OF. THE ROUTINE CALL. 


PAN (on 


woes LOADED A THE GENERATED 
WRT _MASK DATA PATTERN THUS ALLOWING 
CALLER TO PRINT FAILING GOOD DATA. 


ATA 
ETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING A Lee 

10 PRINT FAILING BAD DAT 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DAT 
AND RD_DATA LOADED wI 1H GOOD 
AND BAD REGISTER DATA 


14-May-198 
14-May-198 


uve = 


TOPS-20 Bliss-16 Vv2(212) 
PA:<NEALE>ML4.B8L1.7 (26) 


SEQ 0119 
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6 
° 
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° 
. 
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° 
6 
. 
e 
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° 
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-ERR_FLG = ZERO; 
-MLAR or . IGNORE; 
if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; !READ THE REG FOR WRT_MASK 


RhoRoroToTnonornery 
PAN Se RA eH 
USEWN—O Oe 
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ion 
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N 
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ow 
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; Routine Size: : : 
3; Maximum stack depth per invocation: 3 words 
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RD.MR 
R1.$SAVE2 
a10(SP) 

12(SP) .RO 


RO 


R1 
REG*2(R1) RO 
G+4(R1) RO 


c£vwDwWyN 
=romm OD 


ML 
ML. 
RO 
R2 


R2,RD.DATA 
WT.DATA,RD.DATA 


#1,a10(SP) 
PC 


35 words 


14-May-1981 13:48:54 TOPS=-20 Bliss-16 ve (ete) 
14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (26) 


‘CLEAR THE ERROR FLAG 
'SAVE THE DATA WRITTEN TO THE REGISTER 
‘READ AND SAVE THE REGISTER 


'SET ERROR FLAG IF NEQ 


+ ERR.FLG 
3 INDEX,* 


; TST.PAT,* 


G*6(R1) ,R2 


; *,ERR.FLG 
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4700 :ML4 Ve-Rev= 90! 13 254 TOPS=20 Bliss-16 V2(212) 
peat 3 14-May-1981 :08 PA:<NEALE>ML4.8L1.7 (27) 
4703 ; 267 routine WRT_PA (TST_PAT, index) : novalue = 

4704 ; 268 begin 

4705 ; 269 

$708 : 270 !44 

4707 ; 271 i FUNCTIONAL DESCRIPTION: 

4708 ; 7 i LOADS THE PROM ADDRESS REGISTER WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
47 s 7 ' FORMAL PARAMETERS: 

4710 ; 3274 =! TST_PA 

tat HY 3306 CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 

4713 ; Tr hU USED BY THE MACRO WRT _MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 

4714 ; 3278 =! FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 

4715 ; 3279 b= 

4716 : 3280 

4717 ; 3281 PROM_DIS = ONE; 'SET PROM DISABLE BIT 

4718 ;: 28. MLPA = WRT_MASK; !LOAD MLPA WITH GENERATED WRT_MASK PATTERN 
4719 ;: 28 PROM_DIS = “ZERO: iCLEAR PROM DISABLE BIT 

4720 ; 284 end; 

4724 

4725 -SBTTL WRT.PA 

4729 020360 004167 163460 WRT.PA: JSR R1,$SAVE2 3 

4730 020364 152777 000040 172702 81S8 #4), ant. REG*+120 3 

4731 020372 816600 000010 MOV RO 3 INDEX,* 

rie 020376 ASL ae 

4733 020400 006300 ASL RO 

4734 020402 006300 ASL 

4735 020404 010001 MOV RO,R1 

4 0204 016100 013156 Or 3 Bt > heed 

4737 020412 056600 $0035 BIS 12(SP),R 3; TST.PAT,* 

4738 psoei8 046100 013160 BIC ML .REG*+4(R1),RO 

4739 0 016102 013162 MOV ML .REG*+6(R1) *R2 

4740 0 6 05 BIS ag ek 

4741 Bsve 010277 172620 MOV SAL. REG*+100 

4742 020434 142777 000040 172632 BIB m6. aML .REG*+120 : 

ore? 020442 000207 RTS 3 

4745 ; Routine Size: 26 words — : 

arse ; Maximum stack depth per invocation: 3 words 

4752 


SEQ 0121 


3283 
3267 
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4754 :ML4 14-May-1981 13:48:54 

4735 : 14-May-1981 13:05:08 

ers? 3 3H ae (TST_PAT, index, ERR_FLG) : novalue = 
° n 

4759 : $e ° 

4760 : 288 !++ 

4761 : 389 i FUNCTIONAL DESCRIPTION: 

t7e8 : $91 COMPARES THE CONTENTS OF THE 

4764 : $96 i PROM ADDRESS REGIS 

4765 : $93 i WITH THE MASKED DATA PATTERN 

4766 3 $94 GENERATED BY THE MACRO 'WRT_MASK'. 

4768 : 3296 IF THE COMPARE IS NOT EQUAL THEN 

4769 : 297 I THE FORMAL PARAMETER ‘ERR FLG' IS 

4770 ; 298 ASSIGNED A ONE TO INDICATE THE 

4772 : 3300 i 

4775 ; 3301 ; FORMAL PARAMETERS: 

4775 : 3303! DATA PATTERN TO BE MASKED AND 

4776 : 3304 i COMPARED AGAINST THE CONTENTS 

4777 ; 3305 OF THE REGISTER UNDER TEST. 

4779 : 3307 | INDEX 

4780 : 3308 i USED BY THE MACRO WRT_MASK TO 

4781 : 3309 SELECT THE CURRENT REGISTERS ADDRESS, 

4782 ; 3310 | FORCED HI, FORCED LO AND DON'T CARE 

4785 ; 3311 ; MASK INFORMATION. 

4785 : 3315 i 

4786 : 3314 CONTAINS THE ADDRESS (PASSED BY REF) 

4787 : 3315 i OF THE CALLERS ERROR FLG TO ENABLE THE 

4788 : 3316 CALLER TO EXAMINE THE ERROR STATUS 

4789 ; 3317 =: OF THE ROUTINE CALL. 

4791 3 3319 : IMPLICIT T INPUTS: 

4793 : 321 i "gets LOADED iT THE GENERATED 

479% : 328 i MASK DATA PATTERN THUS ALLOWING 

4795 ; 3323 ; CRLCER TO PRINT FAILING GOOD DATA. 

4797 : 3305 I TA 

4798 : 3326 i GETS LOADED WITH DATA READ FROM THE 

4799 : 3327 | REGISTER THUS ALLOWING CALLER 

4800 ; 328 TO PRINT FAILING BAD DATA. 

4802 : 35 i IMPLICIT OUTPUTS: 

4803 : 337 I GLOBAL LOCATION WR_DAT 

4804 ; 333 i AND RD_DATA LOADED OTH GOOD 

4805 ; 333 AND BAD REGISTER DATA 

4807 : 3336 ine 

4808 : 3336 


SEQ 0122 RC 


TOPS-20 Bliss-16 i itt 
PA: <NEALE>ML4.BL1.7 (28) 


] 
0 
CZMLACO ML=11 LOGIC TEST MACRO M1113. 18-MAY-81 08:17 PAGE $35 
WRT.PA SEQ 0123 | 
4810 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) | 
4g] : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (28) 
oBig : 3337 -ERR_FLG = ZERO; 'CLEAR THE ERROR FLAG 
4814 : 338 PROM-DIS = ONE; iSET THE PROM DISABLE BIT 
4815 : 3339 WT_DATA = WRT_MASK; iSAVE THE DATA WRITTEN TO THE REGISTER 
4816 ; 3340 RD-DATA = .MLPA or . IGNORE; iREAD AND SAVE THE REGISTER 
4818 : 3342 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
4820 : 3344 PROM_DIS = ZERO; 'SET ERROR IF NEQ 
482) ; 3345 end: iCLEAR THE PROM DISABLE BIT 
4826 .SBTTL RD.PA 
4830 020444 004167 163374 RD.PA: JSR R1.$SAVE2 ; 3285 
4831 020450 005076 00001 CLR @10(SP) t ERR.FLG 3337 
020654 152777 000040 172612 BISB #40,aML.REG+120 : 3338 
4833 020462 016600 000012 MOV 12(§P) RO : INDEX,* 3339 
020466 006300 ASL RO 
4835 020470 006300 ASL RO 
4836 020472 006300 ASL 0 
4837 020474 010001 MOV RO.R1 
4838 020476 016100 013156 MOV ML .REG+2(R1),RO 
4839 020502 056600 000014 BIS 14(SP),R : TST.PAT,* 
4840 020506 046100 013160 BIC ML .REG+4(R1) RO 
4841 020512 016102 013162 MOV ML .REG+6(R1) .R2 
4842 020516 050002 BIS RO,R2 
4843 020520 010267 172402 MOV R2.WT.DATA 
4844 020524 017702 172524 MOV ami .REG+100,R2 : 3340 
4845 020530 056102 013162 BIS ML .REG+6(R15,R2 
4846 020 010267 172370 MOV R2,RD.DATA 
4847 020 026767 172362 172362 CMP WT.DATA,RD.DATA : 3342 
4848 020546 001403 BEQ 1$ 
4849 020550 012776 000001 000010 MOV #1,a10(SP) : *,ERR.FLG 
4850 020556 142777 000040 172510 158: BICB ©: #40, aML.REG+120 : 3344 
4851 020564 000207 RTS PC : 3285 
485 : Routine Size: 41 words | : 
rr t23 ; Maximum stack depth per invocation: 3 words 
4860 


H_10 
CZMLACO ML=-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 139 C2 
RD.PA SEQ 0124 WR 
rer 3ML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
4865 ;: 14-May-1981 13:60,08 PA: <NEALE>ML4.BL1.7 (29) 
4865 ; 3348 routine WRT_E1 (TST_PAT, index) : novalue = 
re +4 J 3 begin 
4867 ; 3348 
4868 ; ch 'o+ 
4869 ; 50 FUNCTIONAL DESCRIPTION: 
4870 ; 351 ! S THE ECC CRC WORD REG 7 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
dare 332g | FORMAL AAT eR 
re 144 3 $aee : CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
4875 ; 3356 =! USED BY THE MACRO WRT_MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
4876 ; 3357 =! FORCED H1, FORCED LO AND DON'T CARE MASK INFORMATION. 
4877 : 3358 !<- 
4878 ; 3359 
4879 ; 3360 ECC_DM = ONE; 'SET ECC DIAG MODE 
4880 ; 3361 MLET = WRT MASK; 'LOAD MLE1 WITH GENERATED WRT_MASK PATTERN 
4881 ; $ac8 ECC_DM = ZERO; 'CLEAR ECC DIAG MODE 
4882 ; 336 end; 
4886 
4887 -SBTTL WRT.E1 
4891 020566 004167 163252 WRT.E1: JSR R1,$SAVE2 3 3346 
4892 020572 152777 000001 172474 B1SB #1,@ML .REG+120 ; 3360 
4893 02 016600 000010 MOV 10(SP),RO 3: INDEX,* 3361 
94 0 006300 ASL 
4895 020606 006300 ASL RO 
96 020610 006300 ASL 

4897 020612 010001 MOV ° 

020614 016100 013156 MOV -REG*2(R1),RO 
4899 020620 056600 000012 BIS 12(SP) ,RO ; TST.PAT,* 

020624 046100 013160 BIC ML .REG+4(R1) RO 
4901 0206 016102 013162 ML .REG+6(R1) .R2 
4902 020634 990005 BIS RO.R2 
4903 020636 Hs 3 172462 MOV R2,@ML.REG+150 
4 20642 142777 000001 172424 pie #1, 
pi 020650 2 RTS PC 3 346 
& 
4907 ; Routine Size: 26 word 
rhs 44 : Maximum stack depth + invocation: 3 words 
4914 


@ML -REG+120 : 3362 
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WRT .E1 SEQ 0125 


4916 :ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
r) AE 4 : 14-May-1981 13:05:08 PA: <NEALE>ML4.B8L1.7 (30) 
4919 ; 3306 routine RD_E1 (TST_PAT, index, ERR_FLG) : novalue = 
4920 ; 5 begin 

4921 ;: 306 

49 § 3 367! 44 

1352 : 308 : FUNCTIONAL DESCRIPTION: 

4925 ; 370 ! COMPARES THE CONTENTS OF THE 

4926 ;: 371 ! ECC CRC WORD REGISTER 1 ' 
4927 ; 33/6 : WITH THE MASKED DATA PATTERN 

1358 3 $357 : GENERATED BY THE MACRO ‘WRT_MASK' 

4930 ;: 3375 =! IF a | COMPARE IS NOT EQUAL THEN 

4931 ; #959 4 THE FORMAL PARAMETER ‘ERR_FLG' IS 

rh 3 $350 } ASSIGNED A ONE TO INDICATE” THE ERROR. 

4934 ; 3379 ! FORMAL PARAMETERS: 

4935 ; 3380 ! 

4936 : 3381 ! DATA PATTERN TO BE MASKED AND 

4937 ;: $356 ¢ COMPARED AGAINST THE CONTENTS 

4938 ;: 338 : OF THE REGISTER UNDER TEST. 

4939 ; 3384 ! 

4940 ;: 3385 =! EX 

4941 ; 3386 =! USED BY THE MACRO WRT_MASK TO 

4942 ; 3387 ! SELECT THE Sian oad REGISTERS ae? ie 

4943 ; 3388 =! FORCED HI, FORCED LO AND DON'T CARE 

4944 ; 3389 =! MASK INFORMATION. 

4945 : 3390 |! 

4946 ; 3391 =! ERR_FLG 

4947 ; 339 § CONTAINS THE ADDRESS (PASSED BY REF) 

4948 ;: 339 § OF THE CALLERS ERROR FLG TO ENABLE THE 
4949 ; 3394! CALLER TO EXAMINE THE ERROR STATUS 

4950 ; 3395! OF THE ROUTINE CALL. 

4951 ;: 3396 =! 

4952 : 3397 ! IMPLICIT INPUTS: | 
4953 ; 3398 =! WT_DA 

4954 ; 3399 |! GETS LOADED WITH THE GENERATED 

4955 : rts : WRT_MASK DATA PATTERN THUS ALLOWING 

4956 ;: 01 ! CALCER TO PRINT FAILING GOOD DATA. 

4957 : t's} ! 

4958 ;: 340 ’ D_DATA 

4959 ;: 3404 ! GETS LOADED WITH DATA READ FROM THE 

4960 ; 05 ! REGISTER THUS ALLOWING CALLER 

4961 ; 3 ' TO PRINT FAILING BAD DATA. 

rhs 1 5 07 ! 

4963 ; 08 ! IMPLICIT OUTPUTS: 

4964 ; 3409 ! GLOBAL LOCATION WR_DATA 

4965 ; 3410 ! AND RD_DATA LOADED WITH GOOD 

£966 3 3411 ! AND BAD REGISTER DATA 

4967 ; tig : 

4968 ; 130 bee 

4969 : 14 

4970 15 -ERR_FLG = ZERO; 'CLEAR THE ERROR FLAG 


ee ee ee eee ie eee 
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14-May-1981 13:48:54 
14-May-1981 13:05:08 


!SET ECC DIAG MODE 
'SAVE THE DATA WRITTEN TO THE REGISTER 
!READ AND SAVE THE REGISTER 


READ THE REG FOR WRT_MASK 
'SET ERROR FLAG IF NEQ 


!CLEAR ECC DIAG MODE 


ECC_DM = ONE; 
WT_DATA = WRT_MASK; 
RD_DATA = .MLE1 or . IGNORE; 
if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 
ECC_DM = ZERO; 
end; 
.SBTTL RD.E1 
163166 RD.E1: JSR R1.$SAVE2 
000010 CLR a16(SP) 
000001 172404 BISB #1, aML.REG+120 
000012 MOV 12(SP) RO 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
013156 MOV ML .REG+2(R1),RO 
000014 BIS 14(SP), 
013160 BIC ML.REG+4(R1),RO 
013162 MOV ML .REG+6(R1) -R2 
BIS RO,R2 
172174 MOV R2.WT.DATA 
172366 MOV aM .REG+150,R2 
013162 BIS ML .REG+6(R15 ,R2 
172162 MOV R2.RD.DATA 
172154 172154 CP WI -DATA.RD.DATA 
000001 000010 MOV #1,a10(SP) 
000001 172302 1$: B1¢B #1, QML .REG+120 


; Routine Size: 41 word 


s 
: Maximum stack depth per invocation: 


3 words 


: ERR.FLG 
: INDEX,* 


; TST.PAT,* 


*,ERR.FLG 


TOPS-20 Bliss-16 V2(212) 
PA: <NEALE>ML4.8LI1. 


SEQ 0126 


= . iL. 7a 


CZMLACO ML-11 LOGIC TEST 
RD.E1 


7 
5048 
5049 
5050 
5051 
505, 
505 
5054 
5055 
5056 
5057 
5061 
5062 
5066 020774 
5067 021000 
5068 021006 
5069 021014 
5070 021020 
5071 os i0 2 
5072 021024 
507. 8510 6 
5074 021030 
5075 021034 
507 os i300 
021044 


07 
78 021050 


SS SHVEARANASSOVR 


SELELESELSEASELELESS 
ee S 


344 


> 
nN 
NNN 
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routine WRT_E2 (TST_PAT, index) : novalue = 
begin 


!4¢ 
FUNCTIONAL DESCRIPTION: 


LOADS THE ECC CRC WORD 
REGISTER 2 WITH A DATA PATTERN 
GENERATED BY THE MACRO 
WRT_MASK 


FORMAL PARAMETERS: 


INDEX 
USED BY THE MACRO WRT_MASK 

TO SELECT THE CURRENT REGISTERS 
ADDRESS, FORCED HI, FORCED 

LO AND DON'T CARE MASK 
INFORMATION. 


MLE2_MASK = %0'177700'; 
MLEO-= WRT_MASK 


MLE2 MASK = %0'000000'; 
ECC_BM = ZERO; 
end; 
.SBTTL WRT.E2 
163044 WRT.E2: JSR R1,$SAVE2 
900001 172266 BISB #1.aML.REG+120 
177700 172326 MOV #-100,ML .REG+166 
000010 MOV 10(SP5 RO 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
013156 MOV Mi, -REG*2(R1 ),RO 
01 O15 Bie ne REG+4(R1) RO 
013162 


MOV oe 


14-May-1 
14-May-1 


!SET ECC DIAG MODE 
!MASK OUT DATA DIAG 
‘LOAD MLE2 WITH G 

‘RESTORE MLE2 MASK 


9 
9 


TST_PAT 
CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 


1 13: 
113: 


54 TOPS=20 Bliss-16 V2(212) 
:08 PA:<NEALE>ML4.BL1.7 ( 


AG BITS 
ENERATED WRT_MASK PATTERN 


'CLEAR ECC DIAG MODE 


t INDEX,* 


TST.PAT,* 





SEQ 0127 


ea ee 


0 
nace ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 443 CzP 


SEQ 0128 RD. 
3ML4 14-May-1981 13:49:38 TOPS 

1 ; 14-May-1981 13:05:08 PA:< 
508 Og 108¢ 010277 179636 MOV R2,@ML .REG+160 
5084 02105 vt 5 14 172260 CLR ML .REG+166 3 3453 
5085 gst 142777 000001 172204 aice g) Oe RE Cote® 3 3454 
opa8 021070 000207 PC ; 3425 
5088 : Routine Size: 31 word 
5089 + Maximum stack depth oer invocation: 3 words 
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14-May-1981 13:6 
14-May-1981 13:05: 


routine RD_E2 (TST_PAT, index, ERR_FLG) : novalue = 
begin 


'+4 

} FUNCTIONAL DESCRIPTION: 

COMPARES THE CONTENTS OF THE 
EGISTER 2 


G 
WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘WRT_MASK' 


IF THE COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG' IS 
ae A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 
USED BY THE MACRO WRT_MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
WT_DA 


D 

GETS LOADED WITH THE GENERATED 
WRT_MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


RD_DATA 
GETS LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


czP 
SEQ 0129 | WRT 
TOPS-20 Bliss-16 Vg (2) 
PA:<NEALE>ML4.8L1.7 (32) 
—— 
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SEQ 0130 
153 :ML4 14-May-1981 13:48:54  TOPS=20 Bliss-16 v2(212) 
He ; Ve~may 1981 13:08:08 PaeaNeAL Ese wor I > ca59 
156 ; 508 
5157 : 509 .ERR_FLG = ZERO; 'CLEAR ERROR FLAG 
5158 : 510 ECC_BM = ONE; 'SET ECC DIAG MOD 
5159 : 511 MLE2 MASK = £0'177700'; iMASK OUT DATA DIAG BITS 
5160 : 312 WT_DATA = WRT_MASK; iSAVE THE DATA WRITTEN TO THE REGISTER 
2161 : 313 RD-DATA = .MLE2 or . IGNORE; ‘READ AND SAVE THE REGISTER 
S168 ; 3319 it .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK 
5165 : 3317 'SET ERROR FLG IF NEQ 
5166 ; 518 MLE2_MASK = %0'000000'; 'RESTORE MLE MASK 
5167 : 3519 ECC_BM = ZERO; 'CLEAR ECC DIAG MODE 
5168 ; 3520 end; 
3172 
517 .SBTTL RD.E2 
5177 021072 004167 162746 RD.E2: JSR R1,$SAVE2 ; 3456 
5178 021076 003076 000010 LR a10(SP) : ERR.FLG 3509 
5179 021102 152777 000001 172164 BISB #1,aML.REG+120 ; 3510 
5180 021110 012767 177700 172224 MOV #-100,ML.REG+166 : 511 
5181 021116 016600 000012 MOV 12(SP5 ,RO : INDEX,* 3512 
5182 021122 006300 ASL 
5183 021124 006300 ASL RO 
5184 021126 006300 ASL RO 
5185 021130 010001 MOV RO,R1 
5186 021132 016100 MOV ML .REG+2(R1),RO 
5187 021136 056600 BIS 14(SP), ; TST.PAT,* 
5188 021142 046100 BIC ML.REG+4(R1),RO 
5189 021146 016102 MOV ML .REG*O(RT) .R2 
5190 021152 05000 BIS RO.R 
5191 021154 01026 MOV R2.WT.DATA 
3192 021160 01770 MOV @ML .REG+160,R2 3513 
5193 021164 05610 BIS ML ..REG+6(R1) ,R2 
5194 021170 01026 MOV R2,RD.DATA 
5195 021174 026767 171726 CMP WT. DATA,RD.DATA 
5196 021202 001403 BEQ 1$ 
5197 921204 012776 000010 MOV #1,a10(SP) : *, ERR.FLG 
5198 021212 306 CLR ML .REG+166 : 
5199 021216 142777 172050 BICB =: #1, AML .REG+120 ; 
3200 021224 20 TS PC : 
520, 3 Routine Size: 46 words : 
520 3; Maximum stack depth per invocation: 
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CZMLA 
RD.E2 SEQ 0131 
5209 :ML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
3210 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.6L1.7 (33) 
asi¢ 3 3521 routine WRI_PD (TST_PAT, index) : novalue = 
5213 ; $256 begin 
ase : 52 
5215 ;: 3524 ++ 
5216 : 3525! FUNCTIONAL DESCRIPTION: 
$217 ;: 3526 =! 
5218 : 3287 ' LOADS THE PROM DATA 
5219 : 35208 |! REGISTER WITH A DATA PATTERN 
$220 ; 3529 =! GENERATED BY THE MACRO 
5221 ; 3530 | WRT _MASK 
5222 : 3531 ! 
$223: 3532 |! FORMAL PARAMETERS: 
5224 ; 3533 =! 
5225 ;: 3534 =! TST_PAT 
5226 ; 3535! CURRENT DATA PATTERN TO BE 
S207 : 3536! LOADED IN THE REGISTER. 
5228 : 3537 
5229 ; 3538 =! INDEX 
5230 ; 3539 |! USED BY THE MACRO WRT_MASK 
5231 : 3540 |! TO SELECT THE CURRENT REGISTERS 
5232 : 3541! ADDRESS, FORCED HI, FORCED 
5233 ;: 3542 =! LO AND DON'T CARE MASK 
5234 ; 3543 |! INFORMATION 
5235 ; 3544 «=! 
5236 ;: 3545 !=- 
ee : 3378 PROM_RW = ONE 'SET PROM READ WRITE 
3 = ; $ AD I 
5239 ;: 3548 DAT_BM = ONE; 'SET DATA DIAG MODE 
5240 : 3549 MLPB = WRT MASK: 'LOAD MLPD WITH GENERATED WRT_MASK PATTERN 
5241; 3550 DAT_CLK = ONE; 'DO A DATA CLK 
5242 : 3551 PROM_RW = ZERO; 'CLEAR PROM READ WRITE 
5243 : 3552 DAT_DM = ZERO; 'CLEAR DATA DIAG MODE 
5244 ; 3553 end; 
5248 
5249 -SBTTL WRT.PD 
$253 021226 004167 162612 WRT.PD: JSR R1,$SAVE2 : 3521 | 
$254 021232 152777 000100 172034 BISB #100,aML.REG+120 : 3547 | 
5255 021240 152777 000010 172026 81S8 #10, @ML .REG*+120 3 3548 
5256 021266 016600 000010 MOV x : INDEX,* 3549 
5257 021252 006300 ASL | 
5258 0 1234 006300 ASL R 
5259 021256 006300 ASL 
5260 021260 010001 MOV RO,R1 
358) O51966 Os6600 HOON; Bis Disp RON RO IST.PAT 
- e e . o* 
2508 021272 046100 013160 BIC ML .REG*4(R1),RO 
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; Routine Size: ; 
; Maximum stack depth per invocation: 


1 
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-REG*6(R1) ,R2 
es 


35 words 





SEQ 0132 


14-May-1981 13:48:54 TOPS 
14-May-1981 13:05:08 PA:< 
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2 


14-May-1981 13:48: 
14-May-1981 13:05: 


routine RD_PD (TST_PAT, index, ERR_FLG) : novalue = 
begin 


Viv 
s 
= 
ys 


Mn 


Iw 
vwiw 


SESPSS ESE SEARO SLASH ONLI SE SOTO OS SEES 


'ee 
! FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
PROM DATA REGISTE 

WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘WRT_MASK' 


IF “ COMPARE IS NOT EQUAL THEN 
THE FORMAL PARAMETER ‘ERR FLG* IS 
eee? A ONE TO INDICATE THE 


PAAAAAAMAAAUVIV 


Ste PEER TREES 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 

kegs 4 AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST 


10 

11 INDEX 

12 USED BY THE MACRO WRT _MASK TO 

13 SELECT THE pve apd REGISTERS ar? 
14 FORCED HI, FORCED LO AND DON'T CARE 
12 MASK INFORMATION. 

17 

18 

19 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT INPUTS: 
GETS LOADED wil THE GENERATED 


MASK DATA PATTERN THUS ALLOWING 
CALCER TO PRINT FAILING GOOD DATA. 


NYSSSSSSSs55 


SESERS 


WOO 


ATA 
GETS Loner WITH DATA READ FROM THE 
REGISTER THUS ALLOWING A a ER 

TO PRIN FAILING BAD DAT. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 
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5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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SEQ 0133 


} 
0 


oo 


9 
> 
oO 


0 ML-11 LOGIC TEST 
-PD 
5341 ;ML4 
5 ¢ 3 
Enh 36 
5345 ; ge 
aae6 s 608 
5347 ; 09 
5348 ;: 10 
5349 ; 611 
5350 ; zo1¢ 
5351 ;: 361 
2336 3 3614 
5353; 3615 
5354 ;: 3616 
5355 ; 3617 
5356 : 3618 
5360 
5361 
5365 021334 004167 
5366 021340 005076 
5367 021344 152777 
5368 021352 152777 
5369 021360 016600 
5370 021364 006300 
5371 021366 006300 
5372 021370 006300 
5373 021372 010001 
5374 021374 016100 
5375 021400 056600 
5376 021404 046100 
5377 021410 016102 
5378 021414 050006 
5379 021416 01026 
5380 021422 017702 
5381 021426 05610. 
5382 021432 01026 
5383 021436 026767 
5384 021444 001403 
5385 021446 012776 
5386 021454 142777 
5387 021462 142777 
5388 021470 000207 
5389 
5390 
5391 


1 
MACRO M1113 18-MAY-81 08:17 PAGE 7) 


-ERR_FLG = ZERO; 
PROM_RW = ONE; 


14-May-1981 1336 
14-May-1981 13: 


!CLEAR ERROR FLG 


754 TOPS-20 Bliss-16 vg tel 


PA: <NEALE>ML4.BLI.7 (34 


!SET DATA DIAG MODE 
'SAVE THE DASA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 


!READ THE REG FOR WRT_MASK 


!SET ERROR FLAG IF NEQ 
!CLEAR PROM READ WRTE 
!CLEAR DATA DIAG MODE 


DAT_BM = ONE; 
WT_BATA = WRT_MASK; 
RD-DATA = .MLPD or . IGNORE; 
if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 
PROM_RW = ZERO; 
DAT_DM = ZERO; 
end; 
.SBTTL RD.PD 
162504 RD.PD: JSR R1.$SAVE2 
000010 CLR a16(SP) 
000100 171722 BISB8 #100, aML.REG+120 
000010 171714 BISB #10, aML.REG+120 
000012 MOV 12(SP), 
ASL RO 
ASL RO 
ASL RO 
MOV RO,R1 
013156 MOV ML .REG+2(R1),RO 
000014 BIS 14(SP) R 
013160 BIC ML .REG+4(R1),RO 
013162 MOV ML .REG+6(R1) .R2 
BIS RO,R2 
171504 MOV R2.WT.DATA 
171756 MOV ami .REG+230,R2 
013162 BIS IL. .REG*+6(R15 ,R2 
171472 MOV R2.RD.DATA 
171464 171464 CMP WT.DATA,RD.DATA 
000001 000010 V #1,@10(SP) 
000100 171612 1$: BICB «=: #100 , aL .REG+120 
000010 171604 1CB =: #10, AML. .REG+120 
RTS PC 
; Routine Size: 47 words 


3; Maximum stack depth per invocation: 


3 words 


+ INDEX,* 


t ERR.FLG 


; TST.PAT,* 


*,ERR.FLG 


) 
) 


SEQ 0134 


s2 


F 11 
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397 :ML4 14-May-1981 13:48: 
5338 : Janney 198) 13,08; 
t's : $018 rate SN (TST_PAT, index) : novalue = 

° n 
5402 : 621 . 
5403 : 6 é ++ 
5404 : 62 i FUNCTIONAL DESCRIPTION: 
5405 : 36 4 ! DUMMY ROUTINE CALL TO ASSIST IN THE READ 
2406 : 3625 WRITE REGISTER ALGORI THEM 
3408 ; 3607 FORMAL {PARAMETERS 
5419 : 3629 DAI. PATTERN TO BE MASKED AND 
5411: 3630! COMPARED AGAINST THE CONTENTS 
2412 3 3631 OF THE REGISTER UNDER TEST 
5414 : 3633 INDEX 
5415 : 3634 | USED BY THE MACRO WRT_MASK TO 
5416 : 3635 SELECT THE CURRENT RECTSTERS ADDRESS. 
5417 : 3636! FORCED HI, FORCED LO AND DON'T CARE 
3418 ; 3637 £ MASK INFORMATION. 
5420 : 3639 i- 
5421 : 3640 
5422 : 3641! 
2425 ; 3642 i ERROR LOCATION REG IS READ ONLY 
3 return; 
5425 ; 3644 end; 
5429 
5430 .SBTTL WRT.EL 
3434 021472 000207 WRT.EL: RTS PC : 
5436 ; Routine Size: 1 word 
$75 + Maximum stack depth per invocation: 0 words 
5443 


54 TOPS=20 Bliss-16 V2(212) 
08 PA:<NEALE>ML4.BLI.7 ( 


SEQ 0135 


3619 


| 


j 
ST Se ne ed 


gS 


Ft 
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WRT .EL SEQ 0136 


5445 ;ML4 14-May-1981 13: 7:48:54 TOPS-20 Bliss-16 v2(212) 
ee : 14-May-1981 13:05:08 PA: <NEALE>ML4.BL1.7 (36) 
5448 ; eee routine RD_EL (TST_PAT, index, ERR_FLG) : novalue = 
5449 ;: § begin 

5450 ; 64 

5451 ; 8 !o¢ 

2626 : see ' FUNCTIONAL DESCRIPTION: 

5453 ; 50 ! 

5454 ; 51 ! COMPARES THE CONTENTS OF THE 

5455 ;: O26 ! ERROR LOCATION REGISTER 

2028 3 $3? WITH THE CONTENTS OF TST_PAT. 

5458 ;: 3655! IF = COMPARE IS NOT EQUAL THEN 
5459 ;: e029 ‘ THE FORMAL PARAMETER ‘ERR FLG' IS 
5460 ; 3657 =! ASSIGNED A ONE TO INDICATE THE 

5461 ; 3658 ! ERROR 

5462 ; 3659 =! 

5463 ; 3660 ! FORMAL PARAMETERS: 

5464 ; 3661 ! TST_PA 

5465 ; e008 : DATA PATTERN TO BE MASKED AND 

5466 ;: 36635 ! COMPARED AGAINST THE CONTENTS 

5467 ; 3664 =! OF THE REGISTER UNDER TEST 

5468 ; 3665 ! 

5469 ;: 3666 =! INDEX 

5470 ;: 3667 ! USED BY THE MACRO WRT K TO 

5471; 3668 ! sELEC? THE — RECISTERS ADORE SS. 
5472 ; 3669 ! FORCED HI, FORCED LO AND DON'T CARE 
5473: 3670 =! MASK INFORMATION. 

5474 ; 3671 ! 

5475 : 3672 =! ERR_FLG 

5476 ;: 3673 =! CONTAINS THE ADDRESS (PASSED BY REF) 
5477 : 3674 ! OF THE CALLERS ERROR FLG TO ENABLE THE 
5478 : 3675 =! CALLER TO EXAMINE THE ERROR STATUS 
5479 ;: 3676 =! OF THE ROUTINE CALL. 

5480 ; 3677 =! 

5481 ; 3678 ! IMPLICIT INPUTS: 

5482 ; 3679 =! WT_D. 

5483 ; 3680 ! GETS LOADED WITH THE GENERATED 

5484 ; 3681 ! T_MASK DATA PATTERN THUS nytt ey 
5485 ; 3682 ! CALLER TO PRINT FAILING GOOD DATA 
5486 ;: 3683 =! 

5487 ;: 3684 =! RD_DATA 

5488 ; 3685 =! GETS LOADED WITH DATA wrt FROM THE 
5489 ; 3058 : REGISTER THUS ALLOWING CALLER 

5490 ; ! TO PRINT FAILING BAD DATA. 

5491 ; 3058 ! 

5492 ;: 9 ! IMPLICIT OUTPUTS: 

5493 ; 3690 ! GLOBAL LOCATION WR_DATA 

5494; 3691 ~! AND RD_DATA LOADED WITH GOOD 

5495 : 92 ! AND BAD REGISTER DATA 

ey : 93 ! 

5497 ;: 94 !e- 

5498 ;: 3695 

5499 ; 3696 -ERR_FLG = ZERO; 


CZMLACO ML-11 LOGIC TEST 
WRT 


EL 

5501 ;ML4 

2one 9 

50 
5504 ; 97 
5505 ; 98 
gene 3 99 
5507 ; 700 
5508 ; 701 
5509 ; 702 
5513 
5514 
2318 sabe 00507 
5519 021500 01666 
5520 021506 017767 
5521 021514 026767 
5522 021522 001403 
5523 Oct aes 012776 
5524 021532 207 
5525 
5526 
5527 

55 
5533 


4.11 
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14-May-1981 1 
14-May-1981 1 


748:54 


TOPS=20 Bliss-16 V 18) 
:05:08 (36) 


PA: <NEALE>ML4.BL1. 


WT_DATA = .TST_PAT; 'SAVE THE DATA WRITTEN TO THE REGISTER 
RD_DATA = “MLEL; 'READ AND SAVE THE REGISTER 
if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; 'READ REGISTER FOR WT_DATA 
end; 
-SBTTL RD.EL 
000002 RD.EL: CLR P) ; ERR.FLG 
990008 171420 MOV 6(SP) ,W 3; TST.PAT,* 
171662 171414 MOV aL. REGr300. aD. DATA : 
171410 171404 - -DATA,WT. DATA : 
000001 0660002 MOV 4 achat 3; *,ERR.FLG 
1$ RTS 3 
; Routine Size: 16 words 


+ Maximum stack depth per invocation: 0 words 


SEQ a 






Ww 
w 


WAWNA.AAANWNANAAA NANA AAAI 
SSN NSS NN NSS SSNS 


oy “ed ML-11 LOGIC TEST 


“ 
oO 
w 


Soe 


ooo 


NOUESWN —$OOONAULSWN—OOanN 


NONINININININIR) 2 A I 


021534 000207 
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routine WRT_EE (TST_PAT, index) : novalue = 
begin 


lee 

' FUNCTIONAL DESCRIPTION: 
DUMMY ROUT CALL TO ASSIST IN THE READ 

WRITE REGISTER ALGORITHEM 


FORMAL PARAMETERS: 
TST P. 


T 
DATA PATTERN TO BE MASKED AND 
AGAINST THE CONTENTS 


ED 
REGISTER UNDER TEST 


COMPAR 
OF THE 
INDEX 

USED BY THE MACRO WRT _MASK TO 

SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE 
MASK INFORMATION. 


!' ECC ERROR REGISTER IS READ ONLY 
++ ae, 
end; 


-SBTTL WRT.EE 
WRT.EE: RTS PC : 


; Routine Size: 1 word | 
; Maximum stack depth per invocation: 0 words 


SEQ 0138 


TOPS=-20 Bliss-16 V2(212) 
PA: <NEALE>ML4.B8L1. 


Ee 


3703 


J.11 
gn nee Mi-11 LOGIC TEST MACRO M1113 18=MAY-81 08:17 PAGE 154 


T.EE SEQ 0139 
3582 IML4 14-May-1981 13:48:54  TOPS=20 Bliss-16 v2(212) 
2383 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.8L1.7 (38) 
5585 ; 728 routine RD_EE (TST_PAT, index, ERR_FLG) : novalue = 
5586 ; C44 begin 
5587 : 730 
5588 ; ey 'e¢ 
5589 : 37 2 i FUNCTIONAL DESCRIPTION: 

5590 : 733 CO 

5591 : 734 COMPARES THE CONTENTS OF THE 

2298 ; 13 ECC ERROR REGISTER WITH TST_PAT. 

5594 : 737 IF THE COMPARE 1S NOT, EQUAL THEN 
5595 : 3738 THE FORMAL R_FLG'' IS 
5596 : 3739 ASSIGNED A ONE TO TEND IEATE THE 

5597 : 3740 / ERROR. 

5598 : 741 | 

5599 : 742 | FORMAL PARAMETERS: 

5600 ; 3743 | TST 

5601 : 3744 I DAT. PATTERN T 0 BE 

5602 ; 3745 i COMPARED AGAINST THE CONTENTS 

5603 : 3746 OF THE REGISTER UNDER TEST. 

5604 : 3747 | 

5605 ; 3748 INDEX 

5606 : 3749 | USED BY THE MACRO MLEE TO 

5607 : 3750 SELECT THE CURRENT REGISTERS ADDRESS. 
5608 ; 3751 

5609 : 3752 = ERR 

5610 : 3753 ORTATNS THE ADDRESS (PASSED 

5611 : 3754 BY REF) OF THE CALLERS ERROR FLG TO ENABLE 
5612 : 3755 i THE CALLER TO EXAMINE THE ERROR STATUS 
5613 : 3756 «i OF THE ROUTINE CALL. 

5614 : 3757 

5615 : 3758 Ci IMPLICIT INPUTS: 

5616 : 3759 T_DAT. 

5617 : 3760 "gers. LOADED WITH THE TST_PAT 

5618 : 3761 HUS ALLOWING CALLER TO PRINT 

5619 ; 3762 | THE FAILING DATA. 

5620 : 3763 

5621 : 3764 i TA 

3622 : 765 GETS LOADED WITH DATA READ FROM THE 
5623 : 3766 i REGISTER THUS ALLOWING cA LLER 

5624 : 3767 i TO PRINT FAILING BAD DATA 

5625 : 3768 

5626 : 3769 i IMPLICIT OUTPUTS: 

5627 : 770 GLOBAL LOCATION WR_DAT 

5628 : 3771 i AND RD_DATA LOADED™ BIT GOOD 

5629 : 772 «| AND BAD REGISTER DATA 

5630 : 773 «Oi 

5631 : 774 inn 

5632 : 775 

5633 : 77 ERR FLG = ZERO; 'CLEAR THE ERROR FLA 

5634 : 77 DATA = .TST PAT: iSAVE DATA WRITTEN 16 THE REGISTER 
263 : Ae RD DATA = .MLEE; iREAD AND SAVE THE REGISTER 


CZMLACO ML=11 LOGIC TEST 
WRT .EE 


2038 3ML4 
39 ; 

5640 

5641 ; 

26t¢ 3 

56435 ;: 

5644 ; 

5648 

5649 

5653 021536 
5654 021542 
5655 021550 
5656 021556 
5657 021564 
5658 021566 
5659 021574 
5660 

5661 


ae 


Kk 11 
MACRO M1113 18-MAY-81 08:17 PAGE is5 


14-May-1981 13:48:54 
14-May-1981 13:05:08 


if .RD_DATA neq .WT_DATA then .ERR_FLG = ONE; 


end; 


000002 
90098 
17161 

171346 


000001 


171356 
171352 
171342 


000002 


RD.EE: 
MOV 
MOV 
CMP 
BEQ 
MOV 
1$: RTS 


3; Routine Size: 


.SBTTL RD.EE 

CLR @2(SP) 

6(SP) ,WT.DATA 
@ML.REG+210,RD.DATA 
RD.DATA,WT DATA 


1$ 
#1,a2(SP) 
PC 


16 words 
3; Maximum stack depth per invocation: 


TOPS=20 Bliss-16 Vv2(212) 
PA:<NEALE>ML4.BL1.7 (38) 


READ MLEE FOR TST_PAT 
'SET THE ERROR FLAG IF NEQ 


0 words 


ERR.FLG 
TST.PAT,* 


*,ERR.FLG 


SEQ 0140 


11 
CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 56 i 
RD.EE SEQ 0141 


5670 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
2671 ; 14-May-1981 13:05:08 | PA:<NEALEDML4.B8L1.7 (39) 
5673 ;: 3784 routine WRT_D1 (TST_PAT, index) : novalue = 
5674 : 3785 begin 
5675 : 3786 
5676 : 787 44 
5677 : 788 | FUNCTIONAL DESCRIPTION 
5678 : 789 «| LOADS THE DATA DIAG REG 1 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
5679 : 790 | FORMAL PARAMETER S: 
5680 ; 3791 TST PAT 
268! : 379 CURRENT DATA PATTERN TO BE LOADED IN THE REGISTER. 
5683 ; 3592 i USED BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
5684 : 3795 | FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 
5685 ; 3796 i+ 
5686 : 3797 
5687 : 798 DAT_DM = ONE; 'SET DATA DIAG MODE 
5688 : 799 MLDT = WRT MASK; ‘LOAD MLD1 WITH GENERATED WRT_MASK PATTERN 
5689 : 3800 DAT_DM = ZERO; iCLEAR DATA DIAG MODE 
5690 ; 3801 end; 
5694 
5695 .SBTTL WRT 2) 
5699 021576 004167 162242 WRT.D1: JSR SSAVE2 : 3784 
5700 021602 152777 000010 171464 81SB ni aML .REG+120 ; 3798 
5701 021610 016600 000010 MOV 0(SP) RO : INDEX,* 3799 
5702 021614 006300 ASL RO 
5703 021616 000300 ASL RO 
5704 021620 006300 ASL RO 
5705 021622 010001 MOV RO.R 
5706 0 1626 016100 013156 MOV Mi -RE ReGe2(R1). RO 
5707 021630 056600 000012 BIS 12(SP) ,RO : TST.PAT,* 
5708 021634 046100 013160 BIC ML .REG+4(R1),RO 
5709 021640 016102 013162 MOV ML .REG+6(R1).R2 
5710 021644 050002 BIS 
711 021646 010277 171472 MOV “aml. -REG*170 
5712 021652 142777 000010 171414 BICB #10, @ML .REG+120 : 
2213 021660 207 RTS : 3784 
5715 ; Routine Size: 26 word 
ah * Maximum stack depth eae invocation: 3 words 
5722 





CZMLACO ML-11 LOGIC TEST 
WRT 


57 


AAAI MAUIUIVIVI 
BURRESS 


5739 


oo 
Wn 


Go 0000 000000 
oO 44 
w 


ahs 


WWWAWNAAWWaw 


0.09000 
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3836 


‘Go Co: 
wW 
N 


neeieeies 
Se 


eesueeereenees 
_ NOUSWIN OO 


p00 0000 
Mm 


routine RD_D1 (TST_PAT, index, ERR_FLG) : novalue = 
begin 


411 
MACRO M1113 18-MAY-81 08:17 PAGE ts) 


'ee 
! FUNCTIONAL DESCRIPTION: 


COMPARES THE CONTENTS OF THE 
pee vo REGISTER 1 

WITH THE MASKED DATA PATTERN 
GENERATED BY THE MACRO ‘'WRT_MASK"’. 


if — COMPARE IS “4 EQUAL THEN 
THE FORMAL PARAMETER "ERR _FLG'’ IS 
osteo A ONE TO INDICATE THE 


FORMAL PARAMETERS: 


TST_PAT 

DATA PATTERN TO BE MASKED AND 
COMPARED AGAINST THE CONTENTS 
OF THE REGISTER UNDER TEST. 


INDEX 

USED BY THE MACRO WRT _MASK TO 

Fraree ad CURRENT REGISTERS ar a 
FORCED HI, FORCED L DON’'T CARE 
MASK INFORMATION. 


ERR_FLG 

CONTAINS THE ADDRESS (PASSED BY REF) 
OF THE CALLERS ERROR FLG TO ENABLE THE 
CALLER TO EXAMINE THE ERROR STATUS 

OF THE ROUTINE CALL. 


IMPLICIT 71) te 
WT _DAT 


ters. LOADED WITH THE GENERATED 
WRT_MASK DATA PATTERN THUS ALLOWING 
CALLER TO PRINT FAILING GOOD DATA. 


GET SL LOADED WITH DATA READ FROM THE 
REGISTER THUS ALLOWING CALLER 
TO PRINT FAILING BAD DATA. 


IMPLICIT OUTPUTS: 
GLOBAL LOCATION WR_DATA 
AND RD_DATA LOADED WITH GOOD 
AND BAD REGISTER DATA 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>ML4.6L1. 


eae 


SEQ 0142 
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CZMLACO ML=11 LOGIC TEST MACRO M1113. 18-MAY=81 08:17 PAGE "sb CZML 
WRT.D1 SEQ 0143 WRT, 
$780 ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V (212) ¢ 
78 3 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (40) 
Ht 3 854 é 
5784 ; 855 .ERR_FLG = ZERO; 'CLEAR THE ERROR FLG é 
785 ; 896 AT_BM = ONE; iSET DATA DIAG MODE é 
786 : 85 ML_FUNC = write: iLOAD MLCS1 WITH WRITE FUNCTION é 
2787 : $58 DAT_CLK = ONE; iDO A DATA CLK ‘ 
5789 : 3860 if .REG_INIT_FLG IS_SET 'SEE IF CALLER IS REG INIT TEST é 
5790 : 1 iSET ERROR FLAG IF NEQ é 
5791 ;: Soe then é 
a4 3 86 begin é 
793 : 864 CLR_MBUS; 'CLEAR MBUS TO GENERATE INIT DATA é 
5794 : 3865 DAT_DM = ONE; é 
5795 : 508 end; ( 
5796 : . ¢ 
5797 : 868 WT_DATA = WRT_MASK; 'SAVE THE DATA WRITTEN TO THE REGISTER é 
2798 ; 3869 RD-DATA = .MLD1; iREAD AND SAVE THE REGISTER é 
3008 3 4 if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; 'READ MLD1 FOR WRT_MASK , 
$802 : 387 'SET ERR_FLG IF NEQ é 
5803 : 7% CLR_MBUS; iCLEAR TRE MBUS é 
5804 ; 75 end; ¢ 
5808 é 
5809 .SBTTL RD.D1 é 
5813 021662 004167 162156 RD.D1: JSR R1,$SAVE2 3 ¢ 
5814 021 005076 000010 CLR a10(SP) t ERR.FLG 3o05 é 
5815 021672 15277 900010 171374 81SB #10. AML .REG+120 : 38 é 
5816 021700 142777 000077 171246 BICB #77.aML.REG : 385 é 
5817 021706 152777 000061 171240 B1SB #61, QML REG ( 
5818 021714 152777 20 171352 BISB #20,aML.REG+120 : 3858 é 
3819 021728 026707 171210 000001 cmp REG. INIT.FLG,#1 : 3860 
5821 021732 152777 000040 171254 BISB8B #40,aML.REG+40 ; 3863 é 
5822 021740 016701 171 MOV ML ul 1 é 
5823 021744 042701 177770 BIC #177770,R1 é 
5824 9 1750 1487 7 ? 171236 BICB ss #7, AML. REG +4 é 
5825 021756 150177 1712 : B81 R1. aM .REG+40 
3826 021762 152777 10 171304 BI1SB #10, aML.REG+120 ; 3865 
021770 01 000012 1$: MOV 12(§P) RO + INDEX,* 
B 021774 006 ASL R 
5829 021776 006 ASL 
8 3000 006300 ASL 
5831 022002 010001 MOV RO.R1 
3832 22004 016100 013156 MOV ML .REG+2(R1),RO 
5833 022010 056600 14 BIS 14(SP) ,RO : TST.PAT,* 
5834 022014 046100 0131 BIC ML.REG+4(R1),RO 


CZMLACO ML-11 LOGIC TEST 
RD.D1 


S53 


oS sp 


013162 
171074 


3 
_ 
oO 
im 
Nm 
oo 
soy 
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ooocoo 
| tenth A deeed 
N SSRs 
NOAA 
UNNND 


wi 
2 
o 
So 
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[a] 
So 
w 
oa 
Fe=3238 


4 

oO 

™m 

Nm 

So 

~N 

&- 
t= 
we 
ONO 


007 
77 ~+171106 


| fr 13 


MACRO M1113 
sML4 
MOV 
BIS 
MOV 
171070 MOV 
171060 CMP 
BEQ 
000010 MOV 
171130 2$: B1ISB 
MOV 
BIC 
171112 BICB 
BISB 
RTS 


; Routine Size: , . 
; Maximum stack depth per invocation: 


8 12 
18-MAY-81 08:17 PAGE 159 


a pees R2 


ROcu 
ami. WREG+II0, RD.DATA 
RD.DATA,WT.DATA 


",a ) 
#40, aML .REG+40 


Re. @ML .REG+40 


75 words 





3 words 


*,ERR.FLG 


SEQ 0144 
14-May-1981 13:48:54 TOPS 
14-May-1981 13:05:08  PA:< 

3869 
3871 
3802 


Wwnn- 
NSomRO 
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MACRO M1113 18-MAY-81 08:17 PAGE 160 


TOPS-20 Bliss-16 V2(212) 


14-May-1981 1 54 
981 1 :08 PA:<NEALE>ML4.BLI.7 (41) 


14-May-1 


WN 
os 


routine WRT_D2 (TST_PAT, index) : novalue = 
in 


beg 


‘ee 
! FUNCTIONAL DESCRIPTION: 

LOADS THE DATA DIAG REG 2 WITH A DATA PATTERN GENERATED BY THE MACRO WRT_MASK 
FORMAL PARAMETERS: 


TST_PAT 
ew DATA PATTERN TO BE LOADED IN THE REGISTER. 


USED BY THE MACRO WRT MASK TO SELECT THE CURRENT REGISTERS ADDRESS, 
FORCED HI, FORCED LO AND DON'T CARE MASK INFORMATION. 


DAT_DM = ONE; 'SET DATA DIAG MODE 
MLD2 = WRT MASK; ‘LOAD MLD2 WITH GENERATED WRT_MASK PATTERN 
DAT_DM = ZERO; ‘CLEAR DATA DIAG MODE 
end; 
.SBTTL WRT.D2 
161730 WRT.D2: JSR R1,$SAVE2 3 
000010 171152 B1S8 #10,aML.REG+120 ; 
010 MOV 10(SP) RO 3 INDEX,* 
ASL R 
ASL RO 
ASL RO 
MOV RO,R1 
013156 MOV Mi -REG*2(R1) RO 
000012 BIS 1 oR : TST.PAT,* 
013160 BIC ML .REG*+4(R1),RO 
013162 MOV ML .REG*6(R1) ,R2 
BIS ROR 
171170 MOV R2,aML .REG+200 
000010 171102 BICB «=: #10, AML .REG*+120 : 
RTS PC 3 
; Routine Size: 26 words 


; Maximum stack depth per invocation: 3 words 


SEQ 0145 


3876 
3890 
3891 


3892 | 
3876 


aes 


gas? ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE Rei? 
SEQ 0146 


5916 ML 
818 : 14-May-1981 13:48:54  TOPS=20 Bliss-1 
3318 : 14-May-1981 13:05:08 PR: SNEALESPL Bed (213) 
3 3894 routine RD_D2 (TST_PAT, i " : = 
3920 3895 seen J ndex, ERR_FLG) : novalue 
$994 3 3897 !+4+ 
3923 ; 898 i FUNCTIONAL DESCRIPTION: 
5925 : 3900 i COMPARE THE CONTENTS OF TH 
3926 ; 901 : DATA D DIAG REGISTER 2 ’ 
5928 : 3903! GENERATED 8 y THE RACRO WRT MASK" 
5929 : 3904 | IF THE COMPAR He tO ouAL THEN i 
5930 : 3905 | FORMAL P PARAMETER: m4 coy. THEN THE 
5931 : 3906 ASSIGNED A ONE T NTC ue is 
333) : 3906 ASSIGN 0 INDICATE THE 
5933 : 3908 
5934 ; 3909 i FORMAL PARAMETERS: 
ne rr 
; i DAT PATTERN TO BE MASKED AND 
3938 ; 3913 COMPAR ED AGAINST THE CONTENTS 
3338 : 3916 E REGISTER UNDER TEST. 
5941 : 3916! INDEX 
394 ; 3317 USED BY THE MACRO WRT_MASK TO 
gee; BB Fane AE SAEED, SRS gu PORES 
5945 ;: i 
2048 305) a see 
28GB 3955 EONTATN 
3 i AINS THE ADDRESS (PASSED BY REF) 
2980 : 3958 CALLER TOCEXAMINE THE ESROR STATHE '"e 
3951 3926 : OF THE ROUTINE CALL. 
3953 ; 3928 ! IMPLICIT T INPUTS: 
5955 : 3930 wre LOADED WITH THE GENERATED 
5956 ; 3931 WRT ras DATA PATTERN THUS ALLOWING 
3337 5535 : TO PRINT FAILING GOOD DATA. 
5959 : 934 ATA 
5960 : 3935 | RD LOADED WITH DATA READ FROM TH 
3961 ; 3936 REGISTER THUS ALLOWING CALLER ' 
3962 3937 | TO PRINT FAILING BAD DATA. 
2964 3 3939 | IMPLICIT OUTPUTS: 
3966 ha AND RD_DATA LOADED“UtTA GOOD 
3967 ; 34 AND BAD REGISTER DATA 
5969 : 944 in 
5970 : 948 


~s 











gas? ML-11 LOGIC TEST 


MACRO M1113 18-MAY-81 08:17 PAGE 6) 





12 


2978 3 sMLS 

5974 

5975 : 3946 -ERR_FLG = ZERO; 

5976 ;: 3947 DAT T_BM = 

5977 ;: 948 L_FUNC = write; 

5978 : 949 DAT. CLK = ONE; 

5979 ;: 950 

5980 : 951 if .REG_INIT_FLG IS_SET 

5981 ; 95 then ~ 

5982 ;: 95 begin 

5983 ;: 3954 CLR_MBUS; 

5984 ;: 3955 DAT_DM = ONE; 

5985 ;: 3956 end; 

5986 ; 3957 

5987 : 3958 WT_DATA = WRT_MASK; 

5988 : 3959 RD_DATA = .MLB2; 

5989 : 3960 

5990 ; 3961 if .RD_DATA neq .WI_DATA then .ERR_FLG = ONE; 

5991 : 396. 

5992 : 396 

5993 ;: 3964 CLR_MBUS; 

5994 : 3965 end; 

5998 

5999 -SBTTL RD.D2 

6003 022174 004167 161644 RD.D2: JSR R1,$SAVE2 

6004 022200 005076 000010 CLR a10(SP) 

6005 022204 152777 000010 171062 B1SB #10, aML .REG*+120 

6006 022212 142777 000077 170734 BICB 477, eREG 

6007 022220 152777 000061 170726 B1SB #61,@ML.REG 

6008 0eeee6 152777 020 171040 BISB #20,aML.REG+120 

6009 0222 026727 170676 001 CMP REG. INIT.FLG,41 

6010 022242 001017 BNE 1$ 

6011 Ocesss 152777 000040 170742 BISB #40, @ML .REG+40 

Cole 022252 016701 171324 MOV UT RY 

601 02 256 042701 177770 BIC #1777760,R1 

6014 0222 142777 900007 170724 BICB = #7, @ML..REG*+40 

6015 022270 150177 170720 BISB ~— R171, AML..REG*+40 

6016 022274 152777 000010 170772 BI1SB #10, aML.REG*+120 

6017 022302 916600 000012 1$: MOV 12(SP) RO 

6018 pesere ASL RO 

6019 3th 006300 ASL RO 

6020 022312 300 ASL RO 

6 ! 316 B16) H 013156 MOV og aes sent. RO 
+ 

on58 0 § 56600 14 BIS 14 

S55 RES SIRE Ses SS las 
Sa 

6026 $5S356 05000, BIS ROAD 





14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 FA: <NEALE>ML4.BLI.7 (42) 


'CLEAR ERROR FLAG 

iSET DATA _DIAG MODE 
'LOAD WRITE FUNC TO CS1 
DO A DATA CLOCK 


iere IF CALLER IS REG INIT TEST 
CLEAR MBUS TO GENERATE INIT DATA 


'SAVE THE DATA WRITTEN TO THE REGISTER 
!READ AND SAVE THE REGISTER 


'READ MLD2 FR WRT_MASK PATTERN 


'SET ERROR FLAG IF NEQ 
!'CLR MASS BUSS 


+ INDEX,* 


; TST.PAT,* 


SEQ 0147 


so 
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SEQ 0148 
3ML4 14-May-1981 13:48:54 TOPS | 
; 14-May-1981 13:05:08  PA:< 
MOV R2,WT.DATA 
170556 MOV @ML .REG+200,RD.DATA : 3959 | 
170546 CAP RD.DATA,WT.DATA F 3961 | 
000010 MOV #1,a10(SP) : *,ERR.FLG 
170616 2: BISB #40,aML.REG+40 
MOV DUT 
BIC #177770,R2 
170600 BICB = #7, AML. REG*+40 
BISB R2.aML.REG+40 
RTS PC : 3894 


| 
; Routine Size: 75 words | 
; Maximum stack depth per invocation: 3 words | 
| 
| 
' 
| 
| 
| 


~ 


can ace ML-11 LOGIC TEST 


O08 ; 


6054 


opapeanpenenesneenspesnespspesnenes 


6091 


6095 022422 
6096 02 se 6 
6097 0224 


o 
moron 
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+ 
~~ 
nN 
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routine WRT_D3 (TST_PAT, 
begin 


'4¢ 
! FUNCTIONAL DESCRIPTION: 


LOADS THE DATA DIAG 
REGISTER 3 WITH A DATA PATTERN 
eT maak” BY THE MACRO 


FORMAL PARAMETERS: 


TST_PAT 
CURRENT DATA PATTERN TO BE 
LOADED IN THE REGISTER. 


USE BY THE MACRO WR 

TO SELECT THE CURRENT REGISTERS 
ADDRESS, FORCED HI, FORCED 

LO AND Flo CARE 


INF ORMAT I 





ON 0000377"; 
T “MASK; 

= ko! 100300': 
= ZERO; 


-SBTTL WRT. 303 


WRT.D3: JSR AVE2 
B1SB At an. -REG*120 


~% “REGS (RI) me 


14-May-19 
14-May-19 


754 TOPS=-20 Bliss-16 V2(212) 
:08 PA:<NEALE>ML4.BL1.7 (43) 


coco 
—— 


: SET DATA DIAG MODE 
!MASK OUT ECC CRC WORD BITS 
'LOAD MLE2 = GENERATED WRT_MASK PATTERN 


RESTORE MASK 
iCLEAR DATA DIAG MODE. 


: TST.PAT,* 





ce? ML-11 LOGIC TEST 
WR 


4 
O.0,0,0-0-0-0.0-0,0:0-0-0, 5 
MMA a eo SS SS 


H 
MACRO M1113 18-MAY-81 08:17 PAGE Heh? 


160 
nz, AEG AL "REG+166 
BICB H0, ML -REG+120 


3; Routine Size: 32 word 


+ Maximum stack depth per invocation: 


3 words 


SEQ 0150 
slat ts 13:48:54 TOPS | 
14-May-1981 13:05:08 PA:< | 

3995 
3996 
3966 


4 
| 
| 


12 
gan? ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 166 


SEQ 0151 
6126 :ML4 I4-May-1981 13:48:54  TOPS-20 BLiss-16 vZ(212) 
61 i : 14-May-1981 13:05:08 | PA:<NEALE>ML4. BLIe (44) | 
6199 3 3998 routine RD_D3 (TST_PAT, index, ERR_FLG) : novalue = | 
6130 ; 3999 begin 
of 2 $ 4000 
61 $ 3 4007 !++ 
6133 ; 4002 | FUNCTIONAL DESCRIPTION: 
6134 ;: 4003 
6135 ; 4004 ! COMPARES THE CONTENTS OF THE 
6136 ; 4005 ! DATA DIAG REGISTER 3 
6137 ;: 4006 ! WITH THE MASKED DATA PATTERN 
ois 3 1007 GENERATED BY THE MACRO 'WRT_MASK"’. 
6140 : 4009 ! IF THE COMPARE IS NOT EQUAL THE 
6141 : 4010 ! FORMAL PARAMETER "ERR_FLG'' IS 
6142 : 4011! ASSIGNED A ONE TO INDICATE THE 
6143 ; 4012 ! ERROR. 
6144 ; 4013! 
6145 : 4014 |! FORMAL PARAMETERS: 
6146 ;: 4015! 
6147 : 4016! 
6148 : 4017 ! DATA PATTERN TO BE MASKED AND 
6149 : 4018 ! COMPARED AGAINST THE CONTENTS 
6150 : 4019‘! OF THE REGISTER UNDER TEST. 
6151 ; 4020 ! 
6152 ; 4021 ! INDEX 
6153 ;: 4022 ! USED BY THE MACRO WRT_MASK TO 
6154 : 4023! SELECT THE CURRENT REGISTERS ADDRESS, 
6155 : 4024 ! FORCED HI, FORCED LO AND DON’T CARE 
6156 : 4025 ! MASK INFORMATION 
6157 ;: 4026! 
6158 : 4027 ! ERR_FLG 
6159 : 4028 ! CONTAINS THE ADDRESS (PASSED BY REF) 
6160 ; 4029 ! OF THE CALLERS ERROR FLG TO ENABLE THE 
6161 : 4030 ! CALLER TO EXAMINE THE ERROR STATUS 
6162 ; 4031! OF THE ROUTINE CALL. 
6163 ; 4032 ! 
6164 ; 4033 ! IMPLICIT INPUTS: 
6165 : 4034‘! wT 
6166 ; 4035! GETS LOADED ity THE GENERATED 
6167 ;: 4036! WRT_MASK DATA PATTERN THUS ALLOWING 
6168 ; 4037 ! CALCER TO PRINT FAILING GOOD DATA. 
6169 ; 4038 ! 
6170 : 4039 ! RD_DATA 
6171 : 4040 ! GETS LOADED WITH DATA READ FROM THE 
6172 : 4041! REGISTER THUS ALLOWING CALLER 
6173 : 4042 ! TO PRINT FAILING BAD DATA. 
6174 : 4043! 
6175 : 4044 ! IMPLICIT OUTPUTS: 
6176 : 4045! GLOBAL LOCATION WR_DATA 
6177 : 4046 =! AND RD_DATA LOADED WITH GOOD 
6178 : 4047 ! AND BAD REGISTER DATA 
6179 ;: 4048 ! 
6180 : 4049 i-- : 





| 
i 
} 
—_ 


ae ML-11 LOGIC TEST 
WRT .D 


sg 


6184 
6185 ; 4050 
6186 : 4051 -ERR_ FUG = _TERO; 
6187 : 405¢ MLE2-MA = to" 600377": 
6188 ; 405 DAT on 
6189 : 4054 ML_FUNC = Curite: 
6190 : 4055 DAT. CLE = ONE; 
6191 : 4056 
6192 : 4057 if .REG_INIT_FLG IS_SET 
6193 ; 4058 then 
6194 ; 4059 ay! 
6195 : 4060 CLR_MBUS; 
6196 : 4061 DAT-DM = ONE; 
6197 ;: 406 end; 
6198 : 406 
6199 : 4064 T_DATA = WRT_MASK 
6200 ; 4065 RD DATA = .MLE2 or . IGNORE; 
6201 ;: 4066 
6202 : 4067 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 
6203 : 4068 
6204 : 4069 MLE2_ MASK = %0'100300'; 
6205 : 4070 CLR_ABUS; 
6206 ;: 4071 end: 
6210 
6211 .SBTTL RD.D3 
6215 022522 004167 161316 RD.D3: JSR R1.$SAVE2 
6216 022526 005076 000010 CLR a10(SP) 
6717 022532 012767 000377 170602 MOV #377, “a REG+166 
6218 022540 152777 000010 170526 B1SB #10.aMl .RE ;REG+120 
6219 022546 142777 000077 170400 BICB REG 
6220 022554 152777 000061 170372 BISB #61.aML.REG 
6221 022562 152777 000020 170504 BISB #50" @ML .REG+120 
6208 022570 026727 170342 001 CMP REG. INIT.FLG,A1 
6223 022576 001017 BNE 
6224 022600 152777 0 170406 BISB #40,@ML.REG+40 
6225 022606 016701 170770 MOV ul R1 
6226 022612 042701 177770 BIC Hi77 76,R1 
6227 022616 142777 000007 170370 BICB = #7, AML. REG*+40 
6228 022624 150177 170364 BI1SB8 =—R1. aML.REG+40 
6229 0206 152777 000010 170436 B1SB Os #10 ani ghEG#120 
6230 022636 01 000012 1$: MOV 42(8P) 
31 9 2642 006 ASL RO 
32 022644 906300 ASL 
3 022646 006 ASL RO 
35 099682 16100 013156 MOY AL TREG#2(R1) ,RO 
+ 
6236 855626 b5c600 teat BIS 14(SP) RO 
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ihr =e ee 
| CZM 
SEQ 0152 | RD. 
14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.? (44) 
CLEAR ERROR FLAG 
iSET DATA DIAG MODF 
'LOAD WRITE FUNCTION TO MLCS1 
'DO A DATA CLOCK 
: SEE IF CALLER IS_ REG INIT TEST 
‘CLEAR MBUS TO GENERATE INIT DATA 
'SAVE THE DATA WRITTEN TO THE REGISTER 
'READ AND SAVE THE REGISTER 
'READ THE REG FOR WRT_MASK 
'CLEAR THE MASS BUS 
: 3998 
3; ERR.FLG 4051 
3 405¢ 
: 405 
: 4054 
4055 
: 4057 
: 4059 
‘ 4061 
> INDEX,* 4064 
; TST.PAT,* 
—_ 
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fRorononorgs 
nm 
~ 


ACO ML-11 LOGIC TEST 


— — —_)> 
Surpovecssogoeses 

ONIMANININ AOA NO 
SUNN ESS oapSe 
NNNRIN NOW Sewtuso wrote 





K 12 
MACRO M1113 18-MAY-81 08:17 PAGE 168 


o-— OO 


R2.RD.D 
WT.DATA,RD.DATA 


S 
S 


Ww 
oS 


—=—0O=-0 —— 


33 
*nNoOoOoOoO-— 


) 
oO 


: Routine Size: ds b 
3; Maximum stack depth per invocation: 






SEQ 0153 


14-May-1981 13:48:54 
14-May-1981 13:05:08 





2 
CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 469 ] 
RD.D3 SEQ 0154 


re 3ML4 14-May-1981 1 254 TOPS-20 Biiss-16 i Ht 
8 : 14-May-1981 1 ‘4 :08 PA:<NEALE>ML4.B8L1.7 (45) 
71 ; 4072 routine WRI_DS (TST_PAT, index) : novalue = 
72; 407 begin 
73; 4074 
74; 4075 !++ 
75; 407 ; FUNCTIONAL DESCRIPTION: 
76 ; 407 DUMMY ROUTINE CALL TO ASSIST IN THE READ 
77 ; 4078 i WRITE REGISTER ALGORI THEM 
6278 ;: 4079} 
6279 ; 4080 | FORMAL PARAMETERS: 
6280 ; 4081 ! TS T 
6281 ; 4082 ! DATA PATTERN TO BE MASKED AND 
6282 ; 4083: COMPARED AGAINST THE CONTENTS 
6283 ; 4084} OF THE REGISTER UNDER TEST 
6284 ; 4085! 
6285 ; 4086 EX 
6286 ; 4087! USED BY THE MACRO WRT_MASK TO 
6287 ; 4088 SELECT THE — REGISTERS apene 3s. 
6288 ;: 4089 ! FORCED HI, FORCED LO AND DON'T CARE 
6289 ; 4090 ! MASK INFORMATION. 
6290 ; 4091! 
6291 ; 4092 i- 
6292 ;: 409 
6293 ;: 4094 ! 
6294 ; 4095 ! DRIVE STATUS REG IS READ ONLY 
6295 ; 4096 return; 
6296 ; 4097 end; 
eit] SBTTL WRT.DS 
63 022772 000207 WRT.DS: RTS PC g 4072 
6307 ; Routine Size: 1 word 
658 ; Maximum stack depth per invocation: 0 words 
6314 





eee, — 
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CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 170 CZ 
WRT.DS SEQ 0155 MSDL 
1 sML4 eamey- 13a | 254 TOPS=20 Bliss-16 V2(212) ¢ 
i 3 14-May-1981 :08 PA: <NEALE>ML4.BL1.7 (46) 
6319 ; 4098 routine RD_DS (TST_PAT, index, ERR_FLG) : novalue = i 
0; 4099 begin i 
6321 ; 4100 i 
22 : 4101 !4+ r 
6325 ; 2188 ' FUNCTIONAL DESCRIPTION: i 
6324 ; 4103! r] 
6325 ; 4106! COMPARES THE CONTENTS OF THE i 
3 4105 ! DRIVE STATUS satin WITH THE i 
6327 : $198 : MASKED DATA PATTERN i 
oas8 3 rey 14 : GENERATED BY THE MACRO ‘WRT_MASK'. i 
3 ! i 
6330 ; 4109 ! iv ys | COMPARE IS NOT EQUAL THEN i 
6331 ; 4110 ! THE FORMAL PARAMETER ‘ERR_FLG' IS i 
O35 3 4111 ! ASSIGNED A ONE TO INDICATE THE i 
6333 ; rT ' ERROR. i 
6334 ; 411 ' i 
6335 ; 4114 ! FORMAL PARAMETERS: i 
6336 ; 4115 ! i 
6337 ;: 2118 ! 7 
6338 ; 411 ! aitx PATTERN TO BE MASKED AND 7 
6339 ; 4118 ! COMPARED AGAINST THE CONTENTS i 
6340 : 4119 ! OF THE REGISTER UNDER TEST. i 
6341 ; 4120 ! i 
6342 ; 4121 ! INDEX i 
6343 ; $is¢ ‘ USED BY THE MACRO WRT_MASK TO r 
6344 ; 412 : 3304 THE ye pl REGISTERS a yt r 
6345 ;: tics : FORCED HI, FORCED L DON'T CARE i 
6346 ;: 4125 ! MASK INFORMATION. 7 
6347 ; 4126! 7 
6348 ; 4127 ! ERR_FLG i 
6349 ;: 4128 ! CONTAINS THE ADDRESS (PASSED BY REF) 7 
6350 : ay +4 ! OF THE CALLERS ERROR FLG TO ENABLE THE U 
6351 : 4130 ! CALLER TO EXAMINE THE ERROR STATUS 
o526 3 4131 ! OF THE ROUTINE CALL. 
6355 ; £136 ' 
6354 : 413 ! eruncit 15 te 
6355 ; 4134! T_DAT. 
O26 Zz 4135 ! WTePts. LOADED em THE GENERATED 
6357 ;: $138 ! WRT_MASK DATA PATTERN THUS ALLOWING 
6338 BY ret : CALCER TO PRINT FAILING GOOD DATA. 
6360 ; t130 i RD_DATA 
6361 ;: 4140 ! GETS LOADED WITH DATA READ FROM THE 
6366 3 4141 ! REGISTER THUS ALLOWING A us 
6363 ; 2126 $ TO PRINT FAILING BAD DATA 
6364 ; 4143! 
6365 ; 4144 ! IMPLICIT OUTPUTS: 
6366 ; 4145! GLOBAL LOCATION WR_DAT. 
6367 ; 2128 $ RD_DATA LOADED Ww! tH GOOD 
6368 ; 414 : AND BAD REGISTER DATA 
6369 ;: 213s ! 
6370 ; 4149 !-- 








N_12 
CZMLACO ML=11 LOGIC TEST MACRO M1113. 18-MAY=-81 08:17 PAGE 171 CZML 
WRT.DS SEQ 0156 MSDU 
14-May- 1981 1 TOPS=20 Bliss-16 V2(212) ? 
14-May-1981 ‘9 ‘38 PA:<NEALEDML4.8L1.7 (46) g 
4150 7 
4151 .ERR_FLG = uERoi 'CLEAR THE ERROR FLAG 7 
413¢ WT_DATA = WRT_MASK; iSAVE THE DATA WRITTEN TO THE REGISTER 7 
4198 RD-DATA = WnLBs or . IGNORE; iREAD AND SAVE THE REGISTER , 
4135 if .WT_DATA neq .RD_DATA then .ERR_FLG = ONE; 'READ THE REG FOR WRT_MASK , 
4157 'SET ERROR FLAG IF NEQ ? 
4158 i 
é338 .SBTTL RD.DS 7 
9 92 774 004167 161044 RD.DS: JSR R1, $SAVE2 : 4098 7 
9 $500 005076 000010 CLR a16(SP) t ERR.FLG 4151 7 
94 023004 016600 000012 MOV 12(SP) ,RO : INDEX,* 4152 7 
95 023010 006300 ASL RO 7 
on Osenie 006300 ASL RO 7 
639 3014 006300 ASL R 7 
6398 023016 010001 MOV RO,R 7 
6399 023020 016100 013156 ML. “REGO2(R1) RO 7 
6400 023024 056600 900014 BIS 14 (SP) : TST.PAT,* ? 
6401 023030 046100 013160 BIC ML .REG+4(R1),RO 7? 
6408 023034 016102 013162 MOV ML. -REG+O(R1), *R2 ? 
6403 023040 05000. BIS RO.R 7 
6404 023642 81066 170060 MOV R2,WT.DAT 7 
6405 023046 017702 170152 MOV aM .REG : 4153 7 
6406 023052 056102 013162 BIS ML .REG+6(R1) RZ ? 
6407 023056 010267 170046 MOV R2,RD.DATA 7 
023062 026767 170040 170040 CMP WT .DATA,RD.DATA : 4155 v4 
6409 023070 001403 BEQ ? 
6410 023072 012776 000001 000010 MOV #1,a10(SP) 3 *,ERR.FLG ? 
ae 023100 1$: RTS PC : 4098 i 
| S18 ; Routine Size: 35 words | 2 
re} 3; Maximum stack depth per invocation: 3 words f 
6420 ? 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
? 
7 
7 
7 
7 
7 
7 
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RD.DS SEQ 0157 


6422 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
Se 3 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (47) 
6425 ; 4159 routine WRI_LREG (TST_PAT, REG_SEL, index) : novalue = 

6426 ; 4160 begin 

6427 ; 4161 

6428 ; rh !+* 

6429 ; 41635 ! FUNCTIONAL DESCRIPTION: 

6450 ; 4164! A ROUTINE TO SELECTIVELY 

6431 ; 4165! CALLED ROUTINES WHICH 

6432 ; 4166 ! WRITE TO INDIVIDUAL ML11 

6433 ; 4167 ! REGISTERS 

6434 ; 4168 ! 

6435 ; 4169 ! FORMAL PARAMETERS: 

6436 ; 4170 ! REG_S 

6437 ; 4171! CASE SELECT EXPRESSION TO 

6438 ; aii6 : SELECT THE WRITE REGISTER 

6439 ; 4173! ROUTINE TO CALLED 

6440 ; 4174! 

6441 ; 4175 ! TST_PAT 

6442 ; 4176 ! DATA PATTERN WHICH THE SELECTED 

6443 ; 4177! REGISTER WILL BE TESTED AGAINST 

6444 ; 4178 ! 

6445 ; 4179 ! INDEX 

6446 ; 4180 ! LOADED WITH THE ML_REG INDEX 

6447 ; 4181 ! SELECT NUMBER OF TRE REGISTER 

6448 ; 4182 ! BEING TESTED 

6449 ; 4183! 

6450 ; 4184 ! SIDE EFFECTS: 

6451 ; 4185 ! WHEN A WRITE REGISTER ROUTINE IS CALLED 

6452 ; 4186 ! THE VARIABLE "INDEX" FROM THE CALLING 

6453 ;: 4187 ! TEST IS LOADED WITH THE REGISTERS 

6454 ; 4188 ! ML_REG INDEX NUMBER. 

6455 ; 4189 ! 

6456 ; 4190 ! THIS ENABLES THE CALLING TEST TO FIND 

6457 ; 4191 ! THE FAILING REGISTER ADDRESS. 

6458 ; 4192 ! 

6459 ; 4193 !-- 

6460 ; 4194 

6461 ; 4195 case .REG_SEL from 0 to 13 of 'SELECT THE WRITE REGISTER ROUTINE CALL 
6462 ; 4196 set 

6463 ; 4197 

6464 ; 4198 [0] : ; 

6465 ; 4199 WRT_CS1 (.TST_PAT, .index = 0); !CALL ROUTINE TO LOAD MLCS1 
6466 ; 4200 

6467 ; 4201 13 : ; 

6468 ; $305 WRT_ER (.TST_PAT, .index = 6); 'CALL ROUTINE TO LOAD MLER 
6469 ; 420 

6470 ; $508 (2) : 

6471 : 4208 WRT_DA (.TST_PAT, .index = 3); ‘CALL ROUTINE TO LOAD MLDA 
6473 ; 420 (3] : 

6476 ; 4208 WRT_MR (.TST_PAT, .index = 10); !CALL ROUTINE TO LOAD MLMR 
6475 ;: 4209 

6476 ; 4210 [4] : 
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6478 ;ML4 

6479 ; 

6480 ; 

6481 ; 4211 WRT_E1 (.TST_PAT, .index = 13); 
6482 ; osig 

6483 ; 421 (5] : 

6484 ; 4214 WRT_E2 (.TST_PAT, index = 14); 
6485 ; 4215 

6486 ; 4216 (6) : ‘ 

6487 ; 4217 WRT_PA (.TST_PAT, .index = 8); 
6488 ; 4218 

6489 ; 4219 (7) : ; 

6490 ; 4220 WRT_PD (.TST_PAT, .index = 19); 
6491 ; 4221 

6492 ; $$5$ (8) : 

6493 ; 422 WRT_EE (.TST_PAT, .index = 17); 
64% ; 4224 

6495 ; 4225 (9) j 

64% ; 4226 WRT_EL (.TST_PAT, .index = 18); 
6497 ; 4227 

6498 ; 4228 (10) : 

6499 ; 4209 WRT_DS (.TST_PAT, .index = 5); 
6500 ; 4230 

6501 ; 4231 CilJ] : ; 

6502 ; 4232 WRT_D1 (.TST_PAT, .index = 15); 
6505 ; 4233 

6504 ; 4234 [12] : 

6505 ; 4235 WRT_D2 (.TST_PAT, .index = 16); 
6506 ; 4236 

6507 ; 4237 [13] : 

6508 ; 4238 WRT_D3 (.TST_PAT, .index = 14); 
6509 ; 4239 tes; 

6510 ; 4240 

6511 ; 4241 end; 

6515 

6516 -SBTTL WRT.REG 

6520 023102 004167 160736 WRT REG: JSR R1,$SAVE2 
6521 023106 016600 0 MOV 10(SP) ,RO 
6522 023112 016601 000014 MOV 14(SP) .R1 
6523 023116 016602 000012 MOV 12(SP) ,R2 
6524 023122 006 § ASL R 

6525 Sot 066207 023130 ADD $ocng) PC 
6526 os3! 000034 1$: - WORD $-1 

6527 0 s13e 000050 . WORD $-1$ 

6528 023134 000066 -WORD 4$-1$ 

6529 023136 000104 -WORD 5$-1$ 

6530 023140 000122 - WORD $-1$ 

6531 023142 000140 - WORD $-15 

6532 023144 000156 -WORD 8$-1$ 





14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.SL1.7 (47) 


!CALL ROUTINE TO LOAD MLE1 


!CALL ROUTINE TO LOAD MLE2 


!CALL 


! CALL 


'CALL 


! CALL 


'CALL 


!CALL 


!CALL 


'CALL 


ROUT INE 


ROUT INE 


ROUT INE 


ROUTINE 


ROUTINE 


ROUT INE 


ROUT INE 


ROUT INE 


TO LOAD MLPA 


TO LOAD MLPD 


TO LOAD MLEE 


TO LOAD MLEL 


TO LOAD MLDS 


TO LOAD MLD! 


TO LOAD MLD2 


TO LOAD MLE2 


. 

[om 

. 
2 


SEQ 0158 


4159 
4199 


4195 
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EG SEQ 0159 
65 3ML4 14-May-1981 13:48:54 TOPS 
$2 5 s 14-May-1981 13:05:08 PA:< 
6337 023146 000174 .WORD 9$-1$ 
65 08 150 00021 “WORD 108-18 
6539 023152 00023 “WORD 11$-1$ 
6540 023154 000246 “WORD 128-18 
6541 023156 000264 “WORD 13$-1$ 
64¢ 023160 000 08 “WORD 14$-1$ 
6543 023162 00032 “WORD 15$-1$ 
6544 023164 010146 2s: MOV R1,-(SP) ; 4199 
6545 023166 005010 CLR (RO) 

6546 023170 005046 CLR -(SP) 

6547 023172 00476 174272 JSR PC, WRT.CS1 

6548 023176 000532 BR 16$ : 4195 
6549 023200 010146 3$: MOV R1,-(SP) : 4202 
6550 023202 012710 000006 MOV #6, (RO) 

6551 023206 011046 MOV (RO) ,=(SP) 

6552 023210 004767 174432 JSR PC, WRT.ER 

6553 023214 000523 BR 16$ ; 4195 
6554 023216 010146 48: MOV R1,-(SP) : 4205 | 
6555 023220 012710 000003 MOV #3, (RO) | 
6556 023224 011046 MOV (RO) ,=(SP) 
6557 023226 004767 174572 JSR PC,WRT.DA | 
6558 023232 000514 BR 16$ : 4195 | 

59 023234 010146 5$: MOV R1,-(SP) : 4208 

560 023236 012710 000012 MOV #12, (RO) 

6561 023242 011046 MOV (ROS ,=(SP) | 
$6 023244 004767 174732 JSR PC, WRT.AR 
6563 023250 000505 BR 16$ : 4195. 
023252 010146 68: MOV R1,-(SP) : 4211 
6565 023254 012710 000015 MOV #15, (RO) | 
023260 011046 MOV (ROS ,-(SP) | 
6567 023262 004767 175300 JSR PC ,WRT.E1 | 
6568 023266 000476 BR 16$ : 4195 
6569 023270 010146 7$: MOV R1,-(SP) : 4214 | 
6570 023272 012710 000016 MOV =: #16, (RO) | 
6571 023276 011046 MOV (ROS ,=(SP) 
697¢ 023 004767 175470 JSR PC WAT .E2 | 
6573 023304 000467 BR 16$ : 4195 
6574 023306 010146 8$: MOV R1,-(SP) : 421? | 
6575 023310 012710 000010 MOV #16, (RO) | 
6576 023314 011066 MOV (ROS ,=(SP) 

577 0 3316 004767 175036 JSR PC WAT .PA | 
6578 023322 000460 BR 168 : 4195 | 
6579 023324 010146 98: MOV R1,-(SP) : 4220 
6580 023526 012710 000023 MOV «#28, (RO) | 
6581 0233 011046 MOV (ROS , (SP) 

6582 025554 004767 17566 JSR —- PC, WAT. PD 

658 3340 000651 BR 16$ : 4195 

6584 023342 010146 10$: MOV R1,-(SP) : 4223 

6585 023344 012710 000021 MOV #21, (RO) 

6586 023350 011066 MOV (ROS, =(SP) 

6587 023352 004767 176156 JSR PC ,WRT.EE 

6588 023356 000442 BR 16$ ; 4195 
| 
| 
| 
} 





To 
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6590 3ML4 14-May-1981 13:48: 
6591 ; 14-May-1981 13:05:08 
6593 0 010146 11$: MOV R1,-(SP) ; 

594 0 3369 Saati 000022 MOV #22, (RO) 
6595 0 011046 MOV (ROS ,=(SP) 
6596 02337 00476 176076 JSR PC ,WRT.EL 
6597 023374 000433 BR 16$ : 
6598 0 76 010146 12$: MOV R1,-(SP) : 
6599 0 012710 000005 MOV #5. (RO) 
6600 023404 011046 MOV (RO) ,=(SP) 
6601 9¢ 96 004767 177360 JSR PC ,WAT.DS 
660¢ 023412 000424 BR 16$ : 
6603 023414 010146 13$: MOV R1,-(SP) : 
6604 023416 012710 000017 MOV #17, (RO) 
6605 023422 011046 MOV (ROS ,=(SP) 

0 3424 004767 176146 JSR PC ,WRT.D1 

gene 023430 000415 BR 16$ : 
6608 023432 010146 14$: MOV R1,-(SP) : 
6609 023434 012710 000020 MOV 26, (RO) 
6610 023440 011046 MOV (ROS ,=(SP) 
6611 023442 004767 176442 JSR C,WRT. 
6612 023446 000406 BR 16$ F 
6613 023450 010146 15$: MOV R1,-(SP) : 
6614 023452 012710 000016 MOV #16, (RO) 
6615 023456 011046 MOV (ROS ,=(SP) 
6616 023460 004767 176736 JSR WRT .D 
6617 023464 022626 16$: CMP (SP) +, (SP)+ ; 
6618 023466 000207 RTS PC : 
6620 ; Routine Size: 123 words 
oe: 3; Maximum stack depth per invocation: 5 words 
6627 


CZMLACO ML-11 LOGIC TEST 
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AASAAAaA TSS SSeS Saas 
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routine RD_REG (TST_PAT, REG_SEL, ERR_FLG) 
begin 


ee 

i Daaetie DESCRIPTION: 
ROUTINE TO gl ae 

CALLED ROUTINES WHICH 

READ TO INDIVIDUAL ML11 

REGISTERS. 


rom ge 
CONTAINS THE ADDRESS fee. BY REF) 
CALLER TO EXAMINE THE ERROR STATUS 
OF THE ROUTINE CALL. 


REG_SEL 

CASE SELECT EXPRESSION TO 
SELECT THE WRITE REGISTER 
ROUTINE TO CALLED 


DATA PATTERN WHICH THE SELECTED 
REGISTER WILL BE TESTED AGAINST 


case .REG_SEL from 0 to 13 of 
set 


J 3 
RD_CS1 (.TST_PAT, 0, .ERR_FLG); 


3: 
RD_ER (.TST_PAT, 6, .ERR_FLG); 


C2) : 
RD_DA (.TST_PAT, 3, .ERR_FLG); 


(3) : 
RD_MR (.TST_PAT, 10, .ERR_FLG); 


[4] : 
RD_E1 (.TST_PAT, 13, .ERR_FLG); 


(5) : 
RD_E2 (.TST_PAT, 14, .ERR_FLG); 


(6) : 
RD_PA (.TST_PAT, 8, .ERR_FLG):; 


14-May-1981 13: 748:54 TOPS=-20 Bliss-16 vg (218) 
14-May-1981 13:65:08 PA: <NEALE>ML4.BLI.7 (48) 


: novalue = 


OF THE CALLERS ERROR FLG TO ENABLE THE 


!SELECT THE READ REGISTER ROUTINE CALL 


!CALL ROOUTINE TO READ MLCS1 


!CALL ROUTINE TO READ MLER 


'CALL ROUTINE TO READ MLDA 


!CALL ROUTINE TO READ MLMR 


'CALL ROUTINE TO READ MLE1 


!CALL ROUTINE TO READ MLE2 


!CALL ROUTINE TO READ MLPA 


SEQ 0161 


3 
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SEQ 0162 | 
6685 :ML6 14-May-1981 13:48:54  TOPS-20 BLiss=16 V2(212) 
6686 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.? (48) | 
668 
6688 ; 4294 [7] : | 
6689 ; 4295 RD_PD (.TST_PAT, 19, eERR_FLG); 'CALL ROUTINE TO READ MLPD 
6690 : 4296 
6691 : 459 [8] : | 
6692 4298 RD_EE (.TST_PAT, 17, .ERR_FLG); ICALL ROUTINE TO READ MLEE 
66% ; £%00 (9] : 
6695: 4301 RD_EL (.TST_PAT, 18, .ERR_FLG); 'CALL ROUTINE TO READ MLEL 
66% : 4302 
6697 : 4303 [10] : 
6698 : 4304 RD_DS (.TST_PAT, 5, .ERR_FLG); 'CALL ROUTINE TO READ MLDS 
6699 : 4305 
6700 : 4306 C11] : 
670% 5 4307 RD_D1 (.TST_PAT, 15, .ERR_FLG); 'CALL ROUTINE TO READ MLD1 
6703 : 4309 [12] : 
ore 3 $3/9 RD_D2 (.TST_PAT, 16, -ERR_FLG); 'CALL ROUTINE TO READ MLD2 
6706 : 4312 [13] : 
6707 : 431 RD_D3 (.TST_PAT, 14, .ERR_FLG); 'CALL ROUTINE TO READ MLE2 
6708 ; 4314 tes; 
6709 : 4315 
6710 ;: 4316 end; 
6714 
671 .SBTTL RD.REG 
6719 023470 004167 160350 RD.REG: JSR —-R1_SSAVE2 : 4242 
6720 023474 016600 000010 MOV —s«-10¢SP) .RO + ERR.FLG,* 4276 
6721 023500 016601 000014 MOV —«-14(SP) {RI : TST.PAT.# 
6722 023504 01 000012 MOV —s«-12(SP) {R2 : REG.SEL.* 4270 
6723 003510 006 ASL RP 
6724 023512 06620? 023516 ADD _—- 1$(R2), PC 
6725 023516 000034 1$: WORD 28-18 
6726 023520 000050 “WORD 3$-1$ 
6727 023522 000066 "WORD 4$-1$ 
6728 023524 000104 “WORD 5$-1$ 
6729 023526 000122 WORD 68-18 
6730 023530 90014 "WORD 7$-1$ 
6731 023532 000156 “WORD 8$-1$ 
6732 023534 000174 “WORD 9$-1$ 
6733 023536 000212 "WORD 108-18 
6734 023540 000 "WORD 11$-1$ 
6735 023542 000246 “WORD 128-18 
6736 023544 000264 "WORD 18$-1$ 
6757 023546 000802 "WORD 148-18 
6738 023550 00032 "WORD 15$-1$ 
6739 023552 010146 2s: mov R1.-(SP) : 4274 


_—E—————e 


AM 
aA 


! 
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SEQ 0163 | 11 
} 
6741 ZML4 14-May-1981 13:48:54 TOPS | 
oreg : 14-May-1981 13:05:08  PA:< | 
6744 023554 005046 CLR = =(SP) 
6745 023556 910046 MOV RO,-(SP) | 
6746 023560 00476 173754 JSR PC-RD.CS1 
6747 0 3364 000532 BR 168 ; 4270 
6748 0 366 010146 38: MOV R1,-(SP) : 4277 
6749 0235 12746 000006 MOV #6.~(SP) 
6750 023574 01 6 MOV RO, -(SP) 
6751 0 3576 004767 174114 JSR PC-RD.ER 
6752 023602 000523 BR 16$ : 4270 
6753 023604 010146 4$: MOV R1,-(SP) : 4280 
6754 023606 012746 000003 MOV #3.-(SP) 
755 023612 910046 MOV RO,-(SP) 
6756 023614 004767 174254 JSR PC-RD.DA 
6757 023620 000514 BR 16$ : 4270 
6758 023622 010146 5$: MOV R1,-(SP) : 4283 
6759 023624 012746 000012 MOV #12,=(SP) 
6760 0236 910046 MOV RO,-(SP) 
6761 023632 004767 174414 JSR PC-RD.MR 
6768 023635 000505 BR 16$ : 4270 
6763 023640 010146 6$: MOV R1,-(SP) : 4286 
6764 023642 012746 000015 MOV #15, -(SP) 
6765 023646 010046 MOV RO,-(SP) 
6766 023650 004767 174776 JSR PC-RD.E1 
6767 023654 000476 BR 16$ : 4270 
768 023656 010146 7$: MOV R1,-(SP) : 4289 
6769 023660 012746 000016 MOV #16,-(SP) 
6770 023664 010046 MOV RO,-(SP) 
6771 023666 004767 175200 JSR PC-RD.E2 
6772 023672 000467 BR 1 : 4270 
6773 023674 010146 8$: MOV R1,-(SP) : 4292 
774 023676 012746 000010 MOV #10,-(SP) 
6775 023702 910046 MOV RO,-(SP) 
6776 023704 004767 174534 JSR PC-RD.PA 
6777 023710 000460 BR 16$ : 4270 
6778 023712 010146 9$: MOV R1,-(SP) : 
6779 023714 012746 000023 MOV #23,-(SP) 
6780 023720 01 MOV RO,-(SP) 
6781 023722 00476 175406 JSR PC-RD.PD 
6782 023726 000451 BR 168 : 4270 
6783 023730 016146 10$: MOV  R1,=(SP) ; 4298 | 
6784 3 012746 000021 MOV #31 (SP) 
6785 023736 01 $ MOV RO,-(SP) 
6786 0 3740 004767 175572 JSR PC-RD.EE 
6787 023744 000442 BR 16$ : 4270 
6788 025746 010146 11$: MOV R1,-(SP) : 4301 
6789 0237 12766 000022 MOV #22,-(SP) 
6790 0237 1 MOV RO, -(SP) 
6791 02375 76 175512 JSR PC°RD.EL 
6792 023762 000433 BR 16§ : 4270 
6793 0 3764 010146 12$: MOV R1,-(SP) : 4 
679% 02 766 012746 000005 MOV #5.-(SP) 
6795 023772 010046 MOV RO.=(SP) 












6797 
6798 
6799 


6800 023774 
ee 
6803 024004 
6804 024010 
6805 024012 
6806 02401 
6807 0240. 
6808 0 005 
6809 024026 
6810 024030 
6811 024034 
oie 024036 
6813 024040 
6814 024044 
6815 024046 
6816 024052 
6817 024056 
6818 

6819 

6820 

6825 

6826 

6827 


yn ML-11 LOGIC TEST 


338 
No 

NoEN 
RENO 


oo 
a 


SkSSe2 sses 3 

a ed —_ —) 

ENS aves sexes 

Scsesesssscs 
NOAAARNARAWNAAAE 


16$: 


o 
™N 


14$: MOV 


15$: MOV 


RTS 
; Routine Size: 
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PC.RD.DS 
16$ 


PC-RD.D1 
16$ 


R1,-(SP) 
#20,-(5P) 
RO,-(SP) 
PC-RD.D2 
16$ 


R1,-(SP) 
#16,-(SP) 
RO,-(SP) 
PC-RD.D3 
#6.SP 


124 word 


; Maximum stack depth per 


s 
invocation: 6 words 
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SEQ 0165 | 
3ML4 1o-May-1981 13:48:54 — TOPS-20 Bliss~16 v2(212) | 
683 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1.7 (49) | 
6832 : 4318 BGNMSG (DUMPER); | 
6837 .SBTTL DUMPER | 
6841 000004 DUMPER: : JSR BC .MSDUMPER : 4318 
6842 024064 104423 TRAP = 2 
684 RTS PC 
6844 
6845 ; Routine Size: 4 words 
oat¢ * Maximum stack depth per invocation: 0 words 
6852 
6853 ; 4319 
6854 : 4320 !++ 
6855 : 4321 FUNCTIONAL DESCRIPTION 
6856 : 4322 | UPON COMPLETION OF ERROR MESSAGES 
6857 : 4323 | DUMP OUT ALL PERTINENT DRIVE AND 
6858 : 4324 | RH REGISTERS 
6859 : 4325 i= 
6860 : 4326 
6861 : 4327 PRINTB (ONE_FMT, PHR_14); 'PRINT REGISTER DUMP MESSAGE 
6862 : 4328 PRINTB (FMT~23): ‘PRINT DUMPER COLUMN HEADINGS 
6863 : 4329 PRINTB (FMT_24, REG_1, MLCS1, .MLCS1); iPRINT OUT THE RH & ML11 REGISTER CONTENTS 
6864 : 4330 PRINTB (FMT~24. REG_18, mLUC ALC) 
6865 : 4331 PRINTB (FMT~24. REG-19. ML 
6866 : 4332 PRINTB (FMT~24, REG-6, MLDA, .MLDA);- 
6867 : 4333 PRINTB (FMT~24. REG-17, MLCS2, .MLCS2); 
6868 : 4334 PRINTB (FMT~24. RE =¢- "MLDS, .MLDS); 
6869 : 4335 PRINTB (FMT~24, REG-3. MLER. .MLER): 
6870 : 4356 PRINTB (FMT—24, REG_5. MLAS. .MLAS): 
6871 : 4337 PRINTB (FMT~24. REG-4. MLMR. .MLMR) 
6872 : 4338 PRINTB (FMT~24, REG-7. MLDT, .MLDT): 
6873 : 4339 PRINTB (FMT~24, REG-9, MLSN, .MLSN); | 
6874 : 4340 PRINTB (FMT~24, REG_14, MLEE, .MLEE); 
6875 : 4341 PRINTB (FMT~24, REG-15. MLEL. .MLEL): 
6877 : 1308 if .LST_DUT_REG eql 21 'SEE IF THIS IS A RH70 
6878 ; 4344 then ‘IF YES THEN PRINT RH70 REGISTERS 
6880 : 4346 Bente (EMT -34+ REG.20. MUBAE, .mLBAE): 
6881 : 4347 PRINTB (FMT~24, REG~21. MLCS3. .MLCS3): 
ret] BB : 4349 | 
! 
| 


. 
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DUMPER SEQ 0166 | 
6885 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) | 
6886 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (49) | 
6888 ; 4350 ENDMSG; | 
6892 
689 .SBTTL MSDUMPER 
6897 024070 MSDUMPER: 
6898 024070 012746 007662 MOV #PHR.14,-(SP) : 4327 
6899 024074 oI 746 006016 MOV #ONE . FMT, =(SP) 
6900 024100 012746 000002 MOV #2,-(SP) 
6901 024104 010600 MOV SP,RO : SP,* 
6902 024106 104414 TRAP —s_-‘14 
6903 024110 012716 005652 MOV #FMT.23, (SP) : 4328 
6904 024114 012746 000001 MOV #1,-(SP5 
6905 024120 010600 MOV SP,RO 3 SP,* 
6906 024122 104414 TRAP ‘14 
6907 024124 017716 167024 MOV @ML.REG, (SP) : 4329 
6908 024130 016746 167020 MOV ML.REG,-(SP) 
6909 024134 012746 010256 MOV #REG. 1.-(SP) 
6910 024140 012746 005722 MOV #FMT.24,-(SP) 
6911 024144 012746 000 MOV 4,-(SP5 
6912 024150 010600 MOV SP,RO : SP.* 
6913 024152 104414 TRAP 
6914 024154 017716 167004 MOV @ML .REG+10, (SP) : 4330 
024160 016746 167000 MOV ML.REG+10,-(SP) 
024164 012746 010430 MOV #REG. 18,-(SP) 
024170 012746 005722 MOV #FMT.24.-(SP) 
6918 024174 012746 MOV #4 ,-(SP5 
6919 024200 010600 MOV SP.RO : SP.* 
6920 024202 104414 TRAP ‘14 
6921 024204 017716 166764 MOV @ML .REG+20, (SP) ; 4331 
6922 0246210 016746 166760 MOV ML .REG+20,-(SP) 
6923 024214 012746 010436 MOV #REG. 19, =< 
924 024220 O1g746 005722 MOV #FMT.24,-(SP) 
6925 024224 012746 000004 MOV #4,-(SPS 
926 024230 010600 MOV SP,RO : SP,* 
6927 024232 104414 TRAP 
6928 024234 017716 166744 MOV @ML .REG+30, (SP) : 4332 
6929 024240 016746 166740 MOV ML .REG+30,-(SP) 
6930 024244 oI 746 010316 MOV #REG.6,-(SP) 
6931 024250 012746 00572 MOV #FMT.24,-(SP) 
6952 024 012746 000004 MOV #4 ,~(SP5 
6933 024 60 01 MOV SP.RO : SP,* 
6934 9 4 104414 TRAP o14 
6935 024 017716 166724 MOV @ML .REG+40, (SP) : 4333 
936 024270 016746 166720 MOV ML .REG+40,-(SP) 
6937 024274 012746 010420 MOV #REG. 17, -(SP) 
6938 024 012746 005722 MOV #FMT.26,-(SP) 
6939 024304 012746 000004 MOV #4,-(SP5 
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Oooo 
on mh 4 MmMNVIA~N MMITIA MMTNIAN 
SNE NINE 
Prey ye so 
AXARHLSAAAARKSGAAAAALOSAAAAARLOAAAAAS 
Sfss SSSsz setae 
Sass Suask Suess 
“Ww “Ww ww 
N MN No Nw 
MLOf MNOSf& moose 
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SxxS 
TS 
ARO 


VANS TE 
PS ee 
PAAAAX & 
Seas 
— 
oe 
ne 
mo 


=—OOOO000 “900000 $O0O00o00]$Oo00o00 --0000 
whe ee 
& 
PSS FS 
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Ot at as 


RR 
Sz 





SP,RO 
4 


@ML .REG+50, (SP) 
ML .REG+50,=(SP) 


e 


@ML .REG+60, (SP) 
ML .REG+60 ati 


e 


@ML .REG+70, (SP) 
et tit 


#REG.5,-(SP 
#FMT.24,-(SP) 
#4,-(SP) 
SP-RO 


1 
@ML .REG+120, (SP) 
ML .REG+120,-(SP) 


14 
OML .REG+130, (SP) 
deh inh 


#REG.7,- 
#FMT.24,-(SP) 
#4,-(SP5 
SP.RO 


4 
@ML .REG*+140, (SP) 
ML .REG*+140,=(SP) 


#REG.9,-(S 
#FMT.24,-(SP) 
#4 .=(SP) 


1 
#146,SP 


3 


. SP,* 


; SP,* 


. SP,* 


a SP,* 


; SP,* 


; SP,* 


; SP,« 


; SP,* 
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81 13:4 
14-May-1981 13:0 
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! <BLF /PAGE> 


000025 


; Routine Size: ; , 
3; Maximum stack depth per invocation: 





al -REGS220, (SP) 
ML .REG+220,-(SP) 
#REG.15,-(SP) 
#FMT.26,=(SP) 
#4,-(SP5 

SP.R 


14 
ist Ut ARS 45 


@ML .REG+240,-(5P) 
ML .REG*240,-(SP) 
#REG. 20,-(SP) 
#FMT.24,=(SP) 
#4,-(SP5 
SP 


14 

@ML .REG+250, (SP) 
ML .REG+250,-(SP) 
#R (SP) 


EG.21,- 
#FMT.26.=(SP) 
#4,-(SP5 
SP.RO 


14 
oc - $e 
#12,SP 
PC 


205 words 





SEQ 0168 


8:54 TOPS 
:05:08 PA:< 


4341 


4343 
4346 


4347 
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MSDUMOER SEQ 0169 T 
7037 :ML4 14-May-1981 13:48:54  TOPS=20 Bliss-16 v2(212) i 
7035 | 14-May-1981 13:05:08 | PA:<NEALEDML4.B8L1.7 (50) i 
( 
7040 ; 4352 7 
7041 ; 4353 BGNINIT: 7 
rue : 4354! “INITIALIZATION CODE IS EXECUTED AT THE BEGINNING OF EACH 7 
7043 ; 4355 PASS, WHEN BOWER pPoun/ POWER UP HAS OCCURRED WHEN THE 7 
7064 : 4 36 i OPERATOR HAS ISSUED A START RESTART OR CONTINUE COMMAND. 7 
7045 : 4357: DURING INTTIALTEATION. | THE "GPHARD' MACRO IS USED TO GET 7 
7046 : 4358 i P=TABLE INFORMATION FOR THE LOGICAL UNIT UNDER TEST. THE 7 
7047 ; 4359 NUMBER OF UNITS AVAILABLE: FOR TESTING IS CONTAINED IN A 7 
7048 : 4360 HEADER LOCATION ('LSUNIT 7 
7049 : 4361 7 
7050 : $366 local i 
7051 ; 436 OFFSET; i 
7052 ;: 4364 i 
7053 ;: 4365 external i 
7054 : 4366 L ; 7 
7055 : 436 7 
7056 : 4368 if not READEF (EF_CONTINUE) 'SKIP INIT CODE IF CONTINUE 2 
7057 : 4369 then j 
7058 : 4370 begin !START GPHARDS AT LUN 0 AND LOAD ‘ML_REG' { 
7060 : 437 if READEF (EF_START) 'SEE IF THIS IS THE VERY FIRST PASS ? 
7061 : 437 then _ ? 
7062 : 4374 begin 'THIS IS CATEGORY 1 CODE i 
7063 ; 4375 ML_LUN = 1; i 
7064 ; 4376 7 
7065 : 4377 do 2 
7066 ; 4378 begin i 
2067 : 4379 ML_LUN = .ML_LUN + 1; ' INCREMENT LOGICAL UNIT NUMBER ‘ 
7069 : 4381 if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS HAVE BEEN TESTED i 
7071 ;: 4383 end ( 
07 ; 438% until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0: ‘REPEAT UNTIL A ZERO IS NOT RETURNED { 
7074 : 4386 RH_ADD = .((.PTBL_PTR) + 0); 'GET BASE RH ADDRESS FOR THIS UNIT ( 
7075 : 4387 RH-TYP = .((.PTBL-PTR) + 2): 'GET RH TYPE FOR THIS UNIT i 
7076 ;: 4388 RH-VEC = .((.PTBL_PTR) + 4); 'GET RH VECTOR FOR THIS UNIT i 
1077 : 4389 OFFSET = 0; ‘INIT OFF SET COUNT { 
7079 : 4391 incr COUNT from 0 to 21 do !LOAD THE REGISTER ADDRESS FOR THIS UNIT INTO ML_REG . { 
7080 e egin 
7081 : 439 ML REG C.COUNT. REGISTER _ADD] = .RH_ADD + OFFSET; r 
7082 : 4394 OFFSET = .OFFSET + 2: 
7083 ; 4395 end; i 
7084 ;: 4396 ? 
rOB : 1398 l me ‘IS THIS A NEW PASS 
Py eise bs ( 
7087 ; 4399 begin i 
7088 : 4400 i 
7089 : 4401 if READEF (EF_NEW) then ML_LUN = -1; ‘IF NEW PASS START GPHARDS AT LUN 0 ‘ 
so9e ima = 14-May-1981 13:48:54  TOPS=20 Bliss-16 v2(212) 
y= j= ss Vv 
088 * 1aamay=1981 | 13:05:08 | PA:<NEALEDML4. rth: 238) 


a 








SN SN NSS NGS 
ee ee ee eS. eS ee ee ee 
et o  - H 
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SEQ 0170 
4404 begin 
pre ML_LUN = .ML_LUN ¢ 1; !IF NOT GET NEXT LUN PTABLE 
4407 if .ML_LUN geq .LSUNIT then DOCLN; !START OVER IF ALL UNITS ARE TESTED 
4409 end 
4610 until (GPHARD (.ML_LUN, PTBL_PTR)) neq 0; !REPEAT UNTIL A ZERO IS NOT RETURNED 
rh end; 
4414 PAR_DIS = .((.PTBL_PTR) * 12); 'GET PARITY DISABLE FLAG 
4415 ML_BuT = .((.PTBL_PTR) + 10); 'GET DRI ve NUMBER 
4416 OP"NUM_ARR = .((.PTBL_PTR) * 6) = 1; 'GET OPERATOR NUMBER OF ARRAYS 
4417 GObD_B[k = ZEROES; ‘INIT GOOD BLOCK TO BLOCK ZERO 
4418 ARK_16 = ZEROES; 'INIT ARRAY 16 TO ZERO 
4419 LST_ARR = ZEROES; ‘INIT LAST ARRAY TO ZERO 
$939 LST_BLK = ZEROES; ‘INIT LAST BLOCK TO ZERO 
46 if .((.PTBL_PTR) + 8) IS_SET ‘CALCULATE ML11 16K MOS RAM PARAMETERS 
4424 begin 
4425 DRIVE_TYPE = to! 000110"; ‘EXPECTED DRIVE Type VALUE 
4426 W_C_SIZE = %0°140000'; ‘WORD COUNT SIZE FOR 16K WORD XFER 
4427 RAS“ INC = %0°200°; 'RAS INCREMENT FOR 16K RAMS 
4428 CHIP _SIZ = 16; 'CHIP SIZE 
4409 ARR_INC = %0'1000'; {ARRAY INCREMENT 
4430 ARR-16<9, 4> = 0°17": VARRAY 16 
4431 LST“ARR<9, 4> = -OP _NUM_ARR; LAST ARRAY 
4432 LSTIBLK<9, 4> = .OP_NUM_ARR ‘LAST BLOCK 
4433 LST-BLK = .LST_BLK Or %0'779"; 
4434 end 
4435 else 'CALCULATE ML11 64K MOS RAM PARAMETERS 
4437 rive TYPE = Z0°000111'; ‘EXPECTED DRIVE TYPE VALUE 
4438 w_C_STZE = %0'000000': ‘WORD COUNT SIZE FOR 64K WORD XFER 
4439 RAS“ INC = %0°1000°; ‘RAS INCREMENT FOR 64K RAMS 
4440 CHIP_SIZ = 64; ‘CHIP SIZE 
4441 ARR_INC = %0°4000"; ‘ARRAY INCREMENT 
444 ARR-16<11, 4> = 20°74"; ‘ARRAY 16 
444 LSTZARR<14, 4> = -OP NUM _ARR: ‘LAST ARRAY 
4444 LSTIBLK<11, 4> = .OP"NUM”AR iLAST BLOCK 
4445 LSTBLK = :LST_BLK oF Worsroe: 
2 Ei og 
4468 if .((.PTBL_PTR) + 2) eql 20°70 then LST_DUT_REG = 21 else LST_DUT_AEG = 
4450 PRINTB (FMT_17, .ML_LUN); TELL OPERATOR WHICH UNIT IS BEING TESTED 
4451 CLR_MBUS; LEAR MASS BUS 


445 
4454 ENDINIT; 
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166622 
155022 


166550 
166540 
166539 


166450 


154650 


164366 
166370 


JSR 


R1,SSAVE3 
#36,R0 
4? 
1$ 
PC 
#640,R0 
47 
5$ 
#-1,ML.LUN 
ML .LUN 
ML.LUN,LSUNIT 
3$ 
rat 

-LUN,RO 
RO,PTBL.PTR 
* paate 
@PTAL.PTR,RH.ADD 
PTAL.PTR,R1 
2(R1) .RH.TYP 
PTBL.PTR.R1 
4(R1) RH. VEC 
R2 
R1 
R1,R0 
RO 
RO 
RO 
RH-ADDR3 
R3.ML.REG(RO? 
#2:RD 


R 

ot 

8$ 

#35,R0 

47 

6$ 
#@-1,ML.LUN 
ML .LUN 


ML.LUN,LSUNIT 
a 


6 
ve 
RO,PTBL.PTR 
PrGL .PTR 
PTBL.PTR,R1 
14(R1) PAR.DIS 
PTBL.PTR,Ri 
12(R1) ML .DUT 


14-May-1981 13:48:54 
14-May-1981 13:05:08 


SEQ 0171 


4350 
4368 


4414 
4415 


- 
D 14 | 
/ CZMLACO ML=11 LOGIC TEST MACRO M1113 18-MAY-81 03:17 PAGE 184-3 ¢ 
| LINIT SEQ 0172 $ 
Tele Oseste 016701 164340 MOV PTBL.PTR,R1 $ 4416 
18 025 16 016103 000006 MOV 6(R1) .R3 
7219 025 00530 DEC RS 
7220 025226 010367 164330 MOV R3,0P.NUM.ARR 
7221 025 005067 164330 CLR GOOD.BLK ; 4417 
7 ¢ 085 005067 164 CLR ARR. : 6418 
es 025240 005067 164 $ CLR LST.ARR : 4419 
& 025244 005067 1643 CLR LST.BLK : 4420 
7225 025¢50 016701 164302 MOV PTAL.PTR,R1 : 4422 
36 025254 026127 000010 000001 CMP 10(A1) ai 
7227 025262 001054 BNE 9$ 
7228 025¢64 O12 67 000110 165640 MOV #110, DRIVE. TYPE ; 4425 | 
99 5272 012767 140000 165622 MOV #-40000,W.C. : 4426 | 
72 025 012767 900200 165616 MOV #200,RAS.IN : 6427 | 
7231 025306 012767 000020 164254 MOV #20, CHIP.SI2Z : 6428 | 
238 025314 012767 001000 164240 MOV 1 % : 4429 | 
723 3322 052767 017000 1642464 BIS #17000, ARR. ; 4430 | 
7234 025330 016703 164224 MOV NUM. ARR, : 4431 
7235 025334 000303 § 
7236 025336 ASL R3 
7237 025340 042703 160777 BIC #160777.R3 | 
7238 025344 042767 017000 164224 BIC #17000, LST.ARR | 
7239 025352 050367 164220 BIS R3,LST.ARR | 
7240 025356 016703 164176 MOV OP: NUM. ARR, R3 : 4432 | 
7241 025 000303 SWAB ORR | 
robe 025364 006303 ASL R | 
724 025366 042703 160777 BIC #160777,R3 
7244 025372 042767 017000 164172 BIC #17000,LST.BLK 
7245 025400 050367 164166 BIS R3 LST BLK | 
7246 025404 052767 000777 164160 BIS #777 ,LST.BLK : 4433 | 
7247 025412 1 BR : 4422 | 
7248 025414 012767 000111 165510 9$ MOV #111, DRIVE. TYPE : 4437 | 
7249 025422 005067 165474 CLR w.C. SIZE : 4438 | 
7250 025426 012767 001000 165470 MOV #1000, RAS. INC : 4439 | 
025434 012767 000100 16412 MOV #100, CHIP. S12 : 4440 | 
7252 025442 012767 004000 16411 #4000. ARR. INC : 1 
7253 025450 042767 074000 164116 BIC #74000, ARR. 16 : 4442 | 
7254 025456 052767 060000 164110 BIS 0000, ARR.1 
7255 025464 016703 164070 MOV OP.NUM.ARR.R ; 6443 
7256 025470 000303 SWAB RB 
725 ZML4 14-May-1981 13:48:54 TOPS | 
1638 ; 14-May-1981 13:05:08  PA:< | 
7260 025472 30 ASL R 
7261 025474 iret ASL Py 
6¢ 025476 30 ASL R 
63 025500 04270 103777 BIC #103777,R3 | 
64 025504 767 07% 164064 BIC #74000,LST.ARR | 
65 0 5512 05 367 164 BIS R3,LST.ARR | 
7266 3516 16703 1640 MOV OP. NUM. ARR, ; babs 
726 0255 SWAB OR | 
7268 5524 ASL R 
69 55 ASL R 
0 55 ASL Rg 
5 p 22 FEF 092000 166026 Ble aaboo Cet .eLk 
8 5544 050367 Pets: BIS R3,LST.BLK 





CZMLACO ML-11 LOGIC TEST 
LINIT 


7274 025550 
ost? 02555 
7276 02556 
7277 02557 
7278 02557 
7279 025600 
7280 0 a006 
7281 Bs2e! 
7282 025614 
7283 025620 
7284 025624 
7285 025626 
7286 0256 
7287 0 2878 
7288 02564 
7289 025646 
7290 BS2ee8 
7291 025660 
7292 025 
7293 

7234 

7295 

7300 

7301 

7305 

7306 

7319 025666 
7311 025672 
Ris 

731 

7314 

7315 025674 
7316 

7317 

7318 

7323 

7324 


Ssss 
mw 
aan 
=—IN 
moo 
NN 


ecouacoscoeso 
44 —_ 
MMIAMON— 
NNNNEN 

SR EAOO 

NWN OOOAOANGN 


—— 
Ws 


0627 


SES 





003777 
163774 
000002 


000025 
000023 
165764 
00 


5306 
000002 


195740 


177770 
7 


703384 
000006 


177030 


' <BLF /PAGE> 
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164014 
000070 
165334 
165324 


165356 


165340 


BIS #3777,LST.BLK 
10$: MOV PTBL.PTR,R1 
CMP ecRi) .#76 


BNE 

MOV Sepang 
11$: MOV #23,LST.DUT.REG 
12$: MOV ML.LUN,-(SP) 

MOV #FMT.17,=(SP) 

MOV #2,-(SP5 

MOV SP.RO 

TRAP ‘14 

BISB #40,aML.REG+40 

MOV R3 

BIC #177770,R3 

BICB = #7 , AML. REG*40 


BISB R3.aML.REG+40 
ADD #6,SP 


3; Routine Size: 242 words 


3; Maximum stack depth per invocation: 7 words 


-SBTTL L$ T 
LSINIT::JSR PC,LINIT 
TRAP 11 
sML4 


RTS PC 


; Routine Size: 4 words 


; Maximum stack depth per invocation: 0 words 


SEQ 0173 


. SP,* 


14-May-1981 13:48:54 
14-May-1981 13:05:08 





4445 
4448 


4450 


Te 








2 
—> 
Aa 


NNNN 
WW 
berherte) 
WMO 0Oo~ 


pera 


SESS SSE 


~ 
Wo) 
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. 


o-oo 
=us= 


7374 02570 
71 


eeceeraees 
Scearbey 


ooooo 
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SEQ 0174 


14-May-1981 1 3% TOPS=-20 Bliss-16 V2(2 


74 2) 
14-May-1981 13:05: 1 


1 
08 § PA:<NEALEDML4.B8L1.7 (51) 
' 
BGNTST; 


lee 


i TEST NUMBER: TST 1 
TEST NAME: MASS BUS READY TEST 
TEST DESCRIPTION: 
Test THE RH CONTROLLER FOR EXISTANCE 
1. WRITTING ONES TO THE RH cs2 REGISTER 
RESULTING IN A MASS BUS C 
2. THEN READ THE CS2 REGISTER FOR CLEAR DATA 


o eee 


LR_MBUS; 
MLCS1 = ZEROES; ‘CLEAR OUT CS1 
MLCS2 = %0'177770': ‘LOAD CS2 WITH ONES AND FORCE A MBUS CLEAR 


DELAY (ONE_US); 


it ((.MLCS2) and (%0°177670")) neq ZERO 'SEE IF CS2 GOT CLEARED 
begin ‘REPORT ERROR IF NOT CLEARED 

ERRDF (119, RH_ERROR, DUMPER 

PRINT® (THR_FMT, REG.17, FNC bs, PHR_4); 

popu tM LON) : 


end; 
ENDTST; 
.SBTTL $71 
$T1: MOV R1,-(SP) 3 
TST -(S$ Sp) 
00004 0 165304 Bise m0, GAL, REG*40 : 
133988 BIC Aaa R1 
000007 165266 BICB =s-_« #7, AML. REG*+40 
165262 BISB = R1, @ML .REG*40 
165 16 CLR aml .REG : 
177770 165250 MOV #-10, aML .REG+40 : 
000001 MOV #1,R0 : *, SSTMP2 
ZML4 14-May-1981 13:48:54 
: 14-May-1981 13:05:08 
1$: BEQ 4$ 
154140 MOV LSDLY.RI 7 *,SSTMP1 
BEQ $ 
2s: CR (SP) > SSTMP 
DEC R1 : $STMP1 


mms 


C 
$T 
7390 02 
rt 

7 33 0 

94 0, 


5764 
57 
57 


PRACO ML-11 LOGIC TEST 


me 


ce 


oO 


S 


Soo0cceco 


= SP 


SEINE ESE 
SORRELSE 


4490 


14 
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BR 
177670 165214 4$: ait 


165532 


000012 


177606 


! <BLF /PAGE> 


BNE 
3$: DEC 


5$: TST 
MO 
RTS 


: Routine Size: 
3; Maximum stack 


» SBTTL 


wea 
qj 
n“ 
xz 


sML4 


3; Routine Size: 
3 Maximum stack 


2$ 
RO 


#-110,aML .REG+40 


59 words 


depth per invocation: 


6 words 


depth per invocation: 


7 words 


0 words 


SEQ 0175 | 


3; SSTMP2 


: SP,* 


14-May-1981 13:48:54 
14-May-1981 13:05:08 


4480 | 
4483 | 


4484 


4485 


4482 
4454 


C2 
$T 


H 14 
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"1 SEQ 0176 | 


7450 :ML4 14-May-1981 13:48 :48:54  TOPS=20 Bliss-16 v2(212) 

7451 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (52) 
i] 

4492 BGNTST; 


94 See 
4495 ! TEST NUMBER: TST 2 
TEST NAME: MASS BUS HANDSHAKE TEST 
! i TEST OE SCRIAT ION: 
TEST MASS BUS TO UNIBUS COMMUMI CATIONS 
VIA THE CONTROL BUS BY: 


| 
1. READING RH AND DRIVE REGISTERS AND | 
at THE NON EXISTANT DRIVE ‘NED’ 


local 
0 SAVE, ' TEMPORARY SAVE LOCATION 
} DODU_FLG; iDROP UNIT FLAG 
3 DODU_FLG = ZERO; 
5 incr, REG_SEL from 0 to .LST_DUT_REG do 'TEST ALL PRESENT RH REGISTERS 

n 
§ BGNSUB; 'START OF SCOPE LOOP 
8 CLR MBUS ; 
3 SAVE = ..ML_REG C.REG_SEL, REGISTER_ADD]; !READ THE REGISTER | 
1 it. -NED 1S_SET 'DID READ CAUSE THE NED BIT TO SET | 
¢ begin ‘REPORT AN ERROR IF SET 
4 ERRDF (120, RH_ERROR, BUMPER) 
5 PRINTB (F IVF FMT, WRD 62, PHR 5 WRD_12, WRD_52, FNC_6); 
6 PRINTB (FMT-11, .ML_REG C.REG_SEL, Recister” “Aadb)); 
? DOMU_FLG = ONE: 
8 end; | 
$5 ENDSUB; ‘END OF SCOPE LOOP 
HI end; | 
3 if .DODU_FLG IS_SET 
34 then 
35 begin 

DODU (.ML_LUN); 
3 DOCLN; | 
3 end; | 
0 ENDTST; | 


z 
co 
Be Se Se Se Ge Be Ge Be Se Ge Be Be Ge Ge Ge Be Ge Se Ge Be Ge Se Be Se Ge Fe Ss Be Be Ge Se Be Be Ge Be Ge Se Be Be Se Se Se Se se Be Gs Se Be Os Se 


fw 


DEC R1 : DODU.FLG 4533 


4 | 
CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY=81 08:17 PAGE 1} | 
11 SEQ 0177 | 
7510 | 
7511 .SBTTL $12 
7515 026100 004167 156012 $72: JSR R1,$SAVES : 4489 | 
7516 026104 005001 CLR R1 t DODU.FLG 4513 | 
7517 0 6106 016 165022 MOV LST.DUT.REG,R4 : 4515 
7818 026112 005002 (LRRD : REG.SEL | 
7519 026114 000474 BR 4$ 
$320 0 116 910200 1$: MOV R2,RO : REG.SEL,* 4519 | 
7521 026120 006300 ASL RO 
73¢e 026122 006300 ASL RO 
7523 026124 006300 ASL RO 
7524 026126 010003 MOV RO,R3 
13¢5 0261 10440 2$: TRAP : 4516 
7526 026132 152777 000060 165054 BISB #40,aML.REG+40 : 4517 
7527 026140 016700 165436 MOV 
7528 926144 042700 177770 BIC #177776,R0 
7529 026150 148777 7 165036 BICB = #7 , AML. REG+40 
7530 026156 150077 165032 BISB RO. aML.REG+40 
7531 026162 017305 013154 MOV @ML .REG(R3) RS 3 *, SAVE 4519 
133 026166 032777 010000 165020 BIT #10000, aML .REG+40 : 4521 
7533 026174 001440 BEQ 3$ 
7534 026176 104455 TRAP «455 : 4524 
7535 02 000170 .WORD 170 
7536 026202 011060 “WORD RH. ERROR 
7537 026204 024060 "WORD OD 
7538 026206 012746 010004 MOV #FNC.6,-(SP) : 4525 
7539 026212 012746 007066 MOV #WRD. g.7 (SP) 
7540 026216 012746 606426 MCV #WRD. 12.-(SP) 
7541 026222 012746 007472 MOV #PHR.5,-(SP) 
754 026206 012746 007210 MOV MWRD.62,-(SP) 
754 0262 012746 006062 MOV #F1V.FMT,=(SP) 
7544 02 36 012746 000006 MOV #6,-(5S 
7545 026242 010600 MOV “RO : SP,* 
7546 026264 104414 TRAP ‘14 
7547 026246 016316 013154 MOV ML.REG(R3) , (SP) : 4526 
7548 026252 012746 004750 MOV #FMT.11,-(SP) 
7549 026256 012746 000002 MOV #2,-(SP5 
7550 0 6262 01 MOV SP.RO : SP,* 
7551 6264 104414 TRAP ‘(14 
035¢ 02 $6 012701 000001 MOV #1,R1 > *,DODU.FLG 4527 
7553 02627 706 000022 ADD #22.SP : 4523 
7554 026676 10446 3$: TRAP 6 : 4528 
7555 026 ROR RO 
1556 36302 10371 BLO 2$ 
7557 026304 00520 INC Re ; REG.SEL 4515 
7558 026 920204 4$: CMP R2,R4 : REG.SEL,* 
7559 02631 3702 BLE 
7560 026312 005301 
| 


eo rr — 





$T2 
7368 


Fee3 O26316 
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4541 


14 
MACRO M1113 18-MAY-81 08:17 PAGE 198 


165256 


177544 


! <BLF /PAGE> 


3ML4 
BNE 5$ 
MOV ML.LUN,RO 
TRAP 51 
TRAP 44 
5$: RTS PC 


; Routine Size: 76 w 
3; Maximum stack depth. tee invocation: 


2 SBTTL T2 

1$: JSR PC,$T2 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 
> Maximum stack depth per invocation: 


sea 0178 
14-May-1981 13:48:54 TOPS ' 
14-May-1981 13:05:08  PA:< | 

: 4536 | 
: 4489 
15 words | 
| 
3 4538 
0 words 


| 
| 
itnsiticetetchcaaiecciiaaniatiotie’ 


T 
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7604 ;ML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
et $ 14-May-1981 13:05:08 PA: <NEALE>ML4.BLI.7 (53) 
7607 ;: 454 ! 
7608 ; 4543 BGNTST; 
7609 ; 4544 
7610 ; 4545 !4+ 
7611 ; c2e8 ' TEST NUMBER: TST 3 
7612 ; 4547 
7613 : 4548 | TEST NAME: DRIVE PRESENT TEST 
7614 ; 4549 ! 
7615 ; 4550} TEST etre ttl 
7616 ; 4551 THIS TEST READS THE DESIRED SECTOR 
7617 ; $236 i ADDRESS REGISTER OF THE DRIVE UNDER 
7618 ;: 4553! TEST, DELAYS 100 US, THEN 
7619 ;: 4554! READS THE NED BIT OF MLCS2 
7620 ; 4555 
7621 ; 4556 i IF SET, AN ERROR MESSAGE IS 
7622 ; 4557 PRINTED AND THE UNIT IS DROPPED 
7623 ; 4558! 
76246 ; 4559 i- 
7625 ; 4560 
7626 ; 4561 local 
7627 ; 456 DODU_FLG, 'DROP UNIT 
7628 ; 456 SAVE; 'TEMP UTORAGE COCATION 
7629 ; 4564 
7630 ; 4565 DODU_FLG = ZERO; 
7631 ;: 4566 ®8GNSOB; 
7632 ; 4567 CLR_MBUS; 
7633 : 4568 SAVE = .MLDA; 'READ A DRIVE REGISTER 
7634 ; 4569 DELAY (ONE_US); 'DELAY 1 US 
7635 ; 4570 _ 
7636 ; 4571 if .NED IS_SET 'TEST THE NED BIT 
7637 ; 4572 then 
7638 ; 4573 begin 
7639 : 4574 ERRDF (1, ASYNC, DUMPER); !IF SET THEN REPORT ERROR AND SET DODU_FLG 
7640 ; 4575 PRINTB (ONE FMT. PHR_3); 
7641 ;: 4576 DODU_FLG = ONE ; 
7642 ; 4577 end; 
7643 ; 4578 
7644 : 4579 ENDSUB; 
7645 ; 4580 
7646 ; 4581 if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU IS_SET 
7647 ; $386 then 
7648 ; 458 begin 
7649 ; 4584 DODU (.ML_LUN); 
7650 ; 4585 DOCLN; 
7651 ; 45 end; 
7652 ;: 458 
: 4588 ENDTST; 





SEQ 0179 


cz 
$16 


AO 
“~“m~ - 


o-— 
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csoosesssasesssessesaxe 
ooooR= = 
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w 


_ _ 
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SEQ 0180 
3ML4 14-May-1981 13:48:54 TOPS 
3 14-May-1981 13:05:08 PA:< 
155526 $73: JSR R1,$SAVE4 3 4540 
TST -(SP) 
CLR RS : DODU.FLG 4565 
1$: TRAP 
000040 164630 BISB #40, aML .REG+40 3 4566 
Igaele MOV 
177770 BIC #177776,R2 
000007 164612 BICB #7, QML .REG+40 
197006 61SB R2,@ML.REG+40 
164 MOV @ML .REG+30,R4 3 *, SAVE 4568 
000001 MOV #1,R1 ; *,SSTMP2 4569 
2s: BEQ 5$ 
153472 MOV LSDLY,R2 3: *,SSTMP1 
BEQ 4$ 
3$: CLR (SP) 3; SSTMP 
DEC R2 3; SSTMP1 
BNE 3$ 
4$: nee yi 3; SSTMP2 
010000 164546 5$: ait Zp 0008 A. MEGS 3 4571 
TRAP 55 3 4574 
WORD 1 
-WORD ASYNC 
-WORD DUMPER 
007422 MOV #PHR.3,-(SP) : 4575 
005016 MOV #ONE .FMT,-(SP) 
000002 MOV #2,-(SP) 
MOV SP-RO : SP.* 
TRAP 14 
000001 MOV #1,R3 3; *,DODU.FLG 4576 
000006 ADD #6,SP : 4573 
6$: TRAP 67 3 4577 
ROR RO 
BLO 1$ 
DEC R3 ; DODU.FLG 4581 
BNE 7$ 
165052 MOV ML.LUN,RO 3 4584 
TRAP 51 
TRAP 44 
7$: TST (SP)+ : 4540 
RTS PC 


: Routine Size: 61 words | ; 
3; Maximum stack depth per invocation: 9 words 
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ACO ML=11 LOGIC TEST 
SEQ 0181 


7716 ;ML4 14-May-1981 13:48:38 TOPS-20 Bliss-16 Vg (cig? 
aay 3 14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (53) 
viee 

77 -SBTTL T3 

7727 026536 T3:: 

7728 950378 004767 177602 1$: JSR PC,$T3 3 4586 
7729 026542 1044 TRAP 

7730 026544 ies ROR RO 

7731 026546 10377 BLO 1$ 

7732 026550 RTS PC 

7733 : . 

7734 ; Routine Size: 6 words 

ae} 3; Maximum stack depth per invocation: 0 words 

7741 


7742 ; 4589 !<BLF/PAGE> 
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*§ SEQ 0182 T6 
7744 :ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) { 
oy : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1.7 (54) 
7747 ; 4590 ! é 
7748 ;: 4591 BGNTST; é 
7749 : 4998 é 
7750 ;: 45935 !++ é 
7751 ; 4594 | TEST NUMBER: TST 4 é 
7752 : 4595} é 
7753 : 4396 ' TEST NAME: DRIVE SELECTION TEST § 
7754 : 4597! é 
7755 ; 4598 |! TEST DESCRIPTION: é 
7756 : 4599! THIS TEST TESTS FOR UNIQUE DRIVE SELECTION BY WRITING THE DRIVE § 
7757 : 4600 ! UNDER TEST (DUT) DRIVE NUMBER INTO ITS DSA REG. THEN WRITING THE DRIVE § 
7758 : 4601 ! NUMBERS OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REGISTERS é 
7759 : 4602 ! AND READING THE DUT DSA FOR ITS DRIVE NUMBER. é 
7760 ; 4603! é 
7761 : 4604 |! IMPLICIT INPUTS : é 
7762 ; 4605 ! ML_DUT é 
7763 : 4606 ! LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE DRIVE é 
7764 ; 4607 ! NUMBER OF THE DRIVE PRESENTLY BEING TESTED. é 
7765 : 4608 !-- é 
7766 : 4609 é 
7767 ; 4610 local é 
7768 ; 4611 DODU_FLG, 'DROP UNIT FLAG é 
7769 : 4612 SAVE; 'TEMPORARY SAVE LOCATION é 
7770 : 4613 é 
7771 : 4614 BGNSUB; é 
7772 : 4615 CLR_MBUS: é 
7773 : 4616 DODO_FLG = ZERO; é 
7774 : 4617 MLDA-= .ML_DUT: 'LOAD THIS DRIVES DRIVE NO. INTO ITS DSA REG é 
che : 4618 SAVE = .MLDA; 'READ THE REGISTER BACK ‘ 
7777 : 4620 if .SAVE neq .ML_DUT 'SEE IF DSA HAS DRIVE NUMBER é 
7778 : 4621 then é 
7779 : 462 begin é 
7780 : 462 ERRDF (2, INTER, DUMPER): ‘ERROR AND EXIT TEST IF DSA NEQ DRIVE NUM é 
7781 : 4624 PRINTB (SIX_FMT, PHR_4, WRD 12, FNC_3, WRD_37, WRD_13, REG_6); é 
7782 ; 4625 PRINTB (FMT—2, .ML_DOT. .SAVE, (.ML~DUT xor .SAVE)); é 
7783 ;: 4626 EXIT_TST; é 
7784 ; 4627 end: é 
7785 ;: 4628 é 
7786 : 469 incr DRV_SEL from 0 to 7 do ‘WRITE DRV NO OF OTHER DRIVES INTO THEIR RESPECTIVE DSA REG. : 
res ; 4631 if -DRV_SEL neq .ML_DUT 'SKIP IF .DRV_SEL EQL TO THE DRIVE UNDER TEST (DUT) : 
7790 ;: 463 "begin é 
7791 : 4634 = = DRY SEL; 'SELECT DRIVE TO BE WRITTEN TO é 
7792 : 4635 MDAC SEL; 'WRITE DRIVE SEL NO. INTO ITS DSA REG é 
7793 : 4636 DELAY (ONE ‘Ds: ‘DELAY 1 US é 
7794 : 4637 end: f 
7795 : 4638 é 
77% : 4639 van A _DUT; 'SELECT THE DUT é 
7797 : 4640 RAVE = 'READ ITS DSA REG é 
7798 : 4641 é 





Lees ML-11 LOGIC TEST 

7800 ;ML4 

| FRG) 

7803 ; 464? 

| 7806 ; 4643 

7805 ;: pe 

| Faor : 4646 
7808 ; 46467 
7819 : 4649 
7811 ; 4650 
7812 ;: 4651 
7813 ; 465 
7814 ; 465 
7815 ; 4654 
7816 ; 4655 
7817 ;: 4656 
7818 ; 4657 
7819 : 4658 
7820 ; 4659 
7821 ; 4660 
7825 
7826 
7830 026552 167 
7831 026556 005746 
ree 026560 1044 
7833 026562 15277 
7834 026570 016703 
7835 026574 042703 
7836 026600 142777 
7837 026606 150377 
7838 026612 005005 
7839 026614 016777 
784G 026622 017704 
7841 ps obese 020467 
7842 0266 001451 
7843 026634 104455 
7844 026636 
7845 0 0 01067 
7846 0 2 024060 
7847 026644 012746 
7848 026650 012746 
7849 020654 012746 
7850 026660 012746 
7851 0 v5.74 012746 
7e3¢ 0 012746 
7853 026674 012746 
7854 026700 012746 





if .SAVE neq .ML_DUT 
then 


peain 

ERRDF (3 
PRINTS (THR_ 
PRINTB (FMT—1 
DODU_FLG = ONE; 


end; 
ENDSUB; 


MACRO M1113 


if .DODU_FLG IS_SET 
then 


0 a 
DODU (.ML_LUN); 
COCLN; 


end; 
ENDTST; 


155340 


So 
te 
So 
wad 
—_ 
o 


SPSee 


S33 


ss 


164426 


164406 


164362 


$14: 


ASYNC, DUMPER); 
HR_FMT, FNC 


- SBTTL 
JSR 


. WRD_37, WRD_14); 
. -ML_DOT, .SAVE); 
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14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALEDML4.BLI.7 (54) 
!SEE IF WRITTING TO OTHER DRIVES CHANGE ITS VALUE 


!ERROR AND SET DODU_FLG IF CHANGED 


!DROP UNIT IF DODU_FLG IS_SET 


$T4 

R1,$SAVES 3 

= 

#40, @ML .REG+40 é 

R ; DODU.FLG 

ML.DUT ,@ML .REG*+30 : 
-REG*30,R4 : 


@AL .REG*30 ; *, SAVE 
R4,ML.DUT ; SAVE,* 


#7 ,-(SP) 


SEQ 0183 


nr —— — 


C 15 
—CZMLACO ML=11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 194 
$14 SEQ 0184 
| 78 ZML4 14-May-1981 13:48:54 TOPS 
7857 : 14-May-1981 13:05:08  PA:< 
 ——- 7859 026706 010600 MOV SP.RO : SP,* 
| 7860 026706 104414 TRAP = ‘(14 
| 7861 026710 O16716 164666 MOV ML.DUT, (SP) : 4625 
786e 026714 01040 MOV RGR + SAVE,* 
786 026716 041603 BIC (SP) R3 
7864 026720 040416 BIC R4, (SP) : SAVE,* 
7865 026722 050316 BIS R3, (SP) 
7866 026724 010446 MOV R4,-(SP) : SAVE,* 
7867 026726 016746 164650 MOV ML .DUT,-(SP) 
7868 026732 012746 004266 MOV #FMT.2,-(SP) 
7869 026736 012746 000004 MOV #6,-(SP) 
7870 O26742 010600 MOV SP; : SP,* 
7871 026746 104414 TRAP 16 
7872 026746 104463 TRAP 
7873 026750 062706 000030 ADD #30,SP ; 4620 
7874 026754 00052 BP. 0s : 4622 
7875 026756 005003 23: CLR 3 : DRV.SEL 4629 
7876 026760 020367 164616 3$: CMP R3,ML.DUT : DRV.SEL,* 4631 | 
7877 026764 001425 BEQ 4 
7878 026766 010302 MOV 3 Re : DRV.SEL,* 4634 | 
7879 026770 042702 177770 BIC #177770,R2 
7880 026774 142777 000007 166212 BICB =s_- #7, AML. REG #40 
7881 027002 150277 164206 BISB R2.aML.REG+40 
7882 027006 010377 164172 MOV R3.aML .REG*30 : DRV.SEL,* 4635 
7883 027012 012701 000001 MOV #1.R1 > *,$$TMP2 4636 
7884 027016 001410 4$: BEQ 7$ 
7885 0270 91670¢ 153072 MOV LSDLY.R2 : *,SSTMP1 
7886 027024 00140 BEQ 6$ 
7887 927086 005016 S$: CLR (SP) > SSTMP 
7888 027030 00530 DEC R2 > $STMP1 
7889 027032 00137 BNE 5$ 
7890 027034 005 63: DEC R1 : SSTMP2 
7891 027036 000767 BR 4$ 
7898 027040 005203 7$: INC : DRV.SEL 4629 | 
7893 027042 020327 000007 CMP h3,47 > DRV.SEL,* 
7894 027046 003744 BLE | 
7895 027050 016703 164526 ML DUT ; 4639 | 
78% 027054 042? 177770 BIC #177770,R3 
7897 027060 142777 000007 164126 BICB = #7, AML .REG*40 
7898 0. 7066 150377 164122 BISB =—-R3, ML .REG*+40 
7899 027072 017704 164106 MOV @ML .REG*+30,R4 3 *, SAVE 4640 
7900 027076 020467 164500 CMP R4.ML.DUT + SAVE,* 4642 
7901 027102 001435 BEQ $ 
7908 027104 104455 TRAP = ; 4645 
7903 027106 000003 WORD 
7904 0 7110 10464 “WORD ASYNC 
7905 02711 24060 WORD 
7906 027114 012746 006442 MOV #WRD. 14,-(SP) : 4646 
7907 0271 12766 006700 MOV MWRD . 37. -(5P) 
7908 027124 012746 750 MOV #FNC.3,-(SP) 
7909 027130 012746 34 MOV #THR.FAT,-(SP) 
7910 027134 012746 000004 MOV #4,-(SP) 





4 


— 


-—— 
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7915 0 as 
aay 02714 
7917 027144 
7918 0, P38 
7919 02715 
7920 0 es 
7921 0271 
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7923 0 7186 
7924 0271 
7925 027176 
7926 027200 
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7931 027214 
O8e 097920 
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027224 

7935 027226 


7236 
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7958 027242 
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RRVE 
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! <BLF /PAGE> 


3; Maximum stack depth per invocation: 





MACRO M1113 
3ML4 
MOV SP .RO 
TRAP 
MOV R4, (SP) 
164430 MOV ML .DUT,=-(SP) 
ies £5 MOV #FMT.1,-(SP) 
00000 MOV #3,-(SP) 
MOV RO 
TRAP 
000001 MOV #1,R5 
000020 ADD #20. 5P 
8$: TRAP 6 
at 8 
~) 
177350 JMP 1$ 
9$: DEC RS 
BNE 10$ 
164360 MOV ML.LUN,RO 
TRAP 51 
TRAP 44 
10$: TST (SP)+ 
RTS PC 
; Routine Size: 151 words 
3; Maximum stack depth per invocation: 
- -SBTTL 14 
177316 1$: JSR PC, $T4 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 
; Routine Size: 6 words 


dD 15 
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3; SP,* 
3; SAVE,* 


3; SP,* 
; *,DODU.FLG 


: DODU.FLG 


19 words 


0 words 


14-May-1981 
14-May-1981 


13 
13 


SEQ 0185 


48:54 
7:05:08 


TOPS 
PA:< 


4647 


4658 


——" ae 


E 15 
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Ts SEQ 0186 


7968 ;ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
188 2 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (55) 
7971 ; 466 4 

Me 3 46635 BGNTST; 

7973 ; 4664 

7974 ; 4665 !++ 

7975 ;: reg ! TEST NUMBER: TST 5 

7976 ; 466 ! 

7977 : 4668 |! TEST NAME: READ WRITE REG ONES/ZEROES TEST 

7978 ; 4669 ! 

7979 ; 4670 ! TEST tet aw 

7980 ;: 4671 ! THIS TEST WRITES AND READS A DATA PATTERN OF ALL ONES AND ZEROES TO ALL 

7981 ; re OF THE ML11°S READ / WRITE REGISTERS. 

7983 ;: 4674 =! ROUTINES WRT_REG AND RD_REG ACCEPT ARGUMENTS TO FURTHER SELECT ROUTINES 

a $ $82? WHICH ACTUALLY PERFORMS THE READING AND WRITING OF THE REGISTERS. 

7986 ; 467 ! THE UNIT IS DROPPED ON DETECTED ERRORS. 

7987 : 4678 ! 

7988 ; 4679 =! ates | INPUTS: 

7989 : 4680 ! T_DATA 

7990 ; 4681 ! LOADED BY READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN WRITTEN 

7991 ; 468 : +O THE REGISTERS (REPRESENTS GOOD DATA). 

a : 468 ‘ 

7993 : 4684 =! 

7994 ; 4685! CORDED BY THE READ REGISTER ROUTINES AND CONTAINS THE DATA PATTERN 

7995 ;: 4686 ! READ FROM THE REGISTER (REPRESENTS BAD DATA). 

7996 : 4687 !-- 

7997 : 4688 

7998 : 4689 local 

7999 ;: 4690 ERR_FLG, iteate ayn PASSED TO ROUTINES 

8000 ; 4691 TST_PAT, 'TEST PATTERN 

8001 ; 469 index, ‘POINTS. TO 19 lea PRESENTLY BEING TESTED 
800¢ : 469 DODU_FLG: iDROP UNIT FLAG 

8003 ; 4694 

8004 ; 4695 DODU FLG = ZERO; 

8005 ;: +358 TST_ PBaT = ONES: ‘LOAD TEST PAT WITH ONES 

8006 ;: 469 

8007 ;: 469 incr TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 

8008 ; 46 begin 

8009 ; 4700 s 

8010 ; 4701 incr REG_SEL from 0 to 7 do 'TEST ELEVEN WRITE/READ REGISTERS 

8011 ; o7ue begin 

ate 3 470 

8013 ; 4704 CLR "MBUS; 

8014 ; 4705 WRT REG t TST_PAT, .REG_SEL, index); ‘WRITE TO THE REGISTER 

aot? 5 $708 RD_REG (. TST PAT, .REG_SEL. ERR -FLG); 'READ THE REGISTER 

Bors : 4708 if .ERR_FLG IS_SET 'SEE IF READ FOUND AN ERROR 

8018 ; 4709 then 

oth g orig begin 'IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
Boss 3 $oie selectone .REG_SEL of ‘SELECT WHICH MODULE FAILED 

8022 ; 471 set 

8 sML4 \e-Rer=1991 13:48:54 TOPS-20 Bliss-16 V Vg (ele) 
8024 : 14-May-1981 15:05:08 PA: <NEALE>ML4.BL1.7 (55) 
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MACRO M1113 
(0 to 3) : 
ERRDF (4, ASYNC, DUMPER); 'ASYNC MODULE FAILURE 
(4 to 5] : 
ERRDF (4, SYNC, DUMPER); 'SYNC MODULE FAILURE 
[6 to 


7): 
ERRDF (4, ARR_DAT, DUMPER); !ARRAY DATA MODULE FAILURE 


tes; 
PRINTB (SIX_FMT, PHR_4, WRD_12, FNC_5, FNC_6, WRD_52, 56); 
~RD_ DATA); 


PRINTB (FMT-16, .ML_REG C. index, REGISTER ADDI, .QT “bATAL 
DODU_FLG = ONE; 
end; 
ENDSUB; 
end; 
TST_PAT = not .TST_PAT; 'REPEAT AGAIN WITH COMPLIMENT DATA 
end; 
if -DODU_FLG IS_SET !DROP THIS UNIT IF THE DODU_FLG IS_SET 
en 
begin 
DODU (.ML_LUN); 
DOCLN; 
end; 
ENDTST; 
.SBTTL $15 
154626 $75: JSR R1,S$SAVE4 : 
CMP -(SP) ,=(SP) 
CLR R 3 DODU.FLG 
177777 MOV #-1,R2 : *,TST.PAT 
CLR R1 : TWICE 
1$: CLR R3 : REG.SEL 
23: TRAP = 2 3 
14302 163720 a138 #40, rt lina 3 
1997 6 BIC FFT 976 RO 
7? 163702 BICB =: #7, AML .REG+4 
163676 BISB-—_ RO, REG+40 
MOV Re. SP) : TST.PAT,* 
MOV R3,-(SP) ; REG.SEL,* 
ZML4 14-May-1981 
: 14-May-1981 
000010 MOV #10,-(SP) Ps 
ADD SP, (SF) : INDEX,* 
173546 JSR PC,WRT.REG 
MOV R2, (SP) : TST.PAT,* 
MOV R3,-(SP) ; REG.SEL,* 
000012 MOV #12,-(SP) 
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000001 


3$: 


4$: 


5$: 


3ML4 


6$: 


JSR 
MP 


#SIX_FAT,-(SP) 
#7,-(SP) 
SP.RO 


RD.DATA, (SP) 
WT .DATA,-(SP) 
36(SP) ,RO 


ERR.FLG,* 
REG.SEL 
REG.SEL,* 


REG.SEL,* 
REG.SEL,* 


REG.SEL,* 
REG.SEL,* 


SP,* 


INDEX ,* 


SP,* 
* ,DODU.FLG 


SEQ 0188 


4708 
4712 
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4712 


4719 


4712 
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4726 


54 TOPS 
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000007 


000001 


163736 


177366 


! <BLF /PAGE> 


7$: C 


3; Routine Size: 
3; Maximum stack 


-_—— 
au 
ee te 
_— e 
n“” 

x» 


; Routine Size: 
3; Maximum stack 


$ 
ML.LUN,RO 
51 


44 
(SP)+,(SP)+ 
PC 


131 word 


s 
depth per invocation: 


6 words 


depth per invocation: 


24 words 


0 words 








; REG.SEL 


REG.SEL,* 
TST.PAT 
TWICE 
TWICE ,* 


; DODU.FLG 
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CTALACO ML-11 LOGIC TEST MACRO #1113 18-MAY-81 08:17 PAGE 1} Ci 
T SEQ 0190 Ti 
8198 ;ML4 14-May-1981 13:48:54 § TOPS=20 Bliss-16 V2(212) | 
ihe : 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1I.7 (56) 
8201 ; 4745! 
8202 ; 4746 BGNTST; 
82035 ; 4747 
8204 ; 4748 !4+ 
8205 ;: 4749 i TEST NUMBER: TST 6 
8206 ; 4750: 
334 3 $23) TEST NAME: READ WRITE REG SHIFTING ONES/ZEROES TEST 
8209 ; 475 i TEST ust rt 
8210 ;: 4754 sO THIS TEST WRITES AND READS 
8211 ; 4755 i vy aE ONE'S AND SHIFTING. ZEROE'S 
asi¢ : 4756 ATTERN TO ALL THE ML11 
8213 ;: 4757 READ IGNITE REGISTERS 
8214 ; 4758 =! 
8215 ;: 4759 ROUTINES WRT_REG AND RD_REG 
8216 ; 4760 i ACCEPT ARGUMENTS TO FURTHER 
8217 ;: 4761 i SELECT ROUTINES WHICH ACTUALLY 
8218 ; 4762 ! PERFORMS THE READ 
8219 ;: 4763! WRITING OF THE REGISTERS. 
8220 ;: 4764 
8221 ; 4765 i THE DRIVE IS DROPPED ON DETECTED 
8222 ; 4766 ERRORS. 
8223 ;: 4767 
8224 ; 768 ! IMPLICIT INPUTS: 
8225 ;: 4769} WT_DATA 
8226 ; 4770 i COADED BY READ oA hatte ROUTINES AND 
8227 : 4771 ! CONTAINS THE DATA PATTERN WRITTEN TO THE 
8228 ;: 4772 i REGISTERS (REPRESENTS GOOD DATA). 
44 : 4773 
8230 ; 4774} RD_DATA 
8231 ; 4775 OADED BY THE READ REGISTER ROUTINES AND 
Scag Z 4776 i CONTAINS THE DATA PATTERN READ FROM THE 
8233 ;: 4777 i REGISTER (REPRESENTS BAD DATA). 
8234 ; 4778 } 
8235 ; 4779} 
8236 ;: 4780 i- 
8237 ;: 4781 
8238 ; 4782 local 
8239 ;: 478 ERR_FLG, ‘ERROR patre PASSED TO ROUTINE 
8240 ; 4784 TST_PAT, 'TEST TTERN 
8241 ; 4785 index POINTS. TO REG PRESENTLY BEING TESTED 
B24 : 4786 DODU_FLG; iDROP UNIT FLAG 
8244 ;: 4788 DODU FLG = ZERO; 
3H 3 $785 TST_ PAT = ONE; 'LOAD TST_PAT WITH A 1 IN A FILED OF O'S 
8247 ; 4791 incr SHIFT from 0 to 15 do !DO SHIFT 16 TIMES 
8248 ; ras begin 
49 ; 479 ‘ 
50; 4794 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
8251 ; 4795 begin 
8252 ;: 4796 
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14-May-1981 13:48:54 TOPS=20 Bliss-16 V 
14-May-1981 13:05:08 PA:<NEALE>ML4.BL1. 


incr hes. SEL from 0 to 7 do !TEST ELEVEN READ/WRITE REGISTERS 
“_s 
ORT REG (.TST_PAT, .REG_SEL, index); 'WRITE TO THE RECISTER 
RD_REG (. TST_ PAT, .REG_SEL, ERR_ FLG); 'READ THE REGISTER 
-ERR_FLG IS_SET !'SEE IF THE READ FOUND AN ERROR 
en 
begin !IF THE ERROR FLAG IS_SET THEN ERROR 
mprestons -REG_SEL of !'FIND WHICH MODULE FAILED 
se 
CO to 3) : 
ERRDF (5, ASYNC, DUMPER); 'ASYNC MODULE FAILURE 
(4 to 5]: 
ERRDF (5, SYNC, DUMPER); !SYNC MODULE FAILURE 
(6 to 7]: 
. ERRDF (5, ARR_DAT, DUMPER); '!ARRAY DATA MODULE FAILURE 
es; 


PRINTB (SIX_FMT, PHR_4, WRD_12, FNC_5, FNC_6, WRD_52, WRD_56); 
PRINTS ‘ey F ML REG C C. index, REGISTER Rob), OT _DATA, ~RD_ DATA); 


DODU_FLG 
end; 
ENDSUB; 
end; 
=e = not .TST_PAT; 'REPEAT WITH AO IN A FIELD OF 1°S 
end; 
no sa = .TST_PAT*ONE; 'SHIFT THE 1 IN THE FIELD OF 0°S 
7 -DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG IS SET 
en 


pogin 
DODU (.ML_LUN); 
DOCLN; 


-SBTTL $16 
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$16 
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163274 


163256 


000001 





$T6: 


1$: 
2s: 


4$: 


5$: 


R1,$SAVE5 
=(SP) ,=(SP) 


PC,RD.REG 
12(SP) #1 
7$ 

R4 

4$ 

R4 M3 

4$ 

55 


5 
ASYNC 
UMPER 


R444 
R445 


DODU.FLG 
*,TST.PAT 
SHIFT 


TWICE 
; REG.SEL 


TST.PAT,* 
REG.SEL,* 


INDEX, * 


TST.PAT,* 
REG.SEL,* 


ERR.FLG,* 
ERR.FLG,* 
REG.SEL 

REG.SEL,* 


; REG.SEL.* 
; REG.SEL.* 


REG.SEL,* 
REG.SEL,* 


late 


SEQ 0192 
4743 


4801 
4802 


4804 
4808 


4812 


4808 


4815 


4808 


4818 


$T 
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C 
$T6 SEQ 0193 $Ti 

8366 ZML4 14-May-1981 13:48:54 TOPS 

8367 3 14-May-1981 13:05:08 PA:< 

ase 030102 024060 [WORD DUMPER 

8370 030104 012746 007122 6$: MOV #WRD.56,-(SP) ; 4821 

8371 030110 012746 007066 MOV #WRD.52,-(SP) 

8372 030114 012746 010004 MOV #ENC.6,~(SP) 

837 030120 01746 0077 MOV #FNC.5.=(SP) 

8374 030124 012746 0064 MOV D.12,=(SP) 

8375 030130 012746 007454 MOV #PHR.4,-(SP) 

8376 030134 012746 006100 MOV #SIX. FAT, =(SP) 

8377 030140 012746 000 MOV #7,-(SP) 

8378 030144 010600 MOV SP,RO : SP, 

8379 030146 104414 TRAP ‘14 

8380 030150 016716 162754 MOV RD.DATA, (SP) : 4822 

8381 030154 016746 162746 MOV WT .DATA,-(SP) 

8382 030160 016600 000036 MOV 36 (SP) RO : INDEX,* 

8383 030164 006300 ASL RO 

8384 030166 006300 ASL RO 

8385 030170 006300 ASL RO 

8386 030172 016046 013154 MOV ML.REG(RO) ,-(SP) 

8387 030176 012746 005216 MOV #FMT.16,-(SP) 

8388 030202 012746 000004 MOV #4,-(SP5 

8389 030 010600 MOV SP,RO : SP, 

8390 030210 104414 TRAP —s-_‘14 

8391 030212 012705 000001 MOV #1,R5 3 *,DODU.FLG 4823 

8392 030216 062706 000030 ADD #30,SP : 4806 

8393 030222 062706 000012 7$: ADD #12,SP ; 4798 

8394 030226 104467 TRAP =. 67 : 4824 
030230 006000 ROR 0 

8396 030232 103626 BLO 3$ 

8397 030234 005204 INC R4 7 REG.SEL 4797 

8398 030236 020427 000007 CMP R447 : REG.SEL,* 

8399 030242 003622 BLE 3$ 

8400 030244 005103 COM R3 : TST.PAT 4829 

8401 030246 005202 INC R2 : TWICE 4794 

8402 030250 020227 000001 CMP R2,41 : TWICE,* 

8403 030254 003614 BLE 2$ 

8404 030256 006303 ASL R3 : TST.PAT 4832 

8405 030260 005201 INC R1 : SHIFT 4791 

8406 030262 020127 000017 CMP R1,417 : SHIFT,* 

8407 030266 003606 BLE 1$ 

8408 030270 005305 DEC R5 : DODU.FLG 4835 

8409 030272 001004 BNE 8$ 

8410 030274 016700 163300 MOV ML.LUN,RO : 4838 

8411 039 104451 TRAP ss 51 

8412 030302 104444 TRAP = & 

8413 0 022626 8$: CMP (SP)+, (SP)+ : 4763 

Balk 030306 000207 RTS PC 

8416 3 Routine Size: 137 words. : 

8417 ; Maximum stack depth per invocation: 25 words 
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3; Routine Size: 


+ Maximum stack depth per invocation: 


M15 
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14-May-1981 13:4 
14-May-1981 13:05 


1 
BGNTST; 
e+ 


TEST NUMBER: TST 7 
TEST NAME: REGISTER INITIALIZATION TEST 


TEST Rete reat 
THIS TEST TESTS THE ABILITY OF 
ALL ACCESSIBLE ML11 REGISTERS 
TO CLEAR OUT REGISTER DATA OF 
ONE'S AND ZEROES PATTERN. 


ROUTINE WRT_REG WRITES 
PATTERN TO THE SELECTED *REGISTER. 


A MASS BUS CLEAR IS DONE. 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 

i THEN ROUTINE RD_REG READS THE 
SELECTED REGISTER FOR CLEARED DAT 
THE DRIVE 1S DROPPED ON DETECTED ERRORS. 
i THIS TEST WILL ALSO READ THE 

i DRIVE TYPE REGISTER FOR ITS 
INITIAL REGISTER VALUE. 

i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
bo 


IMPLICIT INPUTS: 
THIS FLAG IS NEEDED DUE TO THE UNIQUE 
MANNER IN WHICH THESE REGISTERS 
MUST BE READ. 


RD_DATA 

LOADED BY THE nes REGISTER ROUTINE 

AND CONTAINS THE DATA PATTERN READ FROM 
THE REGISTER (REPRESENTS BAD DATA). 


DRIVE TYPE 

LOADED DURING THE INITIALIZATION CODE AND 
STORES THE EXPECTED CONTENTS OF THE DRIVE 
TYPE REGISTER. 


local 
TST_PAT, 'TEST PATTERN 
ERR— FLG. ‘ERROR FLAG PASSED TO Rt 
index, . ‘POINTS TO REG PRESENTLY BEING TESTED 
CLR_DATA, iFronen S ce CATES REGISTER CLEAR DATA 
' TEMP Y STORAGE LOCATION 


DODU:FLG; i DROP oUNiT FLAG 
ML_REG (19, FORCE_HI] = %0'177777'; 'CLR DATA FOR MLPD IS ONES 





754 TOPS=20 Bliss-16 V2(212) 
:08 PA:<NEALE>ML4.BL1.7 (57) 





Esaundss acme 


SEQ 0195 | 
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09 09 Cp 09 Cp CD Co 
Ot et ad et od ts 


OWDNAUS WHO 


8552 


MOANA AUT 
WO Od NAW EW 
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oa 
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4897 DODU_FLG = ZERO; 
tks TST_PAT = ONES; 


£900 incr TWICE from 0 to 1 do 
begin 
incr REG_SEL from 0 to 10 do 
4904 begin 
4905 BGNSUB; 


CLR_MBUS; 
WRT-REG (. 2TST PAT. .REG SEL. someen 
CLR- — (.AI) or (. IGNORE) 


if .ERR_FLG IS_SET 
then 
begin 
selectone .REG_SEL of 
set 
CO, - a. 
4920 ERRDF 


(4, 5, 8]: 
4923 ERRDF (6, SYNC, DUMPER); 


(6 to 7] : 

4927 tes; 

PRINTB ely. FMT, PHR_4, WRD_12, 
ly Be 
DODU_ FLG = 
493 end; 


4934 ENDSUB; 
end; 


TST_PAT = not .TST_PAT; 
ret end; 


QO ML_REG (19, FORCE_HIJ = 
; 
' 
t 


3, 9, 10) : 
(6, ASYNC, DUMPER); 


ZEROES; 


NOW TEST THE DRIVE TYPE REGISTER 


494 if .MLDT neq .DRIVE_TYPE 
then 
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CLR_MBUS; 
RD "REG. (.CLR_DATA, .REG_SEL, ERR_FLG); 


ERRDF (6, ARR_DAT, DUMPER); 


14-May-1981 1 
14-May-1981 1 


2:48:54 
:05:08 


TOPS-20 
PA:<NEAL 


mo 
~ 
oe 
vt 
& 
an 
‘<= 
Nr 
~ 
aN 


!BACKGROUND PATTERN 
:REPEAT LOOP TWICE 


!TEST THIRTEEN REGISTERS 


!WRITE REGISTER WITH BACKGROUND 

:CALCULATE THE CLEARED DATA PATTERN 

!CLEAR THE REGISTER 

!READ THE REGISTER FOR THE CLEARED DATA PAT 

!SEE IF READ FOUND AN ERROR 

!IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 


!FIND WHICH MODULE FAILED 


!ASYNC MODULE FAILURE 
:SYNC MODULE FAILURE 


!ARRAY DATA MODULE 


WRD_52, FNC_23, WRD_5 
mre: -ML_REG C. index, REGISTER ADD]. .CLR pata, -RD_DATA); 


!REPEAT WITH COMPLIMENT BACKGROUND PAT 


‘RESTORE MLPD FORCED_HI 


:COMPARE REG CONTENTS TO CALCULATED VALUE 


SEQ 0196 


i mqakienmpeunpisnnin 
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T6 SEQ 0197 
8566 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss=-16 V2(212) 
t5H : 14-May-1981 13:05:08 PA: <NEALE>ML4.B8Li.7 (57) 
8569 ; 4949 begin 
8570 : 4950 ERRDF (113, ASYNC, DUMPER); 
8571 ; 4951 PRINTB (TWO_FMT, REG 7, PHR_4); 
8572 : 4952 PRINTB (FMT_2, .DRIVE_TYPE,~.SAVE); 
8573 : 4953 end; 
8574 : 4954 
8575 : 4955 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS_SET 
8576 ;: 4956 then 
8577 : 4957 begin 
8578 : 4958 DOBU (.ML_LUN); 
8579 : 4959 DOCLN; 
8580 ; 4960 end; 
8581 : 4961 
8582 : 4962 ENDTST; 
8586 
8587 .SBTITL $17 
8591 030324 004167 153566 $17: JSR R1,$SAVES : 4842 
8592 030330 162706 000006 SUB #6.SP 
8593 030334 012767 177777 163044 MOV #~1 ML .REG+232 ; 4896 
8594 030342 005005 ? CLR RS : DODU.FLG 4897 
8595 030344 012702 177777 MOV #=1,R2 : *,TST.PAT 4898 
8596 030350 005001 CLR R1 : TWICE 4900 
8597 030352 005004 1$: CLR R4 : REG.SEL 4903 
8598 030354 104402 23: TRAP = 2 : 4904 
8599 030356 152777 0 162630 BISB #40, aML.REG+40 : 4905 
8600 030 016703 163212 MOV ML. 
8601 030370 042703 177770 BIC #177770,R3 
8602 030374 142777 000007 162612 BICB =: #7, AML. REG+40 
8603 030402 150377 162606 BISB R3.aML.REG+40 | 
8604 030406 010246 MOV R2,-(SP) : TST.PAT,* 4907 
8605 030410 010446 MOV R4,-(SP) 3; REG.SEL,* 
8606 030412 012746 000012 MOV #12,-(SP) 
8607 030416 060616 ADD SP, (SP) : INDEX,* 
8608 030420 004767 172456 JSR PC,WRT.REG 
8609 030424 016600 MOV 12(SP) RO : INDEX,* 4908 
8610 030430 006300 ASL RO 
8611 030432 006300 ASL RO 
8612 030434 006300 ASL RO 
8613 030436 010003 MOV RO,R3 
8614 030440 016300 013156 MOV ML .REG+2(R3) ,RO 
8615 030444 056300 0131 BIS ML .REG*+6(R3) .RO 
8616 030450 01 000006 MOV RO.6(SP) : *,CLR.DATA 
8617 030454 152777 000040 162532 BI1SB «= #40, AML .REG*40 
8618 030462 016700 163114 MOV mL bu RO 
8619 030466 042700 177770 BIC #177776,RO 
8620 030672 142777 000007 162514 BICB = #7, @ML..REG*+40 
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4$: 


08] 030574 020427 000004 5$: 


8649 
8650 030610 020427 000010 6$: 
8652 030616 104455 7$: 


000006 8$: 


122 9$: 


oO 
oo 
= 
NNN 5 
RRSESS 
o 
So 
— 
on 
MN 
s* 
Nm 


| ~N 
ARAN2ISS 

™~ 

—) 

5 
Ooo0o-cooScO 


RREKEKS 


RO, @ML .REG+40 
6(§P), (SP) 


PC,RD.REG 
14(SP) ,#1 
10$ 

R4 

3$ 

R4 a3 
R4,411 

$ 
R4,#12 
5$ 

55 


6 
ASYNC 
DUMPER 
9$ 


R444 
R4 a5 
7$ 
R4,410 
8$ 

55 


6 
SYNC 
tae 


#PHR.4,-(S 
#FIV.FAT,-(SP) 
a 


1 
RD.DATA, (SP) 
ee eae 
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»REG(R3) ,-(SP) 


CLR.DATA,* 
REG.SEL,* 


ERR.FLG,* 
ERR.FLG,* 
REG.SEL 

REG.SEL,* 
REG.SEL,* 


; REG.SEL,* 


; REG.SEL,* 


REG.SEL,* 
REG.SEL,* 


REG.SEL,* 
REG.SEL,* 


. SP,* 


; CLR.DATA,* 


254 TOPS 
5:08 


4912 
4916 


4923 


4916 


4926 


4929 


4930 
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CO ML-11 LOGIC TEST 
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005216 
000004 


000001 
000026 
000012 


177362 
000012 


000001 


177332 
162362 
162254 


000016 


162452 


000006 
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— 
ANA 
ee ee 


: Routine Size: ; ‘ 
; Maximum stack depth per invocation: 








#FMT.16 
#4 .5(SP) 


-(SP) 


ML .REG+232 
A, -REG$ 150 .RIVE. THE 


R4, (SP) 
DRIVE. TYPE ,~(SP) 
oor ego tare 


a(S 


#16,SP 

R5 

15$ 
ML.LUN,RO 
51 

44 

#6,SP 

PC 


198 words 











006000 
103773 
000207 


3 4963 


004767 177160 
104466 


! <BLF /PAGE> 





TRAP 

ROR RO 
BLO 1$ 
RTS PC 


: Routine Size: 6 word 
3; Maximum stack depth oer invocation: 0 words 
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8765 ;ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
the : 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (58) 
8768 ; 4964 ! 

8769 ; 4965! 

8770 ;: 4966 ! 

8771 ;: 4967 BGNTST; 

8772 ;: 4968 

8773 : 4969 !4+ 

8774 : 4970 ! TEST NUMBER: TST 8 

8775 : 4971 ! 

8776 ;: 497 ! TEST NAME: REGISTER SELECTION TEST 

8777 : 497 ! 

8778 ; 4974 i TEST aire rear 

8779 ;: 4975 THIS TEST TESTS FOR UNIQUE REGISTER 

8780 ; 4976 | SELECTION BY FIRST WRITING A BACKGROUND 

svat $ ph ih4 PATTERN INTO ALL READ/WRITE REGISTERS 

8783 : 4979 | IT THEN WRITES A COMPLIMENT 

8784 ;: 4980 | BACKGROUND PATTERN INTO ONE REGISTER 

8785 : 4981 ! AND READS THE REMAINING UNWRITTEN 

8786 : 4982 i + lalate FOR AN UNCHANGED BACKGROUND 

8787 : 4983 

8788 ; 4984 

8789 : 4985 THIS PROCEDURE IS REPEATED wt ALL 

8790 ;: 4986 i REGISTERS HAVE BEEN WRITTEN WITH A 

8791 ; 4987 | COMPLIMENT BACKGROUND PATTERN. 

8792 : 4988 

8793 ;: 4989 i- 

8794 : 4990 

8795 : 4991 Local 

8796 : 499. DODU_FLG, 'DROP UNIT FLAG 

8797 ; 499 TST PAT, iTEST PATTERN 

8798 : 4994 ERR_ FLG, 'ERROR FLAG PASSED TO ROUTINE; 

8799 : 4995 index; 'POINTS TO REGISTER PRESENTLY BEING TESTED. 
8800 ; 4996 

8801 ; 4997 BGNSUB; 

8802 ; 4998 CL 

8803 ; 4999 pop0 F = ZERO; 

8804 ; 5000 T T_PaT = %0'°125252': ; LOAD TST_PAT WITH ALTERNATE 1°S & 0°S 
8805 ; 5001 WRT_CS1 (.TST_PAT, 03; 'WRITE A BACKGROUND INTC ALL THE DIRECTLY 
8806 ; o00e WRT_ER (.TST_PAT, 6); 'ACCESSABLE READ WRITE REGISTERS 

8807 ; 5005 WRT_DA (.TST_PAT, 3); 

8808 ; 5004 WRT_PA (.TST_PAT, 8); 

8809 : 5005 wRTWE1 (TST PAT. 13); 

geo Z o008 WRT “E2 ( .TST- PAT, 14); 

as 3 5008 incr CNT_1 from 0 to 4 do 'WRITE A COMPLIMENT PATTERN INTO ONE REGISTER 
8813 ; 5009 begin 

43 2 3nl0 TST_PAT = not .TST_PAT; 'GENERATE THE COMPLIMENT PAT 

8816 ;: Aa case .CNT_1 from 0 to 4 of ‘SELECT THE REGISTER TO WRITE INTO 
8817 ; 501 set 

8818 ;: 5014 

8819 : 5015 (0) : 





CERLACO ML-11 LOGIC TEST 


8821 ;ML4 

ease ; 

882 

8826 ; 5016 
8825 ; 5017 
8826 : 5018 
8827 ;: 5019 
8828 ; 5020 
8829 ; 5021 
8830 ; 20c¢ 
8831 ; 502 

8832 ;: 5024 
8833 ; 5025 
8834 ; 5026 
8835 ; 5027 
8836 ;: 5028 
8837 ; 5029 
8838 ; 5030 
8839 ; 5031 
8840 ; 5032 
8841 ; 5033 
8842 ; 5034 
8843 ; 5035 
8844 ;: 5036 
8845 ; 5037 
8846 ;: 5038 
8847 : 5039 
8848 ; 5040 
8849 ;: 5041 
8850 ;: 5042 
8851 ; 5043 
8852 ;: 5044 
8853 ; 5045 
8854 ; 5046 
8855 ; 5047 
8856 : 5048 
8857 ;: 5049 
8858 ;: 5050 
8859 : 5051 
8860 ; 5052 
8861 ; 5053 
8862 ; 5054 
8863 ; 5055 
8864 ; o826 
8865 ; 505 

8866 ;: 5058 
8867 ; 5059 
8868 ; 5060 
8869 ; 5061 
8870 : 2006 
8871 ;: 506 

4 3 5064 
ee 
8875 : 2088 
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WRT_CS1 (.TST_PAT, 0); 
(1) : 
WRT_ER (.TST_PAT, 6); 
‘¥ 
WRT_DA (.TST_PAT, 3); 
(3) : 
WRT_PA (.TST_PAT, 8); 
(4) : 
WRT_E1 (.TST_PAT, 13); 
tes; 
TST_PAT = not .TST_PAT; 


incr CNT_2 from .CNT_1 + 1 to 5 do 
begin 


case .CNT_2 from 0 to 5 of 
set 


14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (58) 
!FIRST PASS WRITE COMP PAT TO MLCS1 

!SECOND PASS WRITE COMP PAT TO MLER 

!THIRD PASS WRITE COMP PAT TO MLDA 

!FORTH PASS WRITE COMP PAT TO MLPA 

!FIFTH PASS WRITE COMP PAT TO MLE1 

!COMPLIMENT TST_PAT BACK TO BACKGROUND 


!NOW READ THE REMAINING UNWRITTEN REGISTERS FOR AN 
!UNCHANGED BACKGROUND 


!SELECT THE REGISTER TO READ 


J: 
RD_CS1 (.TST_PAT, index = 0, ERR_FLG); !READ MLCS1 


a3 

RD_ER (.TST_PAT, index 
33 

RD_DA (.TST_PAT, index 
ys 

RD_PA (.TST_PAT, index 


J: 
RD_E1 (.TST_PAT, index 
[5] 
tes; 
if .ERR_FLG IS_SET 
then — 
begin 


RD_E2 (.TST_PAT, index 


selectone .CNT_2 of 
set 


0 to 2): 
ERRDF (110, ASYNC, 


= 6, ERR_FLG);  !READ MLER 
= 3, ERR_FLG); !READ MLDA 
= 8, ERR_FLG); !READ MLPA 


13, ERR_FLG); !READ MLE1 


= 14, ERR_FLG); !READ MLE2 


'SEE IF READ FOUND AN ERROR 


DUMPER); !ASYNC MODULE FAILURE 


SEQ 0202 


SEPALS ML-11 LOGIC TEST 


33623204 — par peer 
RESSLNS 
ARM Ww 


oo 
Nm 
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14-May-1981 13:48:54 TOPS=20 Bliss=-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (58) 
(3 to 5): 
, ERRDF (110, ARR_DAT, DUMPER); 'ARRAY DATA MODULE FAILURE 
es; 


PRINTB (THR_FMT, WRD_38, WRD_37, WRD_10); 
PRINTB (FMT@16, .ML_REG C. index, REGISTER_ADDJ, eWT_DATA, .RD_DATA); 
DODU_FLG = ONE; 


end; 
end; 
end; 
ENDSUB; 
if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS_SET 
en 
begin 
DOBU (.ML_LUN); 
DOCLN: 
end; 
ENDTST; 
.SBTTL $18 
152736 $78: JSR R1,$SAVES : 
TST -(§P) 
1$: TRAP 2 3 
000040 162022 BISB #40,aML.REG+40 : 
162404 MOV mL DUT R3 
177770 BIC #177770,R3 
000007 162004 BICB = #7, AML. REG+40 
162000 BISB R3,aML.REG+40 
CLR RS : DODU.FLG 
125252 MOV #~52526,R4 : *, TST.PAT 
MOV R4,~(SP5 : TST.PAT,* 
CLR -(§P) 
166236 JSR PC,WRT.CS1 
MOV R4, (SP) : TST.PAT,* 
000006 MOV #6.-(SP) 
166402 JSR PC.WRT.ER 
MOV R4. (SP) : TST.PAT,* 
000003 MOV #3,-(SP) 
166546 JSR PC.WRT.DA 
MOV R4. (SP) ; TST.PAT,* 


000010 MOV #16,-(SP) 
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$18 SEQ 0204 
8933 M4 14-May-1981 13:48:54 TOPS 
8934 : 14-May-1981 13:05:08  PA:< 
8936 031264 004767 167070 JSR PC,WRT.PA 
8937 031270 010416 MOV R4. (SP) : TST.PAT,* 5005 
8938 031272 012746 000015 MOV #15 ,=(SP) 
8939 031276 004767 167264 JSR PC,WRT.E1 
8940 031302 010416 MOV R4. (SP) : TST.PAT,* 5006 
8941 031304 012746 000016 MOV #16,-(SP) 
B42 031310 004767 167460 JSR PC,WRT.E2 
8943 031314 005001 CLR R1 : CNT.1 5008 
8944 031316 005104 2$: COM RG : TST.PAT 5010 
8945 031320 010103 MOV R1,R3 : CNT.1,* 5012 
8946 031322 006303 ASL R 
8947 031324 066307 031330 ADD 3$(R3) ,PC 
8948 031330 000012 3$: .WORD 4$-3$ 
8949 031332 000024 “WORD 5$-3$ 
8950 031334 “WORD  6$-3$ 
8951 031336 000054 “WORD 7$-3$ 
895¢ 031340 000070 “WORD 8$-3$ 
8953 031342 010446 4$: MOV R4,-(SP) : TST.PAT,* 5016 
8954 051344 005046 CLR -($P) 
5 031346 004767 166116 JSR PC,WRT.CS1 
8956 031352 000427 BR 9$ : 5012 
8957 031354 010446 5$: MOV R4,-(SP) : TST.PAT,* 5019 
8958 031356 012746 000006 MOV #6,-(SP) 
8959 031362 004767 166260 JSR PC-WRT.ER 
8960 031366 000421 BR 9$ : 5012 
8961 031370 010446 6$: MOV R4,-(SP) : TST.PAT,* 5022 
8962 031372 012746 000003 MOV #3.-(SP) 
8963 031376 004767 166422 JSR PC. WRT.DA 
8964 031402 000413 BR 9$ : 5012 
8965 031404 010446 73: MOV R4,=-(SP) : TST.PAT,* 5025 
031406 012746 00001 MOV #10,-(SP) 
8967 031412 004767 166742 JSR PC,WRT.PA 
8968 031416 000405 BR : 
9 031420 010446 8$: MOV R4,-(SP) : TST.PAT,* 
0 031422 012746 000015 MOV #15 ,-(SP) 
8971 031426 004767 167134 JSR PC,WRT.E1 
72 031432 605104 9$: COM 4 : TST.PAT 
8973 031434 010103 MOV R1,R3 > CNT.1,CNT.2 
8974 031436 000576 BR 22§ 
8975 031440 010300 10$: MOV R3,RO > CNT.2,* 
8976 031442 006300 ASL RO 
8977 031444 066007 031450 ADD 11$(RO) .PC 
8978 031450 000014 11$: .WORD 12$-11$ 
8979 031452 000036 [WORD 13$-11$ 
031454 000062 “WORD 14$-11$ 
8981 031456 0001 “WORD 15$-11$ 
031460 00013 “WORD 16$-11$ 
8983 031462 000156 “WORD 17$-11$ 
8984 031464 010446 12$: MOV R4,-(SP) : TST.PAT,* 
8985 031466 005002 CLR R2 : INDEX 
8986 031470 005046 CLR (SP) 
8987 031472 012746 000030 MOV #30,-(SP) 
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UWMON—DAnn—LLOL 
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166034 


000006 
000030 
166166 


000003 
000030 
166320 


000010 
000030 
166644 


000015 
000030 
167026 


000016 
000030 


167222 
000030 


000002 


000003 
000005 
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000001 


13$: 


148: 


15$: 


16$: 


17$: 


18$: 


19$: 


SP, (SP) 
PC,RD.CS1 


PC,.RD.E2 
30(SP) #1 
21$ 


ERR.FLG,* 


TST.PAT,* 
* , INDEX 
INDEX,* 
ERR.FLG,* 
TST.PAT,* 
® , INDEX 
INDEX,* 
ERR.FLG,* 
TST.PAT,* 
* , INDEX 
INDEX ,* 
ERR.FLG,* 
TST.PAT,* 
* , INDEX 
INDEX,* 
ERR.FLG,* 
TST.PAT,* 
*, INDEX 
INDEX,* 
ERR.FLG,* 
ERR.FLG,* 
CNT.2 


CNT.2,* 


CNT.2,* 
CNT.2,* 


14-May-1981 
14-May-1981 


13:4 
13:0 


SEQ 0205 


8:54 
5:08 


TOPS 
PA:< 


5058 
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SEQ 0206 
9045 ZML4 14-May-1981 13:48:54 TOPS 
9046 : 14-May-1981 13:05:08 PA:< 
9048 031720 104455 ‘ TRAP =‘ 555 : 5069 
9049 031722 000156 .WORD 156 
9050 031724 010570 [WORD ARR.DAT 
1 031726 924060 “WORD DUMPER 

9052 031730 012746 006406 20$: MOV #WRD.10,-(SP) : 5072 
9053 031734 012746 006700 : MOV MRD. 37,-(SP) 
9054 031740 012746 006710 MOV #WRD. 38,-(SP) 
9055 031744 012746 006034 MOV #THR.FMT,-(SP) 
9056 031750 012746 000004 MOV #4, 
9057 031754 010600 MOV SP.RO : SP,* 
9058 031756 104414 TRAP «(14 
9059 031760 016716 161144 MOV RD.DATA, (SP) : 5073 
9060 031764 016746 161136 MOV WT .DATA,-(SP) 
9061 031770 010200 MOV R2.RO > INDEX,* 
9062 031772 300 ASL RO 
9063 031774 006300 ASL RO 
9064 031776 006300 ASL RO 

032 016046 013154 MOV ML .REG(RO) ,-(SP) 

032 012746 005216 MOV #EMT.16,-(SP) 
9067 032010 012746 000004 MOV #4,-(SP5 
9068 032014 010600 MOV SP,RO : SP,* 
9069 032076 104414 TRAP —s_-‘'14 
9070 032020 012705 000001 MOV #1,R5 : *,DODU.FLG 5074 
9071 032024 062706 000022 ADD #22,SP : 5060 
9072 032030 062706 000006 21$: ADD #6,5P : 5034 
9073 032034 00520 22$: INC R : CNT.2 5033 
9074 032036 020327 000005 CMP R3,45 : C(NT.2,* 
9075 032042 003002 BGT 23$ 
9076 032044 000167 177370 JMP 10$ 
9077 032050 022626 23$: CMP (SP) +, (SP)+ : 5009 
9078 032052 005201 INC R1 + CNT.1 5008 
9079 032054 020127 000004 CMP R1,44 : CNT.1,* 
9080 032060 003002 BGT 24$ 
9081 032062 000167 177230 JMP 2$ 
9082 032066 062706 000016 24$: ADD #16,SP : 
9083 032072 104467 TRAP 67 : 

32074 006 ROR R 

9085 032076 103002 BHIS 25$ 
9086 032100 000167 177056 JMP 1$ 
9087 032104 005305 25$:  ——»DEC R5 : DODU.FLG 

032106 001004 BNE 26$ 
9089 032110 016700 161464 MOV ML.LUN,RO ; 

032114 104451 TRAP = 51 

1 032116 104444 TRAP 44 

9092 032120 005726 26$: TST (SP)+ : 
9093 032122 000207 RTS PC 
9095 3 Routine Size: 244 words. 
9096 ; Maximum stack depth per invocation: 28 words 
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oo00900 
WW 

RORORORORORD 
8 ast a 








004767 177024 
104466 


006000 
103773 
000207 


5091 





; Routine Size: ds : 
3; Maximum stack depth per invocation: 
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nde 


ae 


N 16 
CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 215 
8 SEQ 0208 


TOPS-20 Bliss-16 V2(212) 


9132 ;ML4 14-May-198 254 
8 :08 PA:<NEALE>ML4.BL1.7 (59) 


9133 ; 14-May-19 
34 

5092! 

5094 BGNTST; 


3:4 
3:0 


— 


lo4 

i TEST NUMBER: TST 9 

TEST NAME: PRINT SERIAL NUMBER 

i TEST DESCRIPTION: 

i UPON A YES RESPONSE TO THE 

: SOFTWARE QUESTION ‘PRINT SERIAL NO? 
i 
; 
in 


PRINT OUT THE DRIVE UNDER TEST 
SERIAL NUMBER. 


external 
PRSN; ‘LOCATION WHERE ANSWER TO SW QUESTION IS STORED 


D3, 'STORES DI 
D2, 'STORES DI 


GIT 3 
GIT 2 OF SERIAL NUMBER 
D1, !STORES DIGIT SER 
D0; !STORES DIGIT 0 OF SERIAL NUMBER 
- »PRSN IS_SET 'SEE IF WE PRINT THE SERIAL NUMBER 
en 
begin :PRINT THE SERIAL NUMBER IF THE REPLY WAS YES 
»SN3; 'LOAD DIGIT 3 OF SN INTO D3 
: ‘LOAD DIGIT 2 OF SN INTO D2 
-SN1; 'LOAD DIGIT 1 OF SN INTO D1 
DO = .SNO; 'LOAD DIGIT 0 OF SN INTO DO 


if ((.D3 gtr 9) or (.D2 gtr 9) or (.D1 gtr 9) or (.D0 gtr 9)) 
sa. 'SEE IF DIGITS ARE TO BIG FOR COVERSION 


PRINTB (FMT_25, PHR_15, .MLSN) !PRINT OCTAL SN IF TO BIG 
. **PRINTB (FMT_26, PHR_15, .D3, .D2, .D1, .DO); ‘ELSE PRINT DECIMAL SERIAL NUMBER 
end; 

ENDTST; 

9183 -GLOBL PRSN 


FWN (“SO VOONAUSWN $9 OBNAULSWN —OVONAUS Wh — con 


oO 
— 
Ww 
o 
BeBe Be Ge Be Oe Be ee Be Be Be Be Be Be Be Fe Ge Be Ge Se Be Ge FH Fe Ge Be Fe Se Ge Se Ge Be Ge Ge Be Ge Be Ge Ge Se Ge Be Ge Ge 


0 9 ss ss Ss Ss Ss a ss Ss ) ss 9 2s = ss as ss S SS 9 2 SS 2 2 2 2 OOO 


DV PVPVWIVUPV PUD SUSU SUSU SUSU USU SUSU SUS SUSU SUSU SVS STS SISTA ASIII 
WWIWIWIWNIWIPIRINININININNININ 2 2 2 2 PP OO OH OOO 


Ww 


9186 -SBTTL $T9 


C 
$ 


SSes 
85% 


22222 
000 
SELES 


SOOO OSSOoOOOooOooOooooooooo 


OO00o0 
== 
3 


Gx 


OO00000 
Seseee 


PORORGRORORSRORSRORORSRORGRSRORORORORS 
RUNNIN SS SSS 
ESRNSSRSRVSNSSERSEVES 


UM SOSNAMRWMSOO 
eeneeeT 
SPASES 


AS 
nN 


Pactertatetat 
oecesé 


ite 
MESES DNS 


0 


ON 
& 


ee ML-11 LOGIC TEST 


Se--- es 


151714 
150226 


161134 


1 
MACRO M1113 18-MAY-81 08:17 PAGE 16 


R1,SSAVE3 
PRSN, #1 


4 
Spt -RES#ISG AS 


#177760,R3 
BR. RESP ISO AG 


#177760,R0 
+ pattem 


R1 
R1 


R1 
#177760,R1 

an, REG+140,R2 
#177760,R2 
R3,411 

RO.#11 

% 

R1,411 

R2,411 

$ 


) 
#PHR.15,-(SP) 
#FMT.26,-(SP) 
#6,~(SP5 
SP;°RO 


#6,SP 
#10,SP 
PC 


Sete Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Se Ge Be Ge Ge Ge 


14-May-1981 
14-May-1981 


1 
1 


248: 
:05: 


SEQ 0209 


TOPS 
PA:< 


5090 
5118 


5121 
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1 
CZMLACO ML=11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE $47 


$T9 SEQ 0210 
9244 sML4 alas bs 13:48:54 TOPS 
9. Fi 3 14-May-1981 15:05:08 PA:< 
9247 : Routine Size: 72 word 
° : : Maximum stack depth oer invocation: 11 words 
9254 
9258 
9259 -SBTTL T9 
9263 O3se68 T9:: 

9264 0 004767 177554 1$: JSR PC,$T9 : 5133 
9265 032364 104466 TRAP 66 

9266 032366 open ROR RO 

9267 b35355 10377 BLO 1$ 

ase8 032372 000207 RTS PC 

9270 ; Routine Size: 6 word 

ose} + Maximum stack depth oer invocation: 0 words 

9277 


9278 ;: 5136 !<BLF/PAGE> 


1 | 
-11 TEST MACRO M1113 18-MAY-81 08:17 PAGE B18 
SERLACS ML LOGIC TES C SEO 0211 


9280 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
928) ; 14-May-1981 13:05:08 | PA:<NEALEDML4-BLI.? (60) 
9283 ;: 5137 ! 
92864 ; 5138 =! 
9285 ; 5139 BGNTST; 
9286 ; 5140 
9287 ; 5141 !44 
9288 ; gee i i TEST NUMBER: TST 10 
9289 ; 14 
3Soe 3 5144 TEST NAME: C-BUS PARITY TEST 
9291 ;: 5145 
9292 : 5146 i TEST DESCRIPTION: 
9537 3 5147 i TEST THE CONTROL BUS PARITY 
BS9¢ 3 a168 : DETECTION AND GENERATING BY: 
aSoe 3 5150 ! 1. WRITING BAD PARITY TO DEVICE 
9297 ; 5151 AND TEST CPAR SET. 
9298 : g12¢ i 
9299 : 515 i 2. WRITING GOOD PARITY TO DEVICE 
9300 ; 5154 AND TEST CPAR CLR. 
9301 ; 5155! 
9302 ;: 5156 i 3. READING DEVICE AND TEST GOOD 
9303 ; 5157 i PARITY GENERATION BY READING 
9304 ;: 5158} MCPE CLR. 
9305 ;: 5159 
9306 ; 5160 i-- 
9307 ; 5161 
9308 ; 316¢ local 
9309 ; 516 ° 'TEMPORARY SAVE LOCATION 
osi0 3 3188 TST_PAT; iTEST PATTERN 
9312 : gie6 if .PAR_DIS IS_NOT_SET 'SEE IF PARITY iS DISABLED 
9313 ; 5167 then 
9314 ; 5168 begin 'BEGIN IF PARITY IS ENABLE 
3312 3 316) TST_PAT = %0°125252'; 'ALTERNATING 1, 0 PATTERN 
- 9317 ; 5171 incr TWICE from 1 to 2 do 'REPEAT LOOP TWICE 
9318 ;: 2176 begin 
9319 : al? CLR_MBUS; 
3359 3 174 PAT = g 'GENERATE EVEN PARITY BY SETTING THE PAT BIT 
9353 ; git? MLDA = .TST_PAT; 'WRITE BAD PARITY ON CONTROL BUS 
9 3 5177 if .CPAR IS_NOT_SET 'READ CPAR BIT oer 
: ; ; 2178 then 
9326 ; 180 bogie i" ASYNC, URD St ‘ERROR IF — SET 
9327 ; 181 PRINTB ( THR FMT, WRD WRD_7, WRD_9); 
9328 ;: is end; 
o3$5 2 1 
9330 ; 1 CLR_MBUS; 'CLEAR OUT PAT BIT 
9332 3 186 MLDA = .TST_PAT; 'WRITE ODD PARITY CONTROL BUS 
93 : 1 if .CPAR IS_SET 'READ CPAR BIT CLEARED 
9334 ; 188 then 4 ’ 


1 
SERLACO ML-11 LOGIC TEST MACRO M1115 18-MAY-81 08:17 PAGE 519 


SEQ 0212 
9336 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
3337 : 14-May-1981 13:66:08 ese ey ae | 245) 
9339 ;: 2188 begin 
9340 : 1 ERRDF (8, ASYNC, DUMPER); ‘ERROR IF SET 
9341 ; 3191 PRINTS (THR_FMT, WRD_6, WRD_7, WRD_9); 
7 $i 138 end; 
o 3 519 
9344 : 5194 CLR_MBUS; 
g 5; 3195 SAVE = .MLDA; 'READ A REGISTER FROM DUT 
9347 : 197 if .MCPE IS_SET 'SEE IF GENERATED GOOD PARITY 
9348 ;: 198 then 
9349 : 199 begin 
9350 : 200 ERRDF (9, ASYNC, DUMPZR);: ‘ERROR IF MCPE IS_SET 
9351 ; 5201 PRINT (THR_FMT. WRD_6, WRD_7, WRD_8); 
S3eg : 3508 = 
9354 : 5204 TST_PAT = .TST_PAT*ONE; ‘REPEAT WITH SHIFTED DATA 
9355 : 5205 end; 
9396 : 5206 
9357 : 5207 end 
9358 ;: 5208 else 
9399 : 3209 PRINTB (TWO_FMT, WRD_7, WRD_53); !JUST PRINT MESSAGE IF PARITY IS DISABLED 
9361 : 3535 ENDTST; 
9365 
9366 .SBTTL $110 
9370 032374 004167 151460 $710: JSR R1,$SAVE3 F 5135 
9371 032400 005767 157162 TST PAR.DIS : 5166 
937¢ 032404 001171 BNE 5$ 
9373 032406 012701 125252 MOV #-52526,R1 : *, TST.PAT 5169 
9374 032412 01 g 000001 MOV R > *, TWICE 5171 
9375 4616 15 000040 160570 158: BIS8 #40, aML.REG+40 : 5172 
9576 0 424 016700 1611s MOV b 
9 032430 04 700 1777 BIC #177776,RO 
9378 032434 14 000007 160552 BICB = #7, AML .REG*4 
9379 032442 150077 16054 B1SB RO @ML .REG+4 
9380 032446 152777 160540 B1SB 6, aL .REG+40 : 5174 
9381 0 454 010177 160524 MOV R1, aM .REG+30 : TST.PAT,* 5175 
9382 460 132777 000010 160546 B1TB © #10, aML.REG+60 : 5177 
9 00102 BNE 
9 470 1044 TRAP : 5180 
9385 0324 . WORD 
9 474 010464 “WORD  ASYNC 
938 476 026 .WORD DUMPER 
9388 0325 12746 006374 MOV #WRD.9,-(SP) : 5181 
9389 0325 12746 906 4 MOV #WRD.7,-(SP) 
9390 032510 012746 30 MOV #URD.5.-(SP) 





SER ACO ML-11 LOGIC TEST 
$11 





9 

ee 

9 

95 

By 

9 

9 

9400 

bed 

sh 
9404 

Sane 

xe 
9408 

9409 

9410 

9411 

328 

941 

9414 

9415 

934 | 

941 

9618 

9419 

9420 

9421 0 
5 § 
9424 0 

9425 0 

9426 0 

9427 0. 

9428 03271 
9429 03271 
9430 032714 
9431 , 71 
% 

9433 032724 
oS 

9435 ‘ 
9% 740 
se srt 
sas Sr 
Bit Sr 
si) Sr 
git Sere 
9445 9 75 
9446 774 
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a-6-3 
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oun 
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99g 706 000012 
152777 000040 
gr 160724 
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12746 4 
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MACRO M1113 18-MAY-81 08:17 PAGE 220 


MOV #THR. FMT ,=(SP) 
MOV #4,~(SP) 


MOV SP, 
TRAP _-‘16 
ADD #2, 
160452 28: BISB8 #40,aML.REG+40 
V mL bur RO 
BIC #177776,RO 
1604634 BICB =: #7, ML .REG +4 
Rov Al oe necesO 
160436 8178 #10, aML.REG+60 
BEQ 38 
TRAP 5 
.WORD 10 
“WORD ASYNC 
WORD R 
MOV #WRD.9,-(SP) 
MOV D.7.=(SP) 
D.6,-(SP) 
MOV #THR.FAT,=(SP) 
MOV #4,-(SP) 
MOV *RO 
TRAP 4 
ADD 12.8 
160342 3S BISB8 #40.aML.REG+40 
Bie #1 PUT RO, 
160324 BICB ss #7, AML .REG*+40 
may Sntarhs's 
2 + oe 
160246 BIT £20000 aL REG 
BEQ 4$ 
TRAP 
.WORD 11 
[WORD  ASYNC 
* WORD 
MOV #URD.8,-(SP) 
#WRD.7.=(SP) 
MOV #WRD.6,-(SP) 
MOV #THR. FAT, =(SP) 
MOV #4,-(S 
MOV *RO 
TRAP 4 
ADD #12,SP 
43: ASL R1 
INC R 
CMP R2,#2 
BLE 1 


PC 
5$: MOV SURD. 33.0452) 
#URD.7,-(SP) 


SP,* 


TST.PAT,* 


SP,* 


*, SAVE 


SP,* 


TST.PAT 
TWICE 


by TWICE ,* 


14-May-1981 1 
14-May-1981 1 


3:05 


SEQ 0213 


254 


TOPS 
PA:< 


1 
SER ACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE $1 
$T1 SEQ 0214 
sML4 14-May-1981 13:48:54 TOPS 
oree 3 14-May-1981 13:05:08 PA:< 
9451 3000 012746 024 MOV #TWO.FMT,-(SP) 
$8) QRMED Stes SUES my gyn 
945 18 010600 MOV SP RO 3; SP,* 
9454 12 104414 TRAP 14 
9455 14 706 000010 ADD #10,SP 
bats 033020 207 RTS PC 3 5135 
9458 3; Routine Size: 139 words 
9459 ; Maximum stack depth per invocation: 9 words 
9465 
9469 
9479 -SBTTL 110 
9474 i § T10:: 
9475 767 177346 18: JSR PC,$T10 3 5209 
9476 0 104466 TRAP 
9477 0 ROR RO 
9478 8 32 10377 BLO 1$ 
9479 033034 RTS PC 
9480 


£ 
4 


3; Routine Size: 6 words 
; Maximum stack depth per invocation: 0 words 


Ses 


5212 !<BLF/PAGE> 


0 


ZMLACO ML-11 LOGIC TEST 
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at es st ne 


RoR toroores 
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POPOTOIPOPIPIPPONIPINIPINIPININIAINININIAINY 
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MWEWN—O 
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41 
MACRO M1113 18-MAY-81 08:17 PAGE 222 
SEQ 0215 


ba saat t+ 13:48:54 TOPS=20 Bliss-16 g(21e) 
14-May-1981 13:05:08 PA:<NEALEDML4.B8L1.7 (61) 


t 
BGNTST; 


'e 


TEST NUMBER: TST 11 

; TEST NAME: MEMORY SIZING TEST 

TEST DESCRIPTION: 

i THIS TESTS THE ML11°S SIZING 

i LOGIC BY COMPARI 

i OPERATORS INPUTED NUMBER OF ARRAYS 

i PRESENT TO THE ML11 SIZING 

i NUMBER OF ARRAYS PRESENT 

i THE DRIVE IS DROPPED ON DETECTED ERRORS. 
{ IMPLICIT INPUTS: 
i OP_NUM_ARR: 
i LOADED" DURING INIT CODE AND 
: STORES OPERATORS INPUT TO THE 
i 

i 


OFTWARE QUESTION: 
NUMBER OF ARRAYS PRESENT? 


local 
DODU_FLG:; !DROP UNIT FLAG 


UB; 
CLR_MBUS; 
DODD_FLG = ZERO; 


| al anal teas + 1) neq .ML_NUM_ARR !SEE IF DRIVE SIZED SAME NO. OF ARRAYS AS OP INPUTED 


begin 
ERROF (10, ASYNC, DUMPER); !JF NOT EQL THEN ERROR AND SET DODU_FLG 
PRINTS (TWO_FMT, FNC_1, WRD_14); 


PRINTB (FMT-2, (.0P_RUM_ARR™+ 1), .ML_NUM_ARR); 
DODU_FLG = ONE; 


ENDSUB; 
if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG IS_SET 


begin 
DOBU (.ML_LUN); 
DOCLN; 


1 
MLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 03 
0 SEQ 0216 


=~ 


9547 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
9948 14-May-1981 13:05:08 | PA:<NEALEDML4.8L1.7 (61) 

9550 ; 5265 

9551 : 5266 ENDTST: 

9555 

9556 .SBTTL $111 

9560 0 3056 004167 151016 $T11: JSR R1,SSAVE3 : 5211 
9561 03304 Vosade 1$: TRAP 2 : 5242 
996¢ 9 3044 15277 0 160142 BISB #40,@ML.REG+40 : 5244 
9563 033052 016701 160524 MOV ULAR 

9564 0 042701 1777 9 BIC #177770,R1 

9565 0 142777 000007 160124 BICB = #7, AML. REG*+40 

9966 0 150177 160120 BISB R1, aML.REG+40 

9567 033074 905002 CLR R : DODU.FLG 5246 
9568 0 Ke: 016701 156456 MOV OP.NUM.ARR,R1 ; 5248 
9569 033102 005201 INC 

9570 0 3104 017 03 160164 MOV @ML .REG+120,R3 

Sr SES Bisse mm O 

9858 S311 Specos AR ORS 

9574 033116 900305 SWABS 

9575 033120 O42 03 177740 BIC #177740,R3 

9576 033124 01 100 MOV R1,RO 

9577 033126 0 CMP RO.R3 

9578 033130 001444 BEQ é 

9579 033132 104455 TRAP 5 : 5251 
9580 033134 000012 .WORD 12 

9581 033136 0104 “WORD  ASYNC 

982 033140 024 .WORD  DUMPE 

9583 033142 012746 006442 MOV #WRD.14,-(SP) : 5252 
9584 033146 012746 007726 MOV #FNC.1,-(SP) 

9585 033152 012746 006024 MOV #TWO.FAT,-(SP) 

9586 033156 012746 000003 MOV #3,- 

9587 033162 010600 t : SP,* 

95 033164 104414 TRAP ‘14 

9589 033166 017703 160102 MOV @ML .REG+120,R3 ; 5253 
9590 033172 00620 ASR R 

9591 033174 ASR R 

9598 05 7 ASR R 

959 SWAB Oi 

9594 033 04 03 177740 BIC #177740,R3 

9595 03 1 316 MOV 

999% 05 1 16 66 156344 MOV OP.NUM.ARR,-(SP) 

959 9 14 216 INC (SP) 

9598 3 1g 012746 0042 MOV #FMT.2,-(SP) 

9599 9 3 012746 00000 MOV #3,-(SP) 

9600 033 01 MOV SP.RO : SP,* 

9601 03 104414 TRAP =. ‘14 


ar 
—~ 
— 





j 
CO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 324 


MLA 

1 SEQ 0217 
9603 ML4 14-May-1981 13:48:54 TOPS 
9604 ; Janay 1981 13:08:08 Paes 
9606 0 012702 000001 MOV #1,R2 3; *,DODU.FLG 5254 
9607 O38e36 708 000016 ADD #16,SP : 5250 
9608 Beese 10446 2s: TRAP 67 : 5255 
9609 033244 opeone ROR RO 

9610 Seese6 10367 BLO 1$ 

9611 033250 005302 DEC R2 3; DODU.FLG 5259 
sole 033252 001004 BNE $ 

961 oe 54 016700 160320 MOV ML.LUN,RO 3 5262 
9614 0 104451 TRAP 51 

9615 033 104444 TRAP 44 

eels 033264 000207 3$: RTS PC 3 §211 
9618 ; Routine S*ze: 76 words 

eel? 3; Maximum stack depth per invocation: 11 words 

9625 

96 

96 -SBTTL 111 

9634 033266 T11:: 

9635 033266 004767 177544 1$: JSR PC,$T11 3 5264 
9636 033272 104466 TRAP 66 

37 033274 006 ROR RO 
9638 033276 10377 BLO 1$ 
39 033 00020 RTS PC 
9641 : Routine Size: 6 words h 
+943 3; Maximum stack depth per invocation: 0 words 


9 3 5267 !<BLF/PAGE> 


SpLACe ML-11 LOGIC TEST 
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MACRO M1113 18-MAY-81 08:17 PAGE 225 


| 
; 
BGNTST; 


'+ 


+ 
i TEST NUMBER: TST 12 
TEST NAME: | NO-OP FUNCTION TEST 
TEST DESCRIPTION: 
i TEST IF THE DRIVE CAN PERFORM 
i A FUNCTION WITH OUT 
; HANGING THE DRIVE. 
i A NO_OP FUNCTION IS WRITTEN 
i INTO MLCS1. 
i THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES. 
i THIS UNIT IS DROPPED ON DETECTED 
ERRORS. 
f 
{ 
i 
' 


i IMPLICIT INPUTS: NONE 


local 

DODU_FLG; 
BGNSUB; 
CLR_MBUS; 
DODO_FLG = ZERO; 
MLCST = : 
DELAY (ONE_US); 
if .GO IS_SET 
then 


begin 
ERRDF (11, ASYNC, DUMPER); 


PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, 
DODU_FLG = ONE; 


end; 
if .ILF IS_SET an 
then - 


pegin ” 
ERRDF (12, ASYNC? DUMPER); 


); 
PRINTB (FEV_FMT, WRD_3, PHR_S, WRD_11, 
end; 


14-May-198 
14-May-198 


—t 


13:4 
13:0 


!DROP UNIT FLAG 


:DO A NOOP FUNCTION 
!DELAY 1 US 


'SEE IF GO STILL SET 


‘ERROR AND SET DODU_FLG IF STILL SET 
FNC_2, WRD_19); 


!SEE ILF SET 


'ERROR AND SET DODU_FLG IF SET 
FNC_2, WRD_19); 


TOPS=20 Bliss-16 V2(212) 


754 
:08 PA:<NEALE>ML4.BL1.7 (62) 


SEQ 0218 


“40 
—~N 


WWNoRoNonononofnofonong 
WN SO OONOUSWN—O 


PUPP STATA AAAI AIA III 
Ww 


3 
o 
N 


BePeuse 


“ 
Ww 


On 


— — 

sus 

x 
WMOonN™ 


seers 


~ 
os 


oooo 
—=—f\— 
ws 
P™ 

nO 


ati 


1 
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SEQ 0219 
14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALEML4.BL1.7 (62) 
if .OPI IS_SET 'SEE IF CPI SET 
then 
poate 
ERRDF (13, ASYNC, DUMPER); 'ERROR AND SET DODU_FLG IF SET 
pe (FIVLFMT, WRD_4, PHR_5, WRD_11, FNC_2, WRD_19); 
end; 
ENDSUB; 
a -DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG IS_SET 
en 
bogie 
DODU (.ML_LUN); 
DOCLN; 
end; 
ENDTST; 
-SBTTL $T12 
150536 $T12: JSR R1,$SAVE2 ; 5266 
TST -(SP) 
1$: TRAP 2 ; 5297 
000040 157674 BISB #40, @ML .REG+40 j 5299 
160256 MOV ML by R 
177770 BIC #177776,R1 
000007 157656 BICB #7. QML .REG*+40 
157652 BISB R1,@ML .REG+40 
CLR R2 ; DODU.FLG 5301 
000001 157602 MOV #1, @ML REG ; 5302 
000001 MOV #1,R0 3: *,SSTMP2 5303 
23: BEQ $ 
146532 MOV LSDLY,R1 3: *,SSTMP1 
Q 4$ 
DEC R1 : SSTMP1 
BNE 3$ 
4$: Hy yt : SSTMP2 
000001 157546 5$: B1TB #1, @ML REG : 5305 
BEQ 6$ 
TRAP 55 3 5308 
-WORD 13 
-WORD ASYNC 
-WORD DUMPER 
006506 MOV #WRD.19,-(SP) 3 5309 
007742 MOV #FNC.2,-(SP) 


BE 
3$: CLR (SP) 3 SSTMP 





a1 | 
CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 227 
$112, SEQ 0220 


| 
9763 :ML4 14-May-1981 13:48:54 TOPS | 
9764 14-May-1981 13:05:08 — PA:< | 
9766 033430 012746 006416 MOVs #WRD. 11, = (SP) | 
9767 033434 012746 007404 MOV #PHR.2,-(SP) 
9768 033440 012746 006276 MOV #WRD.1.-(SP) 
9769 053444 012746 006062 MOV #F1V.FAT, -(SP) 
9770 033450 012746 000006 MOV #6,-(SP) 
771 033454 01 MOV SP.RO : SP,* 
9772 033456 104414 TRAP ‘14 
773 033460 012702 000001 MOV #1,R2 : *,DODU.FLG 5310 
7% 033464 062706 000016 ADD #16,SP : 5307 
9775 033470 132777 000001 157536 6$: BITB #1, aML.REG+60 : 5313 
9776 033476 001426 BEO 7$ 
9777 033500 104455 TRAP = 55 : 5316 
9778 033502 000014 .WORD 14 
9779 033504 010464 “WORD ASYNC 
9780 033506 024060 WORD  DUMPE 
9781 033510 012746 006506 MOV #WRD. 19,-(SP) ; 5317 
9782 033514 012746 007742 MOV #FNC.2,-(SP) 
9783 033520 012746 006416 MOV #WRD.11,-(SP) 
9784 033524 012746 007472 MOV #PHR.5,-(SP) 
9785 033530 012746 006314 MOV #WRD.3,-(SP) 
9786 033534 012746 006062 MOV #F IV.FAT, (SP) 
9787 033540 612746 000006 MOV #6,-( 
9788 033544 010600 MOV 4 : SP,« 
9789 033546 104414 TRAP 
9790 033550 062706 000016 ADD #16,SP : 5315 
9791 033554 032777 020000 157452 7$: BIT #20000, am. .REG+60 : 5320 
9792 033562 001426 BEQ 8 
9793 033564 104455 TRAP 3s 5§5 ; 5323 
033566 000015 .WORD 15 
9795 033570 010464 “WORD ASYNC 
033572 024060 * WORD 
9797 033574 012746 006506 MOV D.19,-(SP) ; 5324 
033600 012746 007742 MOV #FNC.2,-(SP) 
033604 012746 0064.16 MOV #WRD.11,-(SP) 
033610 012746 00747 MOV -5,-(SP) 
9801 033614 012746 006322 MOV #WRD. 4. (SP) 
2 03 012746 006062 MOV #F IV. FAT, -(SP) 
9803 033624 012746 MOV #6,-(SP) 
9804 033630 010600 MOV SP.RO : SP,* 
9805 033632 104414 TRAP ‘14 
9806 033634 062706 000016 ADD #16,SP : 5322 
9807 033640 10446 8S: TRAP 67 : 532 
9808 033642 ROR RO 
Briss aa pou. ru sz9 
oe base Peat 157722 nov ML.LUN,RO 5332 
oB1s 033656 104451 TRAP 
Oets Ossees  OnstoG ‘ 9$ ter CSP) 5266 
+ o 
9816 033664 00020 - RTS 
9817 
aed A 


CZMLACO ML-11 LOGIC TEST 


$11 
9819 


1 
MACRO M1113 18-MAY-81 08:17 PAGE 328 


004767 177410 
104466 


006000 
103773 
000207 


5337 


! <BLF /PAGE> 


sML4 


3; Routine Size: 122 word 


+ Maximum Stack depth per ” invecation: 


-SBTTL T12 
Tl2:: 
1$: JSR PC,$T12 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 


3; Routine Size: 6 word 


+ Maximum stack depth oat invocation: 


11 words 


‘0 words 


SEQ 0221 | 
14-May-1981 13:48:54 TOPS | 
14-May-1981 13:05:08 — PA:< | 

| 
! 
5334 


4 


2 
CERLACO ML-11 LOGIC TEST MACRO M1113 18-MAY=81 08:17 PAGE 829 
Ti2 SEQ 0222 


bpp aad t+ 4 13:48:54 TOPS=20 Bliss-16 V. Cie 
14-May-1981 13:05:08 PA:<NEALEML4.8LI.7 (63) 


1 
; 
BGNTST; 


'e¢ 
TEST NUMBER: TST 13 


TEST NAME: WRITE CHECK FUNCTION TEST 
TEST DESCRIPTION: 
TEST IF THE DRIVE CAN PERFORM 
A WRITE CHECK FUNCTION WITHOUT 
HANGING THE DRIVE. 
fate ta CHECK FUNCTION IS WRITTEN 


INTO MLCS1. 
THEN GO AND ERROR BITS ARE 
CHECKED FOR CORRECT STATES 


WW 
ooo 


BEEEER 


local 
DODU_FLG; !'DROP UNIT FLAG 


BGNSUB; 
R 


RRA AATA AI eee 
WRI SO OBNAULSWN $0 OONOAULS WMO 


Ss 

DODU_FLG = ZERO; 

FIRST_BLK_XFER (); 'SET UP A FIRST BLK XFERR 
MLCS1"= WRT : !DO A WRITE CHECK FUNCTION 


+ IS_NOT_SET !SEE IF THE GO BIT GOT SET 


sapagageseeseceaesseessssssaeees 


Be 
eeeee 


: 
s 


$8 
28 
YattsuNas 


2 
Oo 


hegin 
ERRDF (14, ASYNC, DUMPER); TERROR IF NOT SET 
PRINTS (FIV_FMT, WRD_1, PHR_1, WRD_12, FNC_4, WRD_19); 


oe IS_NOT_SET 'SEE IF THE DRY IS SET WHILE GO IS CLEARED 


38 


WAWWAWWWWw 


begin 
ERROF (15, ASYNC, DUMPER); 'ERROR IF CLEARED 
eninte (Fiv_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 


So 


SRaSz 


DODU_FLG = ONE; 'SET DODU_FLG 
end . 
else 
pas I1S_SET 'THE GO IS SET SO SEE IF DRY IS CLEARED 


PUPP PV DV PU DUP DU DUPUDV PU PUPUPUDU DU PVLPUPU DUP PUPUPUDUPVPVSUSPVDUSUDVPUSUPUSVST SSE SISTA MIMIUIUIUIVIIVT 


SESsEee 


begin 
ERRDF (16, ASYNC, DUMPER); 'ERROR IF DRY IS SET 








an 


2 
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2 SEQ 0223 
9911 =ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 v2(212) 
Soi8 $ 14-May-1981 13:05:08 PA: <NEALE>ML4.B8L1.7 (63) 
9914 ; aa00 PRINTB (FIV_FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_5); 

9915 ; 5391 DODU_FLG = ONE; 

pay 3 5 8 end: 

9917 ; 539 

9918 ;: 5394 if .ILF IS_SET 'SEE IF ILF IS SET 
9919 ;: H 95 then 

9920 ; 399 peain 

9921 ; 539 ERRDF (17, ASYNC, DUMPER); ‘ERROR df SET 
3358 3 5398 PRINTB (Fiv_ FMT, WRD_3, PHR_ 5, WRD_12, FNC_4, WRD_19); 

9923 ;: 5399 end; 

9924 ; 5400 

9925 : 5401 if .OPI IS_SET 'SEE IF OPI IS SET 
9926 ;: 5402 then 
9927 : 540. poate 
9928 : 278e ERRDF (18, ASYNC, DUMPER); 'ERROR IF SET 
9929 ; 405 PRINTB (Fiv_ FMT, WRD_4, PHR_ 5. WRD_12, FNC_4, WRD_19); 

9930 ; 5406 end; 

9931 ; 5407 

pad 4 é 5408 DELAY (FRTY_US); 'WAIT FO XFERR TO COMPLTE 

9933 ;: 5409 

9934 ;: 5410 if .DRY IS_NOT_SET 'SEE IF DRY IS SETS AFTER XFERR 

9935 ;: 5411 then 

9936 ;: 5412 begin 

9937 ;: 5413 

9938 ; 5414 if .GO IS_SET 'IF DRY IS NOT SET THEN SEE IF GO IS SET 
9939 : 5415 then 

9940 ; 5416 begin 

pend $ golf CLR_MBUS; 'IF THE GO IS SET THEN TRY TO CLR GO 
944 3 $03) if .GO IS_SET then ERRDF (19, ASYNC, DUMPER) else ERRDF (20, SYNC, DUMPER); 
9945 ;: 5421 'IF GO IS STILL SET THEN ASYNC FAILURE 
pg 3 3056 — (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19); ‘ELSE SYNC MODLE FAILURE 
9948 ;: 5424 vise, 

9949 : 5425 pegin 

9950 ;: 5426 ERRDF (21, ASYNC, DUMPER); ‘ERROR GO AND DRY BOTH CLEARED 

9951 : 5427 PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_11, FNC_4, WRD_19); 

9952 ; 5428 end; 

9953 ; 5429 

9954 ;: 5430 DODU_FLG = ONE; 'SET THE DODU_FLG 

9955: 5431 end; 

3336 ; 54 § 

9957 ;: 54 if .GO IS_SET 'SEE IF THE GO IS STILL SET 

9958 : 54 then 

9959 ;: 5435 begin ; 

p34 3 3 CLR_MBUS; 'TRY TO CLR GO IF STILL SET ¥ 

Pees : 3 : if .GO IS_SET then ERRDF (22, ASYNC, DUMPER) else ERRDF (23, SYNC, DUMPER)g@ 

9964 ;: 5440 'IF GO IS STILL SET THE ASYNC FAILURE 
9965 ; 5441 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_4, WRD_19); TELSE SYNC MODULE FAILURE 


7 
4 


ae 


$ 
o 


9991 033702 


WWW 


Ane oo 5 4 
RAR 


Seerrd 
NSxss 


oo 
Ro 


SOooooooooooocoo 


PEER ER 


Re 


gSesaeseseseesesesti ssszsyts 
2c 


SSSSSSSesessssesssssoees 
iw] 

= 

oo 


ww 


S48 


o=—— 
23e88 
AS Be 
NNOONOLSO 
NN @ SINON 


ssure 
YES 


—o 
Wwe 


CO ML-11 LOGIC TEST 


en 


ENDSUB; 


MACRO M1113 18-MAY-81 08:17 PAGE B37 


ate = ONE; 


if .DODU_FLG IS_SET 
then 


pein 
DODU (.ML_LUN); 
DOCLN; 


end; 
ENDTST; 


150136 


000040 
157656 
177 4 
139052 
162070 
000051 
000001 


157274 


157256 


157160 


$113: 


1$: 


14-May-1981 
14-May-1981 


!DROP THIS WNIT IF DODU_FLG IS_SET 


$713 
R1,$SAVE2 
=(SP) 


2 
#40, QML .REG+40 


# 
R17, aML.REG+40 

PC .FIRST.BLK.XFER 
#51 REG 


$500. OAL .REG*SO 


1 
ASYNC 


13:48:54 
13:05:08 


DODU.FLG 


SP,* 


TOPS=-20 Bliss ri, V 
PA: <NEALE>ML 


vg (el¢) 


SEQ 0224 


5375 
5378 





2 
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SEQ 0225 
10023 ZML4 14-May-1981 13:48:54 TOPS 
109034 : 1a-may-1981 13:05:08 Pace 
100¢6 0 054 . WORD 
10027 056 MOV #PHR.6,°(SP) : 5379 
10028 0 MOV #WRD. 1.=(SP) 
1 0 MOV D.43,-(SP) 
100 0340 MOV -1,°(SP) 
10031 0 076 MOV #WRD.2,-(SP) 
10032 034102 0 MOV #FIV.FAT,=(SP) 
100 106 0 MOV #6,-(SP 
10034 112 01 MOV SP.RO : SP,* 
igs Gale aes Be He.se ss 
100. 0341 § ¢ BR 3 : 5382 
100 #1 4 1057 2s: TSTB  @ML.REG+S0 : 5386 
10039 034130 1000 BPL 4$ 
10060 0341 104455 TRAP 3s 455 : 5389 
10041 034134 000020 «WORD 20 
1004¢ 0341 010464 “WORD ASYNC 
10043 0 140 24060 “WORD R 
10044 05414 4 746 007472 MOV #PHR.5,=(SP) ; 5390 
10045 0 166 12746 906276 MOV #WRD.1.=(SP) 
10046 034152 012746 006754 MOV -48,-(SP) 
10047 034156 012746 007404 MOV 2e" 
10048 034162 012746 006302 MOV D.2,°(SP 
10049 034166 012746 00606 MOV #FIV.FAT,=(SP) 
10050 0541 012746 000006 MOV tS 
10051 9 176 010600 MOV *RO : SP,* 
19088 Os 2 493503 000001 3$ hv i R2 DODU.F 
H ; *,DODU. 
10054 034 206 000016 ADD #16,SP ; - ey 
10055 O34 1 1307 7 000001 157014 4$: e178 #1. GAL .REG+60 : 5394 
10057 O32 Maes TRAP 3 : 5397 
10058 034224 000021 «WORD 21 
10059 10464 “WORD ASYNC 
10060 24060 “WORD DUMPER 
10061 12746 506 V #WRD. 19, (SP) ; 5398 
1006¢ 12746 007756 MOV #FNC.4,—(SP) 
1 034242 012746 2 MOV °12,-(SP) 
10064 12746 6 MOV 5, 
10065 5 12746 314 MOV #WRD. 3, (SP) 
10066 127 MOV #FIV.FAT,=(SP) 
1 1276 MOV #6,-(SP) 
10068 1 MOV $P.RO : SP,* 
186 BESTE StIe a0 ee a 
10071 76 Hd 2 156730 5$: eI fi $680. amL.REG*6O : 358 
10098 4 TRAP ; 5404 
10074 03431 22 «WORD 22 
1008 0 1g 022066 "NORD DRPER 
19077 16 43908 006506 v MRD. 19,-(SP) F 5405 


Ss 


CZMLACO ML-11 LOGIC TEST 
S113. 


3 
3 


ad 
S3 


Ooooocecoooo 


SEE RE PEPER REP EEE 
QSSRASSS LESSEN 


Ss essrseseesesarae 


Cooooooooo 
SESESESE 
HESBSSRR 

P2788 


SELESFESLS 


— — Wy ss SH os oe = st oan SH SS SS ss = Ls SS SS WV os SS Lt 
eet eld ed ee eed od ed 
co UMWEUIN =O OONOULSWN—O 
= x 
2 gaenh 3 3333 FS 


dd ee ae a ee me ay ae ed ed a a ae ed a ed me gy ce me ed me ak me ns me as ae a ed ed ed nd ad ed ed od od oe = = = 
AMAA 


SOooQooooooooooooooocoeoooooceooooocoo 


VMI yews 
Vin 


ws 


DD 
Tranwroone or 


dD 
SUSusuSSS33SsI3ss 


—— = 
Wms 








000016 
000050 


145522 


000200 
000001 

0 
157140 
dda 


156 
000001 





F 
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3ML4 


9$: 
156606 108: 
156526 
156556 


156540 
156466 


135$: 


#FNC.4,=(SP) 
MWRD.12,-(SP) 

5, -(SP) 
#WRD.4.=(SP) 
#F IV.FAT,=(SP) 
#6,-(SP) 


14 
o16.SF 
#50,R0 


SDLY,R1 


f @AL REG 


; SP, 


; *,SSTMP2 
4 * ,SSTMP1 


; SSTMP 
; SSTMP1 
; SSTMP2 


; SP,* 


14-May-1981 1 
14-May-1981 1 


SEQ 0226 


3:05:08 


TOPS 
PA:< 


5403 
5408 


5410 
5414 
5416 


5419 


5422 


FR 
on 
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$11 SEQ 0227 
101 5 M4 14-May-1981 13:48:54 TOPS 
191 : 14-May-1981 13:05:08 PAs< 
101 9 4 MOV #WRD.19,=(SP) : 5427 
101 1 MOV #FNC.4,=(SP) 

10140 0 oi MOV #WRD.11,-(SP) 
10141 0 1 MOV #PHR.1,=(S 
1016e 0 1 MOV #WRD.2,-( 
1014 1 MOV #FIV.FAT,=(SP) 
10144 0 oI MOV #6,~(SP) 
10145 0 1 MOV SP.RO : SP,* 
10146 0 104414 TRAP ‘14 
10147 0 12702 000001 146$: MOV #1,R2 : *,DODU.FLG 5430 
10148 0 706 16 ADD #16, : 3412 
10149 0 4 1 777 156312 15$: B17 #1 ,GAL REG : 543 
10181 0 644 903538 000040 156342 BIS8 #40,8ML.REG+40 : 5435 
1O13¢ 034652 016701 1567246 MOV ML b 
1182 O3ees 145777 4 boy 156326 ste ayC77O M 
10155 034670 150177 treet BISB8 R1.aML.REG*+40 
10136 0 74 130777 156252 B1T8 “| ‘ : 5438 
10158 034704 104455 TRAP igs 
10159 034 000026 «WORD 2 
10160 03471 010464 “WORD ASYNC 
19182 Ose rte SSocbe BR . 17$ 
1Gi6$ 93476. TosK5s res: Tha, 3S 
10165 0347, et : 3% “WORD SYNC 
10166 034724 024060 -WORD DUMPER 
10167 034726 012746 006506 17$: MOV #WRD. 19,=(SP) : 5441 
10168 054 or 746 007756 MOV #FNC.4,~(SP) 
13s Sues Sisnes. Susu my Rosey 
10171 034746 12766 % MOV Sunn: 1 =0eP> 
1017¢ 03475 12746 MOV #FIV.FAT,-(SP) 
101 9 ? 12746 000006 MOV #6,-(S 
10174 347 1 MOV SP-RO : SP,* 
1o17e 34766 042703 000091 re oot -ne poou.F 
° g 8, e 

Wire Gucres Guero SOBER vires ‘ape re 
1178 $8800 se ) m 
10180 0 5002 10 BHIS ms 
10181 035004 167 176700 JMP 1$ 
1018¢ 0 ane 3 2 19S: DEC R 3 DODU.FLG 5447 
10184 0 301 916700 156560 MOV ML. LUN. RO ; 5450 
10189 $i & b0s%36 208: teh tee) 

: + 
10188 6 b00209 RTS ‘ +538 


2 

CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE Hes 

sf SEQ 0228 
10191 3ML4 -May-1981 1 TOPS 
10182 : “hay - 198) 13: 70 ‘38 PA:< 
10194 ; Routine Size: 299 word 
19132 : Maximum stack depth per ” wecat ion: 18 words 
10201 
10205 
10206 -SBTTL 113 
10210 $328 T13:: 
10211 0350 004767 176646 1$: JSR PC,$T13 3 5452 
1 i Seen 1044 TRAP 66 
10213 035036 ROR 0 
10214 035040 10377 BLO 1$ 
si? 035042 000 RTS PC 
10217 ; Routine Size: 6 words 
eis + Maximum stack depth per invocation: 0 words 
10224 
10225 ; 5455 !<BLF/PAGE> 


a ML-11 LOGIC TEST 
10227 :ML4 
19558 3 
102 
10. 3 545 
10231 ; 545 
10. : 5458 
19s 3 5459 
10 3 5460 
19936 276) 
19539 ; 546 
ses ; 5464 
10239 ; 5465 
see? : 5466 
10241 ; 5467 
10242 ; 5468 
10243 ; 5469 
10244 ; 5470 
10245 ; 5471 
10246 ; 547, 
10247 ;: 547 
10248 ;: 5474 
10249 ; 5475 
10250 ; 547 
10251 ; 547 
10636 3 5478 
10253 ;: 5479 
10254 ; 5480 
10255 ; 5481 
10256 ; 5482 
10257 ; 5483 
10258 ; 5484 
10259 : 5485 
10260 ; 5486 
10261 ; 5487 
10262 ; 5488 
10263 ; 5489 
10264 ; 5490 
10265 ; 5491 
18¢66 ; 2036 
10se 3 49 
10268 ; 494 
10269 ; 5495 
10270 ; 2436 
44 3 549 
10 % 3 5498 
10273 ; Pets 
10274 ;: 500 
ei BB 
1 3 3 3308 
10 % 3 504 
10279 ; 5505 
10280 ; 33 
10281 ; 50 


2 
MACRO M1113 18-MAY-81 08:17 PAGE 36 


TOPS-20 Bliss-16 V2(212) 


14-May-1981 13: 54 
981 13:05:08 PA:<NEALEDML4.BL1.7 (64) 


14-May-1 
| 
BGNTST; 


lee 
: TEST NUMBER: TST 14 
TEST NAME: WRITE FUNCTION TEST 


; 
i 
i TEST DESCRIPTION: 
i TEST IF THE DRIVE CAN PERFORM A WRITE FUNCTION WITHOUT 

HANGING THE DRIVE. 

i A WRITE FUNCTION IS WRITTEN INTO MLCS1. THEN GO AND ERROR BITS ARE 

; CHECKED FOR CORRECT STATUS. THIS UNIT IS DROPPED ON DETECTED ERRORS. 


local 
DODU_FLG; 'DROP UNIT FLAG 
BGNSUB; 
CLR_MBUS; 
DODO_FLG = ZERO; 
FIRST_BLK_XFER (); 'SET UP A FIRST BLOCK XFERR 
MLCS1 = write: 'DO A WRITE FUNCTION 
if .GO IS_NOT_SET 'LJEE IF THE GO IS SET 
then 


begin ‘ERROR IF NOT SET 
ERRDF (24, ASYNC, DUMPER); 
PRINTS (FIV_FMT, WRD_1, PHR_1, WRD_12, FNC_S, WRD_19); 


4 -DRY IS_NOT_SET !SEE IF DRY SET WITH GO CLEAR 
en 


begin 
ERROF (25, ASYNC, DUMPER); 
PRINTB (Fiv_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 


end; 
BOPULFLE = ONE; !SET DODU_FLG 
else 'GO IS SET DURING FUNCTION 
1) ad IS_SET 'SEE IF DRY CLEAR WITH GO SET 


peain 'ERROR IF SET 
ERRDF (26, ASYNC, DUMPER); 

PRINTB (FIV_FMT, WRD_2, PHR_2, WRD_43, WRD_1, PHR_S); 
DODU_FLG = ONE; 


if .ILF IS_SET 'DID FUNCTION CAUSE ILF 
then 


SEQ 0229 


40 
we 


Dab 


ce et me ak et tk ad wd as et od ns ot on 2 St 2 as SS ot I St 2s I SS SI 2 SS 2 SI SS os 2 I os SS I a 





2 
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SEQ 0230 
0283 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 V2(212) 
0284 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (64) 
0286 5 begin . 'ERROR IF YES 
0287 5 ERRDF (27, ASYNC, DUMPER); 
0288 PRINTS (FIV_FMT, WRD_3, PHR_5, WRD_12, FNC_S, WRD_19); 
0289 end; 
$594 if .OPI IS_SET 'DID FUNCTION CAUSE OPI 
029 then 
029 ‘ERROR IF YES 


begin 
ERRDF (28, ASYNC, DUMPER); 
PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_5, WRD_19); 


5 


SOD NAUSWN $9 OONAULSWIN—O Oo 


3 550 
3 550 
3 551 
$ 551 
3 551 
3 551 
3 551 
3 551 
; 551 
0996 : 23 - 
° end; 
0297 ; 551 
0298 ; 228 DELAY (FRTY_US); 'WAIT FOR XFERR TC COMPLETE 
0300 ; 225 if .DRY IS_NOT_SET 'SEE IF DRY CLEARED AFTER XFERR 
0301 ; 55 then 
Sane 3 552 begin 
0303 ; 552 
0304 ; 552 if .GO IS_SET 'TST GO CLR IF DRY NOT SET 
0305 ; 552 then 
0306 ; 552. begin 
4 ; 236 CLR_MBUS; 'CLEAR GO IF STILL SET 
tts 3 223 if .GO IS_SET then ERRDF (29, ASYNC, DUMPER) else ERRDF (30, SYNC, DUMPER): 
0311 ;: 2238 'TST GO TO DETERMINE FAILING MOD 
O31¢ : 5534 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 
0313 ; 5535 end 
0314 ; 5536 else 'DRY NOT SET AND GO CLEARED 
0315 ;: 5537 begin 'REPORT ERROR 
os18 s 5538 ERRDF (31, ASYNC, DUMPER); 
0317 ; 5539 PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_11, FNC_5, WRD_19); 
0318 ; 5540 end; 
0319 ; 5541 
0320 ; 2366 DODU_FLG = ONE; 'SET DODU_FLG 
0321 ; 554 end; 
O356 3 5544 
0323 ; 5545 if .GO IS_SET 'SEE IF GO CLEARED AFTER XFERR. 
0324 ; 5546 then 
0325 ; 5547 begin 
0355 3 2208 CLR_MBUS; 'CLEAR GO IF STILL SET 
0398 3 3220 if .GO IS_SET then ERRDF (32, ASYNC, DUMPER) else ERRDF (33, SYNC, DUMPER); 
0340 3 2236 'TST GO TO DETERMINE FAILING MOD 
0331 ; 555 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_5, WRD_19); 
0335 : 5554 DODU_FLG = ONE; 
0333 ; 5555 : 
0334 ; 2228 
0335 ;: 5557 ENDSUB; 
O39 3 2328 
0337 ; 5559 if .TRE IS_SET 'SEE IF XFERR CAUSED A TRANSFER ERROR 
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begin 
ERRDF (115 
PRINTB ( 


NTB (SIX_FMT, WRD_61, 
end; 


if .DODU_FLG IS_SET 
then 


pogin 
DODU (.ML_LUN); 
DOCLN; 


end; 


ENDTST; 


146774 


156132 


156114 


156034 
156026 


156016 


$T14: 
1$: 


14-May-19 
14-May-1981 


. INTER, DUMPER) ; 


!DROP THIS UNIT IF DODU_FLG SET 


.SBTTL $114 
JSR R1,$SAVE2 
TST -(§P) 
TRAP = 2 
BISB #40,aML.REG+40 
MOV bur Ri 
BIC #177770,R1 
BICB = #7, AML. REG*40 
BIS R1.aML.REG+40 
JSR PC, FIRST.BLK.XFER 
MOV #61, @ML REG 
BITB #1, aML.REG 
BNE $ 
TRAP 5 
.WORD 30 
“WORD ASYNC 
“WORD DUMPER 

V #WRD.19,-(SP) 
MOV #FNC.5,~(SP) 
MOV D.12,-(SP 
MOV 1,7 
MOV #WRD.1 


-(SP) 
MOV #FIV.FAT,=(SP) 
MOV #6,-(SP) 
MOV “RO 

TRAP 4 

BITB #200, aML.REG+50 
BNE 4 


TRAP 5 
-WORD 31 


13:68:35 
13:05:08 
, !REPORT ERROR IF SET AND CONTINUE TESTING 
WRD_20, PHR_5, WRD_12, FNC_5, WRD_19); 


DODU.FLG 


SP,* 


TOPS=20 Bliss-16 V2(212 
PA: <NEALE>ML4.BL1.7 (¢ 


SEQ 0231 


5487 
5490 
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$T14 SEQ 0232 
10395 ZML4 14-May-1981 13:48:54 TOPS 
i S : 14-May-1981 13:05:08 PA:< 
10398 035214 010464 .WORD ASYNC 
10399 035216 024060 “WORD DUMPER 
10400 035220 012746 007504 MOV #PHR.6,-(SP) 5491 
10401 035224 012746 006276 MOV #WRD.1.=(SP) 

10408 035 012746 006754 MOV =: #WRD. 65, = (SP) 

10403 035234 012746 007366 MOV #PHR.1,-(SP 

10404 035240 012746 006302 MOV D.2,-(SP) 

10405 635244 012746 00606 MOV #F IV. FAT, =(SP) 

10406 035250 012746 000006 MOV (SP) 

10407 035254 815600 MOV SP. 

10408 035256 104414 TRAP ‘14 

10409 035260 062706 000016 ADD #16,SP 5489 
10410 035264 900427 BR 3 5494 
10411 035266 105777 155732 2s: TSTB = @ML. REG+50 5498 
ose 035272 100030 BPL 4$ 

10413 035274 104455 TRAP ‘455 5501 
10414 035276 000032 «WORD 32 

10415 035 010464 “WORD ASYNC 

10416 035302 024060 “WORD DUMPER 

10417 035304 012746 007472 MOV #PHR.5,-(SP) 5502 
10418 035310 012746 00627 MOV #dRD.1.=(SP) 

10419 035314 012746 006754 MOV MRD. 43,-(SP) 

10420 035 012746 007404 MOV 2" 

10421 035324 012746 006302 MOV 2.7 

10422 0353 012746 00606 MOV #FIV.FAT,-(SP) 

10423 035334 012746 MOV #6,-(SP) 

10424 035340 010600 MOV SP. 

10425 035342 104414 TRAP —s-_‘14 

10426 035344 012702 000001 3S: MOV #1,R2 5503 
10427 035350 062706 000016 ADD #16,SP 5500 
10428 035354 132777 000001 155652 4$: BITB #1,aML.REG+60 5506 
10429 035362 001426 BEQ 5% 

10430, 035364 10445 TRAP «55 5509 
1043T 035366 000033 .WORD 33 

10438 035370 010464 “WORD ASYNC 

10433 035372 024060 “WORD DUMPER 

10434 035374 012746 006506 MOV MRD. 19,=(5P° 5510 
10435 035400 012746 007774 MOV #FNC.5, (SP) 

10436 035404 012746 00642 MOV -18,-(SP) 

10437 035410 012746 4 MOV -367(SP) 

10438 035414 012746 314 MOV #WRD.3,-(SP) 

10439 035420 012746 006062 MOV #FIV.FAT,-(SP) 

10440 035424 012746 000006 MOV #6,-(SP) 

10441 035430 010600 MOV SP>R 

19448 038484 O55706 000016 i es 
10444 035440 $9370 020000 155566 5$: BIT #20000, am .REG+60 aan8 
10445 039446 1426 BEQ 

10446 035450 1044 TRAP 5516 
10447 035452 000034 WORD 

10448 035454 10464 “WORD ASYNC 

10449 035456 024060 “WORD  DUMPER 
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CZMLACO ML-11 LOGIC TEST 
$114 SEQ 0234 
10507 3ML4 14-May-1981 13: TOPS 
10508 : 14-May-1981 13: PA:< 
10510 035724 024060 . WORD ER 
10511 0357 91 46 006506 MOV #WRD.19,-(SP) : 5539 
05i¢ 0357 12746 007774 MOV #FNC.5,-(SP) 
10513 035 012746 006416 MOV -11,-(SP) 
10514 035742 012746 007366 MOV -1,=(SP) 
10515 035746 012746 906302 MOV .2,°(SP) 
10516 03573¢ 012746 00606 MOV #FIV.FAT,=(SP) 
10517 035756 012746 000006 MOV (SP) 
10518 035762 010600 MOV °R : SP,* 
10519 035764 104414 TRAP 
10520 035766 12702 000001 14$: MOV #1,R2 : *,DODU.FLG 5542 
10521 035 206 000016 ADD #16,SP : 5524 
105¢¢ 035776 132777 000001 155150 15$:  BITB #1,aML.REG : 5545 
105 Sse00e 001455 BEQ 18$ 
10524 036006 152777 0 155200 BISB #40,aML.REG+40 : 5547 
10525 036014 016701 155562 MOV mL .bUT Ri 
10526 936020 042701 177770 BIC #177770,R1 
10527 036024 142777 7? 155162 BICB ss #7 , AML. REG*40 
10528 036032 150177 155156 BI1SB8 =—R1. aML.REG*+40 
10529 036036 132777 1 155110 BITB #1.aML.REG : 5550 
10530 036044 001405 BEOQ 168 
10531 036046 104455 TRAP ss 5 
10532 036050 000040 .WORD 40 
10533 036052 010464 “WORD ASYNC 
10534 036054 024060 “WORD  DUMPE 
10535 036056 000404 BR 17$ 
10536 036060 104455 16$: TRAP 55 
10537 036062 000041 .WORD 41 
10538 036064 010526 “WORD SYNC 
10539 036066 024060 "WORD DUMPER 
10540 036070 012746 006506 17$: MOV D.19,-(SP) ; 5553 
10541 036074 012746 007774 MOV #FNC.5,-(SP) 
1054¢ 036100 012746 006416 MOV D.11,-(SP 
10543 036106 012746 007404 MOV 2.7 
10544 036110 012746 006276 MOV .1,- 
10545 036114 012746 006062 MOV #FIV.FAT,-(SP) 
10546 036120 012746 MOV = (SP) 
10547 036124 010600 MOV * : SP,* 
10548 036126 104414 TRAP 
10549 036130 012702 000001 MOV #1,R2 : *,DODU.FLG 
10550 036134 062706 000016 ADD #16,SP : 
10551 036140 10446 18$: TRAP 67 F 
1055¢ 036142 006000 ROR RO 
10553 036144 105002 BHIS 19$ 
10554 036146 00016 176700 JMP 1$ 
10555 036132 032777 040000 154774 19$: BIT #40000, aML.REG : 
10556 036160 001430 BEQ 0$ 
10557 036162 104455 TRAP 5 ; 
10558 036164 000163 .WORD 163 
10559 036166 010672 “WORD INTER 
10560 036170 02406 “WORD DUMPER 
10561 036172 012746 006506 #WRD. 19, =(SP) : 
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14 SEQ 0235 

10563 3ML4 14-May-1981 13:48:54 TOPS 
103¢4 3 \a-nay 1981 1 ‘08:08 PA:< 
19206 76 12746 7774 MOV #FNC.5,=(SP) 

1056 1276 MOV BRD. Je, (SP) 

1928 1274 4 MOV #PHR.5,=(SP) 

10569 12 01274 514 MOV #WRD.20,-(SP) 

105 18 1 174 MOV MWRD. (SP) 

10571 1 109 MOV #SIX_EME (SP) 

FC 4 1 MOV #7,- 

1057 1 MOV SP RO ; SP,* 

10574 104414 TRAP 14 

10575 33 000020 ADD eee 3 5561 
Ia 4 si 30 208: DEC R 3; DODU.FLG 5566 
105 44 1004 BNE 21$ 

10578 036246 0167 155326 MOV ML.LUN,RO ; 5569 
10579 52. 104451 TRAP 51 

10580 54 104444 TRAP 44 

10581 56 goose 218: TST (SP)+ : 5454 
ee | 036260 000 RTS PC 

1058 

10584 3; Routine Size: 327 words 

19383 3; Maximum stack depth per invocation: 18 words 

10591 

10595 

10596 -SBTTL T14 

10600 prete: T14:: 

10601 Bese 767 176556 1$: JSR PC,$T14 : 5571 
en 4 036266 104466 TRAP 66 

10603 036270 ROR RO 

10604 3 72 10377 BLO 1$ 

Hs 36274 00020 RTS PC 

10607 ; Routine Size: 6 words 

et 3; Maximum stack depth per invocation: 0 words 

10614 

10615 ; 5574 !<BLF/PAGE> 
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CZMLACO ML=11 LOGIC TEST 
T14 SEQ 0236 

10617 :ML4 14-May-1981 13:4 :54  TOPS=20 Bliss-16 v2(212) 

10618 : 14-May-1981 :08 § PA:<NEALEDML4.BL1.7 (65) 

1 : 5575! 

10621 : 2576 i 

1 é : 23 BGNTST; 

1 : 578 

10624 ; 5579 4+ 

10625 ; 5580 | TEST NUMBER: TSi 15 

10626 : 3381 i 

1062 fi: 382 i TEST NAME: READ FUNCTION TEST 

10699 : $384 i TEST DESCRIPTION: 

10630 ; 585i 

10631 : 5586 i TEST IF THE DRIVE CAN PERFORM 

10632 : 5587 A READ FUNCTION WITHOUT 

10633 : 5588 i HANGING THE DRIVE. 

10634 ; 5589 | 

10635 : 5590 i A READ FUNCTION IS WRITTEN 

10636 ; 5591 | INT 0 MLCS1 

10637 ; $206 ! 

10638 : 5593! THEN GO AND ERROR BITS ARE 

10639 : 5594 | CHECKED FOR CORRECT STATES. 

10640 : 5595 | 

10641 : 5596 i-- 

1064 : 5597 

10643 ; 5598 cal 

10644 ; 5599 DODU_FLG; !DROP UNIT FLAG 

10645 : 5600 

10646 : 5601 BGNSUB; 

10647 : 608 CLR mus: 

10648 : 5603 DODO_F.G = ZERO; 

10649 : 5604 PIRST. Pack. “FER UO: 'SET UP A FIRST BLK XFERR 

10650 ; 5605 MLCS1"= read; iDO A READ FUNCTION 

1065¢ : 3609 if .GO IS_NOT_SET 'SEE IF GO GOT SET 

10653 ; 5608 then 

10654 : 5609 begin ‘ERROR IF CLEAR 

10655 : 5610 ERRDF ASYNC, DUMPER) : 

10656 : 3611 PRINTB rive FMT, WRD_1, PHR_1, WRD_12, FNC_6, WRD_19); 

10658 : $i if .DRY IS_NOT_SET 'TST DRY SET WITH GO CLEAR 

10659 : 614 then 

10660 : 615 begin ‘ERROR IF NOT SET 

10661 : 3616 ERRDF (35, ASYNC, DUMPER); 

10662 ; 561 PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 

10663 ; 5618 end; 

10664 : 3619 

10665 : 0 DODU_FLG = ONE; 'SET DODU_FLG 

19666 3 5621 end 

10667 ; 56. § else 'GO BIT GOT SET 

10669 : 2857 if .DRY IS_SET 'SEE IF DRY IS CLEAR 

10670 ; 2 5 then a 

1oo7> tMLG ° ete ibemey-1981- 13:48:54 TOPS-20 Bliss-16 V (2129 

é 8 —_ s om 
10673 : ena ‘oei88 PA: <NEALEDAL4.BLI 
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ERRDF (36, ASYNC, DUMPER); 
PRIN 73 (Flv EAT. "WRD_2, PHR_2, WRD_43, WRD_1, PHR_5); 
DODU_FL 
end; 
it. .ILF IS_SET 'DID FUNCTION CAUSE ILF 
begin ‘ERROR IF YES 
ERRDF (37, ASYNC, DUMPER); 
PRINTB (FIV_FMT, WRD_3, PHR_5, WRD_12, FNC_6, WRD_19); 
end; 
it. .OPI IS_SET !DID FUNCTION CAUSE OPI 
begin ‘ERROR IF YES 
ERRDF (38, ASYNC, DUNPER) 
PRINTS (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_6, WRD_19); 
eng; 
DELAY (FRTY_US); 'WAIT FOR XFERR TO COMPLETE 
if. DRY IS_NOT_SET 'IS DRY SET AFTER XFERR 
begin 
if .GO IS_SET 'TEST GO CLEAR WITH DRY NOT SET 
en 
begin 
LR_MBUS; ‘CLEAR GO 


if .GO IS_SET then ERRDF (39, ASYNC, DUMPER) else ERRDF (40, SYNC, DUMPER); 
!TST GO TO DETERMINE FAILING MOD 


PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_6, WRD_19); 
e 
else 'GO BIT CLEAR WITH DRY NOT SET 
begin ‘REPORT ERROR 
ERRDF (41, ASYNC, DUMPER); 
PRINTE (Fiv_FMT, WRD_2, PHR_1, WRD_11, FNC_6, WRD_19); 
end; 
DODU_FLG = ONE; 'SET DODU_FLG 
end; 
if G0 IS_SET 'SEE IF GO CLEAR AFTER XFERR 
penta 
CLR_MBUS; ‘CLEAR GO IF STILL SET 
if .GO IS_SET then ERRDF (42, ASYNC, DUMPER) else ERRDF (43, SYNC, DUMPER): 
‘TST GO T ,PETERMINE FAILING 
14-May-19 334 TOPS-20 Bliss-16 V (21 ) 
14-May-19 : 13:05:08 § PA:<NEALE>ML4.BL1.7 (65) 
PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_6, WRD_19); 


SEQ 0237 


ee 


3 
MLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 5432 


(7 
T14 SEQ 0238 
10731 ; 680 DODU_FLG = ONE; 
10732 ; o1 end; 
10733 ; $ 
19088 3 +1 eget 
107 ; 685 if .TRE IS_SET !SEE IF XFERR CAUSED A TRANSFER ERROR 
e en 
107 : seer begin 'REPORT ERROR IF SET AND CONTINUE TESTING 
10739 : ERRDF (116, INTER, DUMPER); 
10740 ; 5689 PRINTB (SIX_FMT, WRD_61, WAD_20, PHR_5, WRD_12, FNC_6, WRD_19); 
10741 : 5690 DODU_FLG = ONE; 
10742 : 5691 end; 
10743 ;: 569 
10744 ; 569 if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG SET 
10745 : 5694 then 
10746 : 5695 begin 
10747 : 5696 DOBDU (.ML_LUN); 
107: ; 569 DOCLN; 
10749 ;: 5698 end; 
10750 : 699 
10751 : 00 ENDTST; 
10755 
10756 .SBTTL $115 
10760 036276 004167 145542 $715: JSR R1,$SAVE2 : 5573 
10761 036302 005746 ST -(§P) 
1076¢ 0 104408 1$: TRAP = 2 : 5599 
10763 0 306 1527 900049 154700 BISB #40,aML.REG+40 : 5601 
10764 036314 016701 15526 MOV ML bur R1 
10765 036 04 201 177770 BIC #177776,R1 
10766 036324 142777 000007 154662 BICB #7 ail .REG*4O 
10767 036332 150177 154656 BISB R1.aML.REG+4 
10768 0 905002 CLR R : DODU.FLG 5603 
Hy Za 0 0 0047 157474 JSR fs FIRST.BLK.XFER 3 
10 9 O12 000071 154602 MOV #71, aML.REG ; 5405 
10771 52 132777 000001 154574 BITB #1, aML.REG ; 5607 
10772 0 1057 BNE ¢ 
107 0 104455 TRAP 5 : 5610 
10774 2 «WORD 42 
10775 0 10464 “WORD ASYNC 
10776 24060 “WORD  DUMPER 
10 72 012746 506 V #WRD.19,-(SP) ; 5611 
10778 76 12746 01 MOV HENC. 6 =(SP) 
19760 15966 $ MOV B.12,7 5. 
10781 8 98 12746 358 MOV MWRD.1.=(SP) 
1078 IML4 14-May-1981 1 :48:54 TOPS 
10784 3 14-May-1981 13:05:08 PA:< 
10785 036416 012746 062 MOV #FIV.FMT,=(SP) 
10 § O15 746 taitaird MOV  #6,-<SP) 
10 1 MOV RO 3; SP,* 
10 104614 TRAP 4 
\ 789 1 a777 000200 154564 178 S prameeres : 5613 
i date se i : 
19798 46 prosee ;WORD  ASYNC 
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10794 5 
10795 

10 
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i338 

10800 is 
10801 50. 
1 5 
1080 3 
10804 ° 1 
2 3] 
18s Sst 
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10810 0365 
10814 5 
4 5 
1081 

10814 0 
10815 03655 
i A 036556 
10817 036562 
10818 ose 
10819 03657 
10820 036574 
10821 036576 
10858 036602 
10825 0 
10824 8 14 
hs 544 Bee se 
1 036622 
1; Hie 
a 
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154420 


154334 


2$: 


3$: 
4$: 


3ML4 


‘MFIV. 


#PHR 

#WRD.2.=(SP) 

#F IV.FAT,=(SP) 
-(SP) 


#16,SP 
#1, ML .REG+60 


#WRD.3,-(SP) 

FAT, -(SP) 
#6,-(SP) 

RO 


14 

#16,SP 

" atenrnate 
46 


SP,* 


; SP,* 


* ,DODU.FLG 


SP,* 


14-May-1981 1 
14-May-1981 1 


3: 


SEQ 0239 


5617 


48:54 
05:08 
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154212 
154132 
154162 


154144 
154072 


9$: 


11$: 


13$: 


#PHR.5,=(SP) 
#WRD.4.=(SP) 
#FIV.FAT,=(SP) 
#6,-(SP) 


4 ge-GM. .REG*S0 
#1, @ML.REG 
#40, QML .REG*+40 


#FIV.FAT,-(SP) 
+ Se ae 


#WRD.11,~(SP) 
#PHR.1,~(SP) 


SP,* 


*,SSTMP2 
*,SSTMP1 


SSTMP 
SSTMP1 


; SSTMP2 


SP,* 


SEQ 0240 


14-May-1981 13:48:54 
14-May-1981 13:05:08 
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H 3 
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$71 SEQ 0241 
: SP,* 


12746 302 #WRD.2,-(SP) 
746 #FIV.FAT,=(SP) 
7% #6,-(SP) 
SP RO 
4 
: *,DODU.FLG 5668 


ADD 
153716 : : 
E 18$ 
153746 8 
MOV 
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PSeosre 
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SP.RO ; SP,* 


1 
#1,R2 > *,DODU.FLG 
#16,SP : 


Sooooooooo 
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SEQ 0242 
10965 037464 010600 MOV SP RO 3; SP,* 
108 3 ress 104414 TRAP 
1096 74 012702 000001 MOV #1,R2 3 *,DODU.FLG 5690 
10968 037474 706 000020 ADD #20,SP ; 5687 
1Oee? 037500 005302 20S: DEC & 3; DODU.FLG 5693 
10970 037502 001 BNE 21$ 
10971 037504 0167 154070 MOV ML.LUN,RO 3 5696 
ere 0 7319 104451 TRAP 51 
10973 037512 104444 TRAP 44 
10974 037514 005726 21$: TST (SP)+ F 5573 
+e 037516 000207 RTS PC 
19979 3; Routine Size: 329 words 
444 3; Maximum stack depth per invocation: 18 words 
10984 
10988 
10989 -SBTTL 115 
10993 0375 T15:: 
10994 037520 004767 176552 1$: JSR PC,$T15 3 5698 
10995 037524 104466 TRAP 66 
10996 037526 000 ROR 
10997 0375 10377 BLO 1$ 
10998 037532 207 RTS PC 
10999 
11000 3; Routine Size: 6 words 
11001 ; Maximum stack depth per invocation: 0 words 
1 sML4 14-May-1981 13:48:54 TOPS 
1100 3 14-May-1981 13:05:08 PA:< 
11004 
11009 
11010 
11011 ; 5701 !<BLF/PAGE> 
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eek et at tt ot ot = ot Sh os SS tn SS SS 2 a SS SS St Sh oh Ot SS SS ss Ss SS = SS 2g SS SS es SS SS SS SS SY ss La a 
a a a a ae a a a a a a a a a a a a a rer 
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SEQ 0243 
013 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
O14 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1.7 (66) 
016 ;s $702 ' 
017: 5703 ®GNTST; 
018 : 5704 
019 ; 5705 !+4 
920 ; 3206 i TEST NUMBER: TST 16 
02@ 3 3708 TEST NAME: | CLEAR FUNCTION TEST 
024 : 5710 | TEST DESCRIPTION: 
023 3 321] TEST IF THE DRIVE CAN PERFORM A CLEAR FUNCTION WITHOUT HANGING THE DRIVE. 
027 ; ae ! A CLEAR FUNCTION IS WRITTEN INTO MLCS1. 
029 : 5715 THEN GO AND ERROR BITS ARE CHECKED FOR CORRECT STATUS. 
930 ; 5716 ; THIS DRIVE 1S DROPPED ON DETECTED ERRORS. 
032 ; 5718 ie 
033 ; 5719 
034 ; 3750 local 
035 ; 3721 DODU_FLG; !DROP UNIT FLAG 
037: 2788 SUB; 
038 : 5724 CLR_MBUS: 
039 : 5725 DODO_FLG = ZERO; 
040 : 5726 MLER™= ONES; 'SET BITS IN ERROR REGISTER 
041 : 5727 MLCS1 = DRV CLR: iDO A CLEAR FUNCTION 
Ose : 2758 DELAY (ONE_OS); 'DELAY 
044 3 3730 if 60 IS_SET 'SEE IF GO CLEARED AFTER FUNCTION 
046 : 5732 begin ‘ERROR IF SET 
047 : $733 ERRDF (44, ASYNC, DUMPER): 
048 ; 5734 PRINTB (FIV_FMT, WRD_1, PHR_S, WRD_11, FNC_3, FNC_7, WRD_19); 
030 3 3736 if -oRY 1S_SET 'TST DRY CLEAR WITH GO SET 
052 : 5738 begin ‘ERROR IF SET 
O3g : $739 ERRDF (45, ASYNC, DUMPER): . 
054 3 5740 PRINTB (FIV_FMT, WRD_2, PHR_S, WRD_43, WRD_1, PHR_5); 
056 : 574 ‘ 
037 3 S748 DODU_FLG = ONE; 'SET DODU_FLG 
059 3 574s else 'GO CLEARED AFTER FUNCTION 
061 ; S74 if -oRY 1S_NOT_SET 'TST DRY SET WITH GO CLEAR 
068 : ares begin ‘ERROR IF NOT SET 
064 : 3730 ERRDF (46, ASYNC, DUMPER); 
065 ; 751 PRINTB (FIV_FMT, WRD_2, PHR_1, WRD_43, WRD_1, PHR_6); 
066 ; 2736 DODU_FLG = ONE; 
067 : 575 end; 


———_ 
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SEQ 0244 
11069 ZML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
11070 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (66) 
1107 : 5754 
11073 : 5755 if .ILF IS_SET 'DID FUNCTION CAUSE ILF 
11074 : 5736 then 
11075 : 575 begin 'ERROR IF YES 
11076 : 5758 ERRDF (47, ASYNC, DUMPER); 
11077 : 5759 PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_12, FNC_3, FNC_7, WRD_19); 
11078 ; 5760 end; 
11079 : 5761 
11080 : 3768 if .OPI IS_SET 'DID FUNCTION CAUSE OPI 
11081 ; 5763 then 
11082 : 5764 begin 'ERROR IF YES 
11083 : 5765 ERRDF (48, ASYNC, DUMPER); 
11084 : 3766 PRINTB (FIV_FMT, WRD_4, PHR_5, WRD_12, FNC_3. FNC_7, WRD_19); 
11085 ; 576 end; 
11086 : 5768 
11087 : 5769 if .MLER neq ZERO 'TEST ERROR REGISTER FOR CLEAR 
11088 ; 5770 then 
11089 : 5771 begin 'ERROR IF NOT CLEAR 
11090 : o778 ERRDF (49, ASYNC, DUMPER): 
11091 : 577 PRINTB (SIX_FMT, FNC_3, FNC_7, WRD_19, WRD_14, WRD_13, REG_3); 
11092 ;: 5774 end; 
11093 : 5775 
11094 : 5776 ENDSUB; 
11095 : 577 
110% : 5778 if .DODU_FLG IS_SET '!DROP THIS UNIT IF DODU_FLG SET 
11097 : 5779 then 
11098 ;: 5780 poate 
11099 : 5781 DOBU (.ML_LUN); 
11100 : 578 DOCLN; 
11101 ; 578 end; 
11102 : 5784 
11103 : 5785 ENDTST: 
11107 
11108 .SBTTL $116 
W111e 037534 004167 144304 $116: JSR R1,$SAVE2 : 5700 
11113 037540 00574 TST -(§P) 
11114 037542 10440, 1$: T F 5721 
11115 037 152777 000040 153442 BISB #40,aML.REG+40 : 5723 
11116 037552 916701 154024 MOV mt bur R1 
11117 03755 701 177770 BIC #177776,R1 
11118 037562 142777 7 153424 BICB =: #7, AML. REG+40 
11119 037570 150177 153420 BISB  R1.aML.REG+40 
11120 037574 905002 CLR R2 : DODU.FLG 5725 
11121 037576 012777 177777 153430 MOV 4-1, @ML.REG+60 ; 5726 
111¢¢ 037604 012777 000011 153342 MOV #11, aML.REG ; 5727 
11123 037612 012700 000001 MOV #1,R0 >, SSTMP2 5728 
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4$: 
153306 5$: 


6$: 
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254 TOPS 
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SEQ 0246 
181 ZML4 14-May-1981 13:48:54 TOPS 
is : 14-May-1981 13:05:08 PA:< 
184 940054 012746 007366 MOV #PHR.1,<(SP) 
186 Geode O19746 BOCdES HOY APIV FAT a(eP) 
189 hit oI 746 000006 MOV #6,-(SP) 
188 040074 010600 MOV “RO : SP,* 
189 040076 104414 TRAP ‘14 
190 040100 012702 000001 MOV #1,R2 : *,DODU.FLG 5752 
191 040104 706 000016 ADD #16,SP : 5749 
198 040110 132777 000001 153116 8$: BITS #1,aML.REG+60 : 5755 
193 040116 001430 BEQ 9$ 
194 940120 104455 TRAP = 55 : 5758 
195 040122 000057 .WORD 57 
196 040124 010464 “WORD ASYNC 
197 0401 924060 “WORD  DUMPE 
198 0401 O12 46 506 MOV #WRD.19,-(SP) ; 5759 
199 040134 012746 010012 MOV #FNC.7,-(SP) 
200 040140 012746 007750 MOV #FNC.3,-(SP) 
201 040144 012746 006426 MOV MRD. 12,-(SP) 
302 040150 012746 007472 MOV #PHR.5,- 
040154 012746 006314 MOV #WRD.3,-(SP) 
204 040160 012746 006062 MOV #F IV. FAT, -(SP) 
205 040164 012746 00000 MOV #7, =( 
206 040170 010600 MOV SP.RO : SP,* 
207 040172 104414 TRAP ‘(14 
208 040174 062706 000020 ADD #20,SP : 5757 
209 940200 032777 020000 153026 9S: BIT #20000, am .REG+60 : 5762 
210 04 001430 BEQ 10$ 
211 040210 104455 TRAP =s-«4555 : 5765 
212 o40e12 000060 .WORD 60 
213 040214 010464 “WORD  ASYNC 
214 040216 024060 “WORD DUMPER 
215 040220 012746 0065 MOV #WRD.19,-(SP) ; 5766 
26 040 3 012746 01001 MOV #FNC.7,~(SP) 
217 040 012746 00775 MOV #FNC.3,-(SP) 
218 040234 oI 746 006426 MOV D.12,-(SP) 
219 040240 01 007472 MOV #PHR.5,=( 
220 040264 oI 00632 MOV MRD. 4. =( 
221 040250 01 00606 MOV #F1V.FAT, -(SP) 
32¢ 040254 01 00000 MOV #7,-(S 
23 040260 01 MOV SP.RO : SP,* 
334 04 62 104 TRAP ‘14 
5 040 64 062 000020 ADD #20,SP F 
326 040270 00 152740 10$: TST *REG+60 : 
27 040274 00 BEQ 11 
359 040900 00006 TorD 8 ; 
2% 040302 01 “WORD ASYNC 
31 040 2 “WORD  DUMPER 
232 040 1 10274 MOV #REG. 3,-(SP) : 
SBS Wises Be my fa 13) 
35 $398 01 ened MOV #WRD.19.=(SP) 





—_ 
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3ML4 


goes ty 
a9 


000020 
11$: 


177152 JMP 
12$: 
153200 
13$: 


: Routine Size: 
3; Maximum stack 


177120 


3; Routine Size: 
: Maximum stack 


! <BLF /PAGE> 


#FNC.7,=(SP) 


ML.LUN,RO 
51 

44 

(SP)+ 

PC 


214 words 


depth per invocation: 


716 
PC,$T16 
6 


6 words 


depth per invocation: 


19 words 


0 words 


. SP,* 


; DODU.FLG 


14-May-1981 1 
14-May-1981 1 
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SEQ 0247 
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:05:08 
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SEQ 0248 
: ZML4 Jo-May-1981 1 48:54 TOPS-20 Bliss-16 vg (212) 
: 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (67) 
5; 5787 |! 
: 2788 BGNTST 
3 789 
: 3790 144 
; 23 i TEST NUMBER: TST 17 
1; 5798 i TEST NAME: DIAGNOSTIC REGISTER TESTS 
j : 5795 | TEST DESCRIPTION: 
; 3796 i TEST THE DATA DIAG REGISTERS MLD1, MLD2, MLE2 
: 5797! FOR 1°S/O0'S, SHIFTING 1°S/0°S AND INITIALIZATION 
306 ; 5798 | 
307 ; 5799 ine 
308 ; 5800 
309 ; 5801 local 
310 ; 380¢ CLR_DATA , 'CLEAR DATA FOR INIT TEST 
33 : 5803 SAVE , 'TEMPORARY SAVE LOCATION 
12 3: 5804 ERR_FLG , iERROR FLAG 
313; 5805 TST-PAT , iTEST PATTERN 
314: 5806 index , iPOINTS TO REGISTER PRESENTLY BEING TESTED 
315 : 5807 DODU_FLG; iDROP UNIT FLAG 
316 : 5808 DODU-FLG = ZERO; 
317 : 5809! 
318 : 5810 
319 : 5811! FIRST TEST THE REGISTERS FOR ONES AND ZEROES 
320 ; 3812 i , 
321: 5813 f 
32¢ : 3814 TST_PAT = ONES; 'LOAD TEST PAT WITH ONES } 
324 ;: 5816 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
ads 
355 ; 5819 incr REG_SEL from 11 to 13 do 'TEST ELEVEN WRITE/READ REGISTERS 
328 ; 5820 begin 
329 ; 5821 SUB; 
330 ; obs6 CLR_MBUS; 
331 ; 380 WRT-REG (.TST_PAT, .REG_SEL, index); ‘WRITE TO THE REGISTER 
33¢ : 28 4 RD_REG (.TST_PAT, .REG_SEL, ERR_FLG); ‘READ THE REGISTER 
335 ; 3896 if -ERR_FLG IS_SET 'SEE IF READ FOUND AN ERROR 
Py en 
36 : 58 g begin ‘IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
337 ; 58 ERRDF (121, ARR_DAT, DUMPER): \ARRAY DATA MODULE FAILURE 
338 ;: 5830 PRINTB (SIX_FMT, PHR_4, WRD_12, FNC_5, FNC_6, WRD 52, WRD_56); 
339 ; 5831 PRINTB (FMT-16, .ML_REG C. index, REGISTER_ADDJ, .QT_DATA,~.RD. DATA); 
340 ; 58 $ DODU_FLG = ONE; 
341; ater end; 
a8 3 58 
343 ; 33 5 ENDSUB; 
763 ; 4 end: 
346 : 58 TST_PAT = not .TST_PAT; ‘REPEAT AGAIN WITH COMPLIMENT DATA 
% ZML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 Vg (ele) 
8: 14-May-1981 13:05:08 | PA:<NEALE>ML4.BLI.?7 (67) 
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SEQ 0249 
308 5839 d aa 
: enc; 

51; 5840 . 7 

3g ; 5841! 

53: 2848 i 

34 ; 3843 TEST THE REGISTERS FOR SHIFTING ONES AND ZEROES 

56 : 5845 | 

357 ; 2846 TST_PAT = ONE; !LOAD TST_PAT WITH A 1 IN A FILED OF 0°S 
359 : 5848 incr SHIFT from 0 to 15 do 'DO SHIFT 16 TIMES 
300 3 reed begin 
36¢ : 5851 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
365 ; 5854 incr REG_SEL from 11 to 13 do 'TEST ELEVEN READ/WRITE REGISTERS 
366 ; 5855 begin 
367 : 5856 ; 
368 ; 5857 CLR_MBUS; 
369 : 5858 WRT-REG (.TST_PAT, .REG_SEL, index); ‘WRITE TO THE REGISTER 

370 ; 3859 RD_REG (.TST_PAT, .REG_SEL, ERR_FLG); iREAD THE REGISTER 
$e : 5861 if .ERR_FLG IS_SET 'SEE IF THE READ FOUND AN ERROR 

373 : 5862 then 

374: 5863 begin ‘IF THE ERROR FLAG IS_SET THEN ERROR 
375 : 5864 ERRDF (122, ARR_DAT, DUMPER); ‘ARRAY DATA MODULE FAILURE 

376 : 5865 PRINTB (SIX_FMT, PHR_4, WRD_i2, FNC_5, FNC_6, WRD 52, WRD_56); 

377 : 5866 PRINTB (FMT-16, .ML_REG C.index, REGISTER_ADDJ, .QT_DATA,~.RD. DATA); 
378 : 5867 DODU_FLG = ONE; 

379 ; 5868 end; 

380 ; 5869 
381; 5870 ENDSUB; 

385 3 5871 end; 
383 ; 2878 
384 ; 587 TST_PAT = not .TST_PAT; 'REPEAT WITH A 0 IN A FIELD OF 1°S 
385 ; abrs end; 

388 : 387 TST_PAT = .TST_PAT*ONE; ‘SHIFT THE 1 IN THE FIELD OF 0°S 

388 ; tA end; 

389 : 78 
390 ; 879 ! 

91; 880 ! 

3 ; ; 1 } NOW TEST THE REGISTERS FOR INITIALIZATION 
394 : 5 i 
395 : 5 REG_INIT_FLG = ONE; 
39 : 3 5 TST PAT = ONES; 'BACKGROUND PATTERN 
395 : 3 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
igo 9 aati 
401 : 3 90 incr REG_SEL from 11 to 13 do ‘TEST THIRTEEN R GISTERS 

40¢ ML4 14-May- 81 3:6 : TOPS-20 Bliss-16 V (212) 
405 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.?7 (67) 
405 ; 5891 begin 
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BGNSUB ; 


CLR_MBUS; 
WRT-REG (.TST_PAT, .REG_SEL 
CLR-DATA = (.Al) or (. 
REG_INIT_FLG 


RD_REG ( 


if .ERR_FLG IS_SET 
then 


peain 

ERRDF (118, ARR_DAT, DUMPER); 
PRINTS (FIV_FMT. 

PRINTB (FMT-16, .ML_REG 
DODU_FLG = ONE; 


TST_PAT = not .TST_PAT; 
end; 


REG_INIT_FLG = ZERO; 
if .DODU_FLG IS_SET 
then 


bg 
DODU (.ML_LUN); 
DOCiN; 


ENDTST; 
143466 


177777 
000013 


i 


1777 
00000 


152514 


000012 
162364 


000014 


152536 


152520 


-SBTTL 
JSR 


Prin 


IGNORE) 
= Py 
SCLR_DATA, .REG_SEL, ERR_FLG); 


$117 


4, WRD 


index); 


R1,$SAVE5 


-(SP) 
=(SP) 


o~ (SP) 


#13,R2 


#40, aML .REG*+40 


m SUT RS. 


#7, @ML.REG+40 


RS ,@ML .REG+40 
SP) 


on 


12, WRD : 
-index, RE 


SEQ 0250 


'WRITE REGISTER WITH BACKGROUND 
!CALCULATE THE CLEARED DATA PATTERN 


READ THE REGISTER FOR THE CLEARED DATA PAT 
'SEE IF READ FOUND AN ERROR 

'IF ERROR FLAG IS_SET THEN ERROR AND SET DODU_FLG 
PRENC OE. URD LSE): 

Gisten ADSI; CLR_DATA, .RD_DATA); 


!REPEAT WITH COMPLIMENT BACKGROUND PAT 


!CLEAR THE FLAG 
!DROP THIS UNIT IF DODU_FLG SET 


; DODU.FLG 
; *,TST.PAT 


; TWICE 
; *,REG.SEL 


14-May-1981 13:68: 38 
14-May-1981 13:05:08 


; TST.PAT,* 
; REG.SEL,* 
; INDEX,* 


; TST.PAT,* 
; REG.SEL,* 
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SEQ 0251 
; ERR.FLG,* 
11469 0405 1 ADD SP, (SP) : ERR.FLG, 
R PC‘RD.RE 
Wari 010580 4789 re bie 000001 tee bigpsnay : ERR.FLG,* 5826 
1147 ie: 1054 BNE $ one 
11058 040544 104455 TRAP 5 ; 
11474 beoee 171 «WORD 171 
11475 040550 0105 “WORD ARR.DAT 
11476 04055 eth “WORD DUMPER . aa 
1147s ougss4 Gia7t6 gorn22 Rov BuRD-56, (SP 1 
MOV #FNC.6,-(SP) 
11200 be0896 6} rie 4 4 MOV #FNC.5.=(SP) 
11481 040574 61 746 26 MOV #WRD.18,=(SP) 
11482 040600 012746 007454 MOV 4, =( 
11488 040604 0127 006100 MOV #SIX.FAT,=(SP) 
Habs SE iets a moe 12. 
TRAP «14° 
Wie ise Siecle 1h ta ce, , ne 
11488 be " bie 3 0 MOV 40(SP) ,RO : INDEX,* 
11490 040634 006 ASL R 
Hage Gebers 88 st 
11498 hire 01 013154 MOV ML.REG(RO) ,~(SP) 
1149% 04 012746 005216 MOV #FMT.16,-(SP) 
Has BESEE Gisay ibe my Bai 1. 
14° 
11496 b¢ 493306 000001 000042 nov #1,42(SP) : *,DODU.FLG 5832 
11499 hrs 4 Ses 000030 ADD #30,SP : 3828 
11500 040674 706 000012 38: ADD #12.SP : 3820 
11501 040 tvatts TRAP 67 : 
1308 San oo 
11804 $6076 H 20 INC 3 ; REG.SEL 5819 
11305 b40719 020227 000015 CMe R2,415 > REG.SEL,* 
148 : TST.PAT 58 
Hats Sle, Sate e i ike i 
11509 ue 20127 1 cn R1,41 > TWICE,* 
118 00000 ; *, TST.PAT 5846 
11511 040730 01270 1 #1,R3 3; *, TST. L acdeas taenan te Tl 
W318 tate 1a-mayn1981 1308208 bans 
i818 ; SHIFT 8 
11515 tier 005004 CLR R4 : SHIFT 4s 
516 0407 5001 : CLR R1 ; 
1817 Degree ta 000013 5$ mov #13,R2 ; REG. SEL B34 
W319 746 1939 152240 BISB #40,aML.REG+40 ; 856 
115 754 016705 T3963 sbUT. 
11521 040760 5 17 BIC # RS 
115 7 4 90000 152222 B1(tB o# -OAL .REG*40 
11398 Ore 3 MA 7 Raye RSn(38) : TST.PAT,* 5858 
11525 1008 } 246 MOV R2.=(SP) > REG.SEL.* 
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151670 


14 

RD.DATA, (SP) 

WT. DATA, (SP) 
40(SP) .RO 

RO 

RO 

ML.REG(RO) ,-(SP) 
#FMT.16,-(SP) 
#4,-(SP5 

SP,RO 

14 
#1,42(SP) 
#30,SP 
#12,SP 

67 


RO 
6$ 


R 

RS #15 
R 

R1 
R1,41 
5 

R 

R4 
R4,A17 
#1 REG. INIT.FLG 
#-i,R 


SEQ 0252 


; INDEX,* 


: TST.PAT,* 
: REG.SEL,* 


; ERR.FLG,* 
; ERR.FLG,* 


° SP,* 
; *,DODU.FLG 


14-May-1981 1 60:4 
14-May-1981 13:05:08 


; REG.SEL 
; REG.SEL,* 


; TST.PAT 


TWICE 


; TWICE,* 
; TST.PAT 
; SHIFT 

; SHIFT,* 


: *,TST.PAT 
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11599 041 
11600 041 
11601 041 
11088 041350 
116035 041354 
11604 8k v4 
He Be 
Hes Beis 
11608 041374 
11609 041400 
11610 041406 
11611 041410 
11616 041412 
11615 041414 
11614 04141 
11615 0414 
11616 041424 
11617 0414 
11618 041434 
11619 041440 
11620 041444 
1166) 041450 
11 g 

1162 

11624 

11625 041454 
11 145 
11 1 

i 8 ee 
116 Oc1a75 
11631 031878 
lo be 130 
11637 1504 
116 Be 1308 
11635 041514 
11636 15 
116 1524 
11638 0415 
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151724 


151706 


soe 000040” 
3 
1 10$: 


R4 

#13,R2 

#40 am ,Feeres 
gaa 1, 


RI 
REG+2(R1) RS 
REG+6(R1) RS 
REG. INIT.FLG 


#PHR.4,-(S 
#F IV.FAT,=(SP) 
#6,-(SP) 


$P.RO 
RD. DATA, (SP) 
ML. REG(R1),-(SP) 


#FMT.16,-(SP) 
#4,-(SP5 
RO 


#1,40(SP) 
#28..8 
#i2.sP 
67 


98 


TWICE 


; *,REG.SEL 


TST.PAT,* 
REG.SEL,* 


INDEX ,* 
INDEX ,* 


*,CLR.DATA 
*,CLR.DATA 


CLR.DATA,* 
REG.SEL,* 


ERR.FLG,* 
ERR.FLG,* 


SP,* 


CLR.DATA,* 


SP,* 
* ,DODU.FLG 


14-Ma 
14-May- 


SEQ 0253 


1H ast 
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000015 


000001 
151356 
000001 


152006 


000006 


176614 


! <BLF /PAGE> 


INC Rg 
CMP R2,415 
BLE G 
COM R 
INC RG 
CMP R4,#1 
BLE 
CLR REG. INIT.FLG 
CMP (SP) #1 
BNE 
MOV ML.LUN,RO 
TRAP 51 
TRAP 44 
11$: ADD #6,SP 
RTS PC 
3; Routine Size: 312 words 


3 Maximum stack 


-SBTTL T17 
T17:: 
1$: JSR PC,$T17 
TRAP 66 
ROR RO 
BLO 1$ 
sML4 
RTS PC 


; Routine Size: 6 words 


; Maximum stack depth per invocation: 


depth per invocation: 


26 words 


0 words 


ee 


REG. SEL 
REG.SEL,* 


TST.PAT 
TWICE 
TWICE ,* 


DODU.FLG,* 


14-May-198 
14-May-198 


1 
1 


1 
1 


SEQ 0254 
5890 


5911 
5887 


5914 
5916 
5919 


5785 


5921 


TOPS 
PA:< 
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~z 


a a ee a a em ee ee ed ee ee ee ee ee ee ee ee ed ed ed ed ed dd 
ee ec et ee ee ch ee a ed ec ee me ee ee ee ee ee ee ed ed ed ed ed dd 
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SEQ 0255 
692 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss=16 v2(212) 
638 : 1erey=1961 18508:08 Pare teone ero tab 
695 ; 5925 ! 
6% : 59 6 i 
697 : 5927 BGNTST: 
698 ; 3 8 
699 : 929 ++ 
£00 ; 3930 i TEST NUMBER: TST 18 
208 : 59 ; i TEST NAME: § COMPOSIT ERROR TEST 
703 ; 5933! 
704 ; 5934 | TEST DESCRIPTION: 
705 : 5935 | TEST TO SEE IF SETTING EACH 
706 ; 5936 BIT IN THE ERROR REGISTER 
£07 ; 2937 CAUSES A COMPOSIT ERROR BY: 
709 : 5939 | WRITING A SHIFTING ONE THROUGH 
710 ; 5940 | THE ERROR REGISTER (SKIPPING THE 
711: 5941 | READ ONLY BITS) AND TESTING THE 
ag : 5948 i COMPOSIT ERROR BIT IN MLDS 
713: 5943 | FOR BEING SET AFTER EACH 
714 : 5944 | WRITE. 
715 : 5945 I 
716 : 5946 ine 
717: 5947 
718 ; 5948 cal 
719 : 5949 DODU_FLG, 'DROP UNIT FLAG 
720 ; 5950 DAT_PAT, 'DATA PATTERN 
721: 5951 SKIP_MASK; iPOINTS TO MLER READ ONLY BITS 
rs¢ 3 a4 
723 : 5953 CLR_MBUS: 
726 : 5954 DODO_FLG = ZERO; 
res : 5955 SKIP"MASK = %0'163157'; 'LOAD SKIP MASK 
726 : 5956 DAT _PAT = ONE; iDATA PATTERN SET BIT 0 IN MLER 
re? ; 2957 DODU_FLG = ZERO; 
169 : 5959 incr COUNT from 0 to 15 do ‘WRITE AND SHIFT DATA PAT TO MLER 16 TIMES 
rae i 2504 oie 
732 : 5962 if (.DAT_PAT and .SKIP_MASK) neq ZERO ‘SKIP IF DAT_PAT FALLS ON READ ONLY BIT 
733; 596. then 
734; 5964 begin 
733 ; 2969 BGNSUB; 
736 : 3966 MLER = .DAT_PAT; ‘WRITE DATA_PAT TO MLER 
738 : 5968 if .COMP_ERR IS_NOT_SET 'SEE IF DAT_PAT CAUSED A COMP ERROR 
739 : 3969 then 
740 ; 970 beain 
741 : 5971 ERRDF (50, ASYNC, DUMPER);: ‘ERROR IF NO COMP ERROR 
76e ; 597, PRINTB (FOR_FMT, FNC_8, PHR_1, WRD_12, FNC_8); 
743 ; 97 PRINTB (FMT~4, .DAT_PAT); 
74h : 97% DODU_FLG = ONE; 
745; 5975 end; 
746 : 5976 
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SEQ 0256 
14-May-1981 13° 254 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (68) 
ENDSUB: 
end; 
DAT _PAT = .DAT_PAT“ONE; 'SHIFT DAT_PAT TO NEXT BIT AND REPEAT 
end; 
it -DODU_FLG IS_SET !DROP UNIT IF DODU_FLG IS_SET 
en 
begin 
DOBU (.ML_LUN); 
DOCLN; 
end; 
ENDTST; 
.SBTTL $118 
142252 $1718: JSR R1,$SAVE4 : 5923 
000040 151362 BISB8 #40,aML.REG+40 : 5951 
151744 MOV mL DUT R4 
177770 BIC #177770,R4 
000007 151344 BICB =: #7, AML. REG+40 
151340 BISB R4,aML.REG+40 
CLR R1 : DODU.FLG 5954 
163157 MOV #=14621,R4 > *,SKIP.MASK 5955 
000001 MOV #1,R2 : *,DAT.PAT 5956 
CLR zs ¢ 5959 
1$: BIT R2,R4 : DAT.PAT,SKIP.MASK 5962 
as: ta se 
151332 MOV R2,aML.REG+60 : DAT.PAT,* 5966 
040000 151314 BIT #40000. ML .REG*50 : 5968 
TRAP 3 : 5971 
.WORD 62 
;WORD ASYNC 
.WORD DUMPER 
910032 MOV #FNC.8,-(SP) ; 5972 
MOV D.12,-(SP" 
MOV #PHR.1, 
01002 MOV #FNC.8,-(SP) 
MOV #FOR.FAT,=(SP) 
MOV #5,-(S 
MOV SP,RO 3; SP,* 
TRAP 
MOV : DAT.PAT,* _ §973 


R2, (SP) 
004400 MOV #FAT.4,-(SP) 
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000002 


000001 
000020 


000017 


151544 


177552 


! <BLF /PAGE> 


3ML4 


3$: 


4$: 


5$: 


3; Routine Size: 
3; Maximum stack 


—4 


3; Routine Size: 
3; Maximum stack depth per invocation: 


#2,~(SP) 
SP RO 
14 


73 words 


depth per invocation: 


718 
PC,$T18 
66 

RO 

1$ 

PC 


6 words 





13 words 


0 words 


SP,* 
* ,DODU.FLG 


DAT.PAT 
COUNT 

COUNT ,* 
DODU.FLG 


14-May-1981 1 
14-May-1981 1 


SEQ 0257 


sis 


TOPS 
PA:< 
5974 
5970 
5975 


5980 
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SEQ 0258 
859 ;:ML4 emer 38 13:68:38 TOPS-20 Bliss-16 V2(212) 
5o0 : 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (69) 
3 5992 |! 
ae 3 2398 ! 
864 ; 5994 BGNTST; 
865 ; 5995 
866 ; 2038 !oe 
867 ;: 599 ' TEST NUMBER: TST 19 
868 ; 5998 =! 
869 ; 5999 ! TEST NAME: ATA BIT TEST 
870 ; 6000 ! 
871 ;: 6001 ! TEST DESCRIPTION: 
are ; 6002 ! 
873 ;: 600 ! TEST THE ATA BIT FOR SETTING 
874 ;: 6004 ! BY: 
875 ;: 6005 ! 
876 : 6006! 1. SETTING A BIT IN THE ERROR 
877 ;: 6007 ! REGISTER. 
878 ; 6008 ! 
879 ; 6009 ! TEST THE ATA BIT FOR CLEARING 
880 ; 6010 ! AFTER BEING SET BY: 
881 ;: 6011! 1. WRITING A FUNCTION TO MLCS1. 
882 ; 6012 ! 2. WRITING A ONE INTO THIS 
883 ; 601 ! UNITS ATA BIT 
884 ; 6014 ! 
885 : 6015! TEST THE ATA BIT FOR NOT CLEARING 
886 ; 6016 ! AFTER BEING SET BY: 
887 ; 6017 ! 
888 ; 6018 ! 1. WRITING A ONE INTO THE 
889 ; 6019! ATA BIT OF THE OTHER 
890 ; 6020 ! UNITS. 
891 ;: 6021 ! 
44 3 6022 !-- 
893 ; 602 
894; 6024 local 
895 ;: 6025 ATA_SAVE : bitvector (8), 'STORES ALL 8 ATA BITS ON READS AND WRITES 
8% : 602 DAT 3 'DATA PATTERN 
897 ;: 602 
898 ;: 6028 CLR_MBUS; 
899 ;: 60 MLER = ONE; 'SET THE ATA BIT 
900 ; 60 MLER = ZERO; 
54 3 pte ATA_SAVE = .MLAS; 'READ THE ATTN REGISTER 
308 : ooas if .ATA_SAVE C.ML_DUT) IS_NOT_SET 'SEE IF THIS DRIVES ATA BIT IS SET 
904 ; rete then 
905 ; 6035 begin 
906 : 60 ERRDF (51, ASYNC, DUMPER); ‘ERROR AND EXIT_TST IF NOT SET 
907 ; 603 PRINTB (FOR_FMT, WRD_15, PHR_1, WRD_11, FNC_8); 
908 ; rats: EXIT_TST; 
909 ; 6039 end; 
O11 + 'SEE IF THE ATTN BIT IS SET 
4 : o04¢ then aot 
913 ; 604 begin 





— 


ey 
nN 
oz 


ma ek a as a ek as a a ed ws a a ad a ng ed ed ad tk ard ik wd nk nd dt on“ gd 8 at td 2 a I Ss 2 a =) 2 SS = = 2s 2s =) 2 2 
sy ak a ag a tk ad ah i tk ek ad as wt a ak td a tk id a nt ot Ot Ot 2 “sg tt 2 ot OS 2 oat SS SS 2 SS a SS 2 2s 4 Ls a 


mM 4 
ACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 254 ( 
SEQ 0259 { 
915 sML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
96 : 14-May-1981 13:05:08 | PA:<NEALEDML4.B8L1.7 (69) 
918 ; 6044 ERRDF (52, ASYNC, DUMPER); ‘ERROR AND EXIT_TST IF NOT SET 
919 ; 6045 PRINTB (FIV_FMT, REG_2, WRD_16, PHR_1, WRD_11, FNC_8); 
920 ; 604 EXIT_TST; 
921; 604 end; 
9¢ : 6048 
923 : 6048 MLCS1 = NOOP; 'TRY TO CLEAR THE ATA BIT WITH NOOP FUNC 
925 ; 6051 if .ATIN IS_SET 'SEE IF ATA GOT CLEARED 
926 ; 6052 then 
927 : 605 begin 
928 ; 6054 ERRDF (53, ASYNC, DUMPER): ‘ERROR AND EXIT_TST IF SET 
929 ; 6055 PRINTB (FOR_FMT, WRD_15, PHR_2, WRD_11, FNC_2, WRD_19); 
930 ; 6056 EXIT_TST; 
931; 6057 end: 
932 ; 6058 
933 : 6098 ATA_SAVE = .MLAS; 'READ THE ATTENTION REGISTER 
935 ; 6061 if .ATA_SAVE C.ML_DUT] 1S_SET 'SEE IF THE ATA REG GOT CLEARED BY NO-OP 
936 ; 6062 then 
937 ; 606 begin 
938 ; 6064 ERRDF (58, ASYNC, DUMPER); 
939 : 6065 PRINTS (FIV_FMT, WRD_15, PHR_2, WRD_11, FNC_2, WRD_19); 
940 : 6066 end; 
941 ; 6067 
3e ; 6068 BGNSUB: 
943 ; 6069 MLER = ONE; 'SET THE ATA BIT 
944 ; 6070 MLER = ZERO; 
945 ; 6071 ATA_SAVE = ZEROES: 'CLEAR ATA_SAVE 
946 ;: 6072 ATA-SAVE C.ML_DUT) = ONE; iSET ATA_SAVE FOR THIS DRIVE 
347 : 6075 MLAS = .ATA_SAVE; iTRY TO CLEAR THE ATA BY WRITING TO IT. 
949 : 6075 if .ATIN IS_SET 'SEE If THE ATA GOT CLEARED 
950 ; 6076 then 
951 : 6077 begin 
93¢ : 6078 ERRDF (54, ASYNC, DUMPER); :ERROR IF NOT CLEARED 
953 : 6079 PRINTS (FIV_FMT, WRD_15, PHR_2, WRD_11, WRD_17, REG_5); 
954 ; 6080 end; 
995 : 6081 wn 
338 : $083 BGNSUB: 
958 : 6084 MLER = ONE; 'SET THE ATA BIT 
959 : 6085 MLER = ZERO; 
960 ; 6086 DAT_PAT = ONE; 'DATA PATTERN OF ONE IN FIELD OF ZEROES 
961 ; 608 
962 ; 6088 incr ATA_SEL from 0 to 7 do ‘REPEAT LOOP 8 TIMES 
963 ; 6089 begin 
964 ; 6090 
965 ; 6091 if .ATA_SEL neq .ML_DUT 'SKIP IF ATA_SEL EQLS THIS DRIVE NO. 
966 : 609¢ then 
967 ; 609 begin 
968 ; 6094 MLAS = .DAT_PAT: ‘WRITE DAT PAT TO ATA REGISTER 
969 : 6095 ATA_SAVE = [MLAS; iREAD ATA REG BACK 


“sao 


Z7ML 
18 
11971 sML4 
4) 104 : 
“1197 
11974 ; 
11975 ;: 
11976 ; 
11977 : 
11978 ; 
11979 ;: 
11980 ; 
198 
11988 3 
11984 ; 
11985 ; 
11986 ; 
11987 ; 
11988 ; 
11989 ; 
11990 ; 
11994 
11995 
11999 042056 
12000 042062 
12001 042070 
1g006 042074 
12003 042100 
12004 042106 
12005 042112 
12006 042120 
12007 042124 
12008 042130 
12009 042134 
12010 042136 
12011 042140 
444 042142 
12013 042144 
12014 042146 
12015 042150 
12016 042154 
12017 042160 
12018 042164 
12019 04 166 
12020 8 172 
13032 043200 
15098 §255pe 
12024 042204 
12025 042206 


DARA 
=s2escsse6 


£cs 


Scr 
ANVAO 

ra 
NORAAK 


esssse 
esre 
FAA 


ACO ML-11 LOGIC TEST 


nN 4 
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if .ATA_SAVE C.ML_DUT) IS_NOT_SET 
then 


poate 

ERRDF (55, ASYNC, DUMPER); 
PRINTB (SIX_FMT, WRD_1 
PRINTB (FMT-7, .DAT_PAT); 
exitloop; 

end; 


end; 


DAT_PAT = .DAT_PAT“ONE; 
end; 


ENDSUB; 
ENDTST; 


141776 


140746 
000010 


.SBTTL $119 
$1719: JSR R1,$SAVE3 

151124 BIS8 #40,aML.REG+40 

MOV bur R3 

BIC #177770,R3 
151106 BICB = #7, AML .REG+40 

8158 3° aML .REG+40 
151114 MOV #1. aML .REG+60 

CLR ami .REG+60 

MOV aML .REG+70,-(SF. 

MOV ML.DUT, 

ASR R1 

ASR R1 

ASR R1 

MOV SP,RO 

ADD 0,R1 

MOV 1.=(SP) 

MOV mL DUT -(SP) 

BIC #177770, (SP) 

MOV #1,-(SP5 

CLR -(§P) 

JSR PC .BL$GT2 

ADD #10,SP 

TST RO 

BNE 1$ 

TRAP 55 

.WORD 63 

“WORD ASYNC 


PHR_6, WRD_ 


TOPS-20 Bliss-16 V2(212) 


14-May-1981 13:68:38 
981 1 PA:<NEALE>ML4.BL1.7 (69) 


14-May-1 :05:08 
'SEE IF THIS DRIVE ATA IS CLEARED 


!ERROR AND EXIT 


ag IF CLEARED 
11, WRD_17, REG_5, PHR_7); 


!SHIFT DAT_PAT AND REPEAT 


* ,ATA. SAVE 


3 ATA.SAVE,* 


SEQ 0260 


5990 
6026 


6029 
6030 
6031 
6033 


6036 


Am 


CZMLACO ML-11 LOGIC TEST 
$119" 


BEBSESSSASS SASS SSSS 


RRRRERRLLRLLLERRERLERLRRLRRPRRERRERRRRR RRR ERE EEE 


9 

0 

1 

; 79 
soc? 74 
2048 rs 
2049 
2050 
2051 1 
She6 18 
205 2 
fe Se 
2036 334 
205 
2058 
2059 ‘ 
2060 04235 
2061 354 
vat 356 


: 


Bee 


SPW 
on 


SSIES TS 
w —Owo 
a 
¥SSRVo 


Joos 


ce cee ee ee ce ce ee ee ce ee cee an ee ee ee nd ee ed cee ce ed ee ced ce ee ee ee ee ed nd ee ed ee od ee ad ce ee ed ce ed ed eed eed eed ed 


sr ti 
2080 428 
2081 45 





™Mm 

=~ 
3 
oO 





BSR 
Nh = 984 


7 100000 
10 3 
1044 
000064 
0464 
4060 
746 01002 
746 41 


N“ 


ah ot a od IAS 
NNNN 
TY. 
AAR 


oo—-=Qo0o00c0do000 
oases 
WURHSS 
UA FOonw 


22 

ES 
MUNN 

A ee 


4 


ee 


8 ed ed ad od od A) 
AIS 3 
AAA CO 





1 10022 
i Beil 
ies Bea 
, 746 00000 
104414 
104463 
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3ML4 


150740 1S: 


150604 2$: 


Nw 
PAM 


#14,SP 


Big Py § 


@ML .REG+70, (SP) 
M R1 


° ° 


R1 


SP,* 


SP,* 


* ,ATA. SAVE 


14-May-198 
14-May-198 


1 
1 


1 
1 


3: 


SEQ 0261 


754 TOPS 


08 PA:< 


6037 


6055 
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SEQ 0262 
12083 ML4 14-May-1981 13:48:54 TOPS 
} 44 3 14-May-1981 13:05:08 PA:< 
1 454 006201 ASR R1 
1 4 10600 MOV SP,RO : ATA.SAVE,* 
1 4 0001 ADD RO.R1 
15080 oc5¢e oieree, 15111 Roy DUT csp) 
12091 236 716 13}}46 BIC Tataee (SP) 
15098 945800 pospey, 00000! CUR 5 (5P5 
1 04 502 m5 140432 JSR PC BLSGT2 
12095 306 £706 000010 ADD 6,SP 
i 09 be aig ao6 BNE $ 
1 04 31 104433 TRAP 5 ; 6064 
1 100 522 Oi 946s [WORD ASYNC 
1 193 2 $3060 iad CURD 19 (SP) 6065 
1 198 0425 § 0 MOV wENC.g =(SP) ‘ 
its Sass 8 my pa 1 
13106 j MOV D:15,-(SP) 
1S}o9 be 208 1 MOV #FIV.FMT,-(SP) 
12108 04 336 gi MOV 7 (SP) 
12109 0425 1 MOV SP.RO : SP,* 
12110 042564 TRAP 
12111 0425 ADD #16,SP : 6063 
1ette 04 3 6$: TRAP = 2 : 6066 
12113 042574 150432 MOV #1, @ML.REG+60 : 606 
1315 be rai te rete > ATA. SAVE oon 
1211 MOV ML.DUT,R1 ne 
ia & i fe 
1SH19 04 ASR R1 
12120 MOV SP,RO : ATA.SAVE,* 
12121 04 ADD RO.R1 
15158 04 MOY ML DUT «SPD 
12138 94 Bie ai77726, (SP 
15459 04 JSR (SP) » 538) 
12128 150364 MOV 1O(SP) ah .neG+70 7 ATA.SAVE,* 6073 
121 TST aML.REG+5 : 6075 
1 1 1 PRAP 43 6078 
1 13e .WORD 66 . 
121 “WORD ASYNC 
121 04 “WORD DUMPER 
12135 MOV #REG. 5,~(SP) ; 6079 
121 04 MOV MWRD.1?,-(SP) 
1213 MOV #WRD.11.-(SP) 
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SEQ 0263 
12139 ML4 14-May-1981 13:48:54 TOPS 
} re : 14-May-1981 13:05:08 PA:< 
1214 712 012746 0074 MOV #PHR.2,=(SP) 
4 128 7 716 012746 g MOV #WRD.15,-(SP) 
12144 0427 12746 062 MOV #FIV.FMT, (SP) 
15148 05989. 91666 MOV. SPCRO sp 
° Py o* 
1 BSE IS oa ae 90 
12149 ee 7% 03s i8 7$: ADD #10.SP : 6066 
1138 Stes ae we , = 
15188 geSeee 192605 mt her 6082 
12134 756 Fa 1 150250 MOV #1, @ML.REG+60 : 6084 
i 139 04 7 O77 130264 CLR ami .REG+60 la ast nae 6085 
° $f ° 
12187 805556 5003 150600 9$ the ORS ML. DUT ; ATA. SEL oOo) 
3 e é e * 
1 BR BLE Bt ie gn mae mee 
° e + P e o* 
12161 eats 16 150 3 MOV Bal REGS TO. (SP) t *, ATA. SAVE 6095 
1e16¢ 14 016701 150562 MOV ML.DUT,R1 ; 6097 
1S Reapee Ss0 ha 
12165 006201 ASR R1 
12166 010600 MOV SP,.RO : ATA.SAVE,* 
12167 1 ADD RO.R1 
12168 10146 MOV R1.-(SP 
1 169 16746 150542 MOV mL DUT =(SP) 
121 0 716 177770 BIC #177770, (SP) 
If) Sess Shen my fgsee 
121 67 14006 JSR PC BL$GT2 
12174 706 bo00%8 ADD #10,SP 
13176 104 BNE 10$ 
121 10445 TRAP 1g : 6100 
12178 «WORD 67 
15199 “WORD ASYNC 
12180 “WORD  DUMPER 
Bie my mere fi) : - 
1 188 MOV MWRD. 17,=(SP) 
12184 MOV #WRD.11.=(SP) 
12185 MOV #PHR.6,-(SP) 
1 186 MOV #WRD.15,-(SP) 
1218 MOV #SIX, FAT .=(SP) 
12188 MOV #7,~(SP) 
12189 MOV SP-RO : SP,* 
1 194 nov R3, (SP) DAT.PAT 
Py . * 
1219 MOV #FAT.7,-(SP) ore 
1219 MOV #2,-(SP) 








CZMLACO ML-11 LOGIC TEST 
$119 


! 13 

12137 154 
12199 rea Ea 
15600 043160 
15502 o¢31¢6 
1220 8 198 
12204 043172 
1s503 043176 
1390? 043900 
1ssoe 043204 
i 44 0432 
12210 04321 
12211 

issi¢ 

iss! 

12218 

12219 

\ssei 

12224 

12228 04 3ig 
Isee? 04321 
122 Roesi6 
12231 043220 
12232 043222 
12233 043224 
12234 

12235 

12236 

12241 

Issee 

12243 ; 


-—oO 

—_ 
Sk 
~Se 
NNIOOCOO— 
SNNPOUE & 


Pause 
ER 


3923 


6113 
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000024 


000007 


176640 


! <BLF /PAGE> 


12$: 


3; Routine Size: 
3 Maximum stack 


3; Routine Size: 
3; Maximum stack 


302 word 


s 
depth per invocation: 


T19 
PC,$T19 
6 


6 words 


depth per invocation: 





16 words 


0 words 


14-May-1981 
14-May-1981 
; SP,* 
; DAT.PAT 
3 ATA.SEL 
e ATA.SEL,* 


SEQ 0264 


TOPS 
PA:< 


6103 
6108 
6088 


6109 


5990 


6111 


39 
oz 


at 


Mrnn 
at ae td 


— ot SH on SP St os SH 4 ot SI SY as SS SS Ss SS) En SS SS Sh SS Ss SS SS SS SS Ss SS SS SY SS SY SS SS SS ss SS Ss SS SY YH 


BSLPSPENS 
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SEQ 0265 


sML4 Hy a a4 2 13:48:54 TOPS=20 Bliss-16 V2(212) 
; 14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (70) 


if .ATTN IS_NOT_SET 'SEE IF ATTN IS SET 
then 


Wwr— 


begin 
ERRDF. (59 ASYNC, DUMPER); ‘ERROR IF NOT SET 
PRINTB (FIV_FMT, WRD_16, PHR_1, WRD_12, FNC_10, WRD_19); 


8; 6114! 
49 ; 6115! 
50 ; 6116 GGNTST; 
51; 611 
3g : 6118 !++ 
33 : 6119 i TEST NUMBER: TST 20 
55: tH i TEST NAME: SEARCH FUNCTION TEST 
38 ; $158 i TEST DESCRIPTION: 
58; 6124 | 
299 ; 6129 TEST THE SEARCH FUNCTION BY: 
261 : gi59 i 1. DOING A SEARCH FUNCTION AT 
6¢ : 6128 | ARRAY ZERO AND TEST GO 
263 ; 6129 | ERROR BITS AND ATTN FOR 
2264 ; 6130 | SETTING/NOT SETTING. 
2265 : 6131! 
266 : 613¢ i 2. DOING SEARCH FUNCTIONS AT ALL 
267 : 6133 i PRESENT ARRAYS’ AND TEST ATIN 
268 ; 61 i SET 
269 : 6135 
3270 : 6136 i 3. DOING SEARCH FUNCTIONS AT ALL 
371 : 6137 | NOT PRESENT ARRAYS AND TEST 
2 re : 6138 ATTN CLEARED. 
2273 : 6139} 
27%: 6140 i-- 
275 : 6141 
2276 : 614¢ CLR_MBUS; 
677 ; 6143 MLDA = ZEROES; 
g 8 : 6144 MLCS1 = SEARCH: 'DO A SEARCH FUNCTION 
2280 : 6146 if .GO IS_SET ‘SEE IF GO IS SET 
2281 ; 6147 then 
382 : 6148 begin 
283 ; 6149 ERRDF (56, ASYNC, DUMPER); ‘ERROR IF NOT SET 
284 ; 6150 PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_10, WRD_19); 
2285 : 6151 end; 
2286 : 613¢ 
87 : 6153 if .ILF IS_SET 'SEE IF ILF IS SET 
388 ; 6154 then 
89 ; 6155 pesto 
: 6196 ERRDF (57, ASYNC, DUMPER); ‘ERROR IF SET 
: 615 PRINTB (FIV_FMT, WRD_3, PHR_S, WRD_11, FNC_11, FNC_10, WRD_19); 
3 6158 end; 
: 6159 
3 6160 
3 616 
: 616 
3 616 
3 6164 
3 6165 





“40 


ronrrrononr 


morororory 


Mon: 
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SEQ 0266 
301 ;ML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
. 3 14-May-1981 13:68:08 PRs SNEALESML Lod? (70) 
; ob ¢ J else 
5; oiee begin 
: 019) incr a from 0 to .LST_ARR by .ARR_INC do !'DO SEARCH AT ALL PRESENT ARRAYS 
PY n 
3 6171 BGNSUB; 
10 ; oiz¢ CLR_MBUS; 
11 ; 617 MLDA = .ARR_SEL; 'LOAD DSA REG WITH ARR_SEL 
\¢ ; $178 MLCS1 = SEARCH; 'DO A SEARCH FUNCTION 
14 ; ole if .OPI IS_SET 'READ ATTN 
18 ; 617 then 
1 3 6178 begin 
ve 3 6179 ERRDF (60, ASYNC, DUMPER); ‘ERROR IF NOT SET 
18 ; 6180 PRINTB (FIV_FMT, WRD_4, PHR_S, WRD_12, FNC_10, WRD_19); 
319 ; 6181 PRINTS (FMT-9, .ARR_SEL); 
320 ; ois end; 
353 3 618 
§ : oi ENDSUB; 
oh ; e| 5 end; 
325 ; giao if .OP_NUM_ARR lss %0°000017° 'SEE IF LSS 17 ARRAYS ARE PRESENT 
$58 3 6188 then 
327 ; 6189 
328 ; 6190 incr ARR_SEL from .LST_ARR + .ARR_INC to .ARR_16 by eARR_INC do 
44 3 6191 'DO A SEARCH AT ALL NOT PRESENT 
330 ; o136 pean ‘ARRAYS IF LSS 17 
331 ; 619 BGNSUB; 
336 FY 6194 CLR_MBUS; 
333 ; 6195 MLDA = .ARR_SEL; 'LOAD DSA REG WITH ARR_SEL 
a3¢ : $138 MLCS1 = SEARCH; 'DO A SEARCH FUNCTION 
3 : 6198 if .OPI IS_NOT_SET 'SEE IF OPI IS SET 
336 3 6199 then 63 
338 ; 6200 peain 
339 ; 6201 ERRDF (61, ASYNC, DUMPER); ‘ERROR IF NOT SET 
340 ; 6 : PRINTB (FIV_FMT, WRD_4, PHR_1, WRD_12, FNC_10, WRD_19); 
341 ; PRINTB (FMT~9, .ARR_SEL); 
36§ 3 ee end; 
: ENDSUB; 
53 09 end; 
5 : 6 09 end; 
a3 3 6210 
9; 6211 ENDTST; 
353 
354 -SBTTL $120 


CZMLACO ML-11 LOGIC TEST 
$120" 


i 


MMM 
uw 

RELLP 
Bt 


ee ee ey 
wo 


SS 
Asean 


A WI 
al 
ResseeSN see 


JN 


nn 
No 


IN 
FSR 


Sess8 


Mane 


MOPOPMoRooToforn 
SEER 
NOFO 


FRERRELLLLRELLRLRRLEF 


4 
Sy 


nd 
eas 
~~ 


SS3s 
33 


BN 


MOMIMENININSNENaNoNononoNofononofonony 


a a es a a ee ed dd ad ed dg od od ed i od 
WWW 
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004167 14 26 $720: JSR R1, SSAVE3 
152777 147754 B1s8 40s #40 OAL -REG*40 
91 703 1 MOV mL ul R 

703 17 Ic #1777760.R3 
1407 147736 BICB 4s #7 , AML .REG+G 
150377 B1S8 3° aml .REG+G 
5077 147716 CLR REG 

12 77 000031 147660 MOV #31, @ML.REG 

777, 000001 1476 BITB #1, aML.REG 
001426 BEQ 1$ 
1044 TRAP 55 
000070 .WORD 7. 

10464 “WORD  ASYNC 

24060 * WORD ER 

1 V MRD. 19,=(SP) 
127: MOV #FNC.10,-(SP) 
01 MOV D.11.=(SP) 
01 MOV 20" 
01 MOV #WRD.1.=(SP) 
oi MOV #F IV.FAT,=(SP) 
1274 MOV #6,-(SP) 
01 MOV SP.RO 
104414 TRAP -'14 
062706 000016 ADD #16,SP 
132777 000001 147646 1$: BITB #1,aML.REG+60 
901430 BEQ $ 
10445 TRAP 5 
000071 «WORD 71 

[WORD ASYNC 
, WORD D 





04 
04 
04 
04 
7 ee MOV #FNC.10,-(SP) 
394 043410 MOV #FNC.11.=(SP) 
395 043414 MOV MWRD.11.=(SP) 
399 Oc3494 746 MOV n° P 
398 rt 7 MOV #FIV.FAT,~(SP) 
399 34 7% MOV (S$ 
is tes Re im 
by ADD #20.SP 
i fe 50 6s 96 147546 28: BIT #106000, aM .REG*+50 
3405 TRAP 
406 WORD 
240 “WORD  ASYNC 
2408 3466 “WORD  DUMPER 
aif ast Biers Snes my Fe. 7 18 
seis 043500 012746 006426 MOV #WRD. 12.=(SP) 


; SP,* 


. SP,* 


SEQ 0267 


6112 
6116 


614 
615 


6156 


6157 


6155 
6160 


6163 


6164 
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SEQ 0268 
12413 ZML4 14-May-1981 13:48:54 TOPS 
i aie ; 14-May-1981 13:05:08 PA:< 
1241 504 012746 007 MOV #PHR.1,=(SP) 
1 419 8 510 012746 ies MOV #WRD.16,=(SP) 
1 418 04 514 012746 06 MOV #FIV.FMT,-(SP) 
1241 520 012746 MOV #6,-(SP) 
12420 043826 01 MOV : : SP,* 
1 eH 04 2 5o3706 000016 AD r6 SP : 6162 
12423 0435 0 RTS ~ : 
124 4 04 336 B1670 146034 3$: MOV LST.ARR,R : $189 
lage Geaeeg Queaey 10" EE glee sn. se 
s SEL 
1242 550 000467 BR 
12428 043552 1044 4$: TRAP : 
13499 043334 153779 900040 147432 B1SB #40, QML -REG+40 : gi0 
13631 04.3966 big7o0 139946 BIC wi aa RO 
1 43¢ 043572 14277 147414 BICB =: #7 , AML. REG*+40 
12433 04 150077 147410 BISB RO.aML.REG+40 
12434 043604 010177 147374 MOV R1.aMi .REG+30 : ARR.SEL,* 6173 
15e8e oeseie ossery Sobbay 1e5az8 Bit asi onl REG 60 ; oie 
a e + e 
1Se3o 043624 001435 _ BEQ 4 _ 
12438 04 104455 TRAP 55 : 6179 
12439 04 000074 «WORD 7% 
15441 O¢3e84  $o4666 "WORD DUMPE 
1e64e 043636 012746 006506 MOV #URD.19,-(SP) : 6180 
12443 043642 012746 010050 MOV #FNC.10.-(SP) 
15448 Bases OISsee Oosees MOY MPRR TS (SP 
12466 043656 O13766 006328 MOV MWRD.4.-(SP 
12647 043662 012746 00606 MOV #FIV.FAT,=(SP) 
15449 Oc3e7> 010608, oe MOY SPLRO sp 
: & 
12450 043674 104414 TRAP = «14 dente 
12480 043676 010116 MOV R1, (SP) 3: ARR.SEL, 
1 43g 043700 12746 004644 MOV #FAT.9,-(SP) caveat vet 
1245 704 012746 000002 MOV 2,-(SP 
12454 04 £10 10600 MOV SP.RO : SP,* 
15030 oe371e 065706 000022 ID a82.SP 
1348 0437 9 rth 5$ TRAP ¢? 7 : rats 
12658 be37 4 hia BLO 4$ 
15461 043798 50102 os: owe wind A a es “en 
e e e * 
13469 0437 % BLE 4$ _ 
12463 04 67 7 145620 000017 CMP OP.NUM.ARR,#17 : 6187 
12664 04 742 1 2 BGE 10$ 
1 469 76h 16701 1456 6 mov LST.ARR. RI F 6190 
1Sé8 be 754 4 ARR TORS 


016703 145614 MOV ARR. 
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MLA 
20 SEQ 0269 
12469 M4 14-May-1981 13:48:54 TOPS 
13690 : 14-May-1981 13:05:08  PA:< 
12472 043760 016702 145576 MOV ARR. INC,R2 
15098 043764 $ BR 9$ 
12474 04 766 1 402 7$: TRAP = 2 ; 6192 
che Gears Gferon $0008 716 RNS lagen acon | o 
1 are 044002 04g700 177770 BIC al bul RO 
12478 044006 14277 909007 147200 BICB =s_- #7, AML. REG*+40 
12479 044014 150077 147174 BISB8 RO, aML.REG+40 
12680 0440 O10177 167160 MOV R1,aML .REG+30 : ARR.SEL,* 6195 
12481 044024 012777 000031 147122 MOV #31. aML.REG : 6196 
12482 044032 032777 020000 147174 BIT #20600, aML .REG+60 : 6198 
12483 044040 001035 BNE aS 
12484 044042 104455 TRAP = 555 ; 6201 
12485 044044 . WORD 

3486 044046 010464 ;WORD  ASYNC 
12487 044050 024 “WORD 
12488 044052 01746 006506 MOV MWRD.19,-(SP) : 6202 
12489 044056 012746 010050 MOV #FNC.10,-(SP) 
12490 044062 012746 26 MOV .12,=(SP) 

2491 044066 012746 007366 MOV .1,- 
12492 044072 012746 006322 MOV #WRD.4.=(SP) 
12493 044076 012746 00606 MOV #FIV.FAT,=(SP) 

494 044102 012746 000006 MOV »~ (SP) 
12495 044106 010600 MOV SP.RO : SP,* 

2496 044110 104414 TRAP «14 
12497 044112 010116 MOV R1, (SP) : ARR.SEL,* 6203 
12498 044114 012746 004644 MOV #FMT.9,-(SP) 
12499 044120 012746 000002 MOV 7 
12500 044124 010600 MOV ¥ : SP,* 
12501 044126 104414 TRAP 
12508 044130 062706 000022 ADD #22.SP ; 
12503 044134 10446 8$: TRAP : 6204 
12504 044136 006000 ROR 0 
12505 044140 103712 BLO 7$ 
12506 044142 060201 ADD R2,R1 3 *,ARR.SEL 6190 
12507 044144 020103 9$: CMP R1.R3 : ARR.SEL,* 
12508 044146 003707 BLE 7$ 
i 309 044150 207 10$: RTS PC : 6112 
isait 3; Routine Size: 234 words 
isaté 3; Maximum stack depth per invocation: 13 words 
1251 
1252 
1252 .SBTTL 120 
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T SEQ 0270 
12525 3ML4 14-May-1981 13:48:28 TOPS 
; 2s8 : 14-May-1981 13:05:08 PA:< 
12531 peeles T20:: 

125 4 41 906767 177050 1$: JSR PC,$T20 3 6209 
12533 044156 1044 TRAP 66 

125 edhe] ROR RO 

12535 0441 1037 BLO 1$ 

; 2 044164 000207 RTS PC 

12538 3; Routine Size: 6 words 

\$27? 3; Maximum stack depth per invocation: 0 words 

12545 

12546 ; 6212 !<BLF/PAGE> 


SERLACO ML-11 LOGIC TEST 
T20 


12548 :ML4 

12549 ; 

12550 

12551 ; 6213 
1 23¢ 3 6214 
12553 ; 6215 
12554 ; ocié 
12555 ; 621 
15396 3 6218 
12557 ;: 6219 
12558 ;: 6220 
12559 ; oss! 
12560 ; 62 § 
12561 ; 622 
16366 3 6224 
125635 ; 6225 
12564 ; 6226 
12565 ; 6227 
12566 ; 6228 
12567 ; 6229 
12568 ; 6230 
12569 ; 6231 
12570 ;: 623 
12571 : 623 
\gote ; 6234 
12573 ; 6235 
12574 : 6236 
12575 ; 6237 
12576 ; 6238 
12577 ; 6239 
12578 : 6240 
12579 ; 6241 
12580 ; 624 
12581 ; 624 
12582 ; 6244 
12583 ; 6245 
12584 ; 624 
12585 ; 624 
12586 ; 6248 
12587 ; 6249 
12588 ; 6250 
12589 ; 6251 
12590 ; 625 
1633) ; 625 
1 a4 : 6254 
12593 ; 6255 
12594 ; 26 
16302 3 625 
12596 ; 6258 
12597 ; 6259 
12598 ; 6260 
15608 

1260 

Ico 

; 605 

15646 044166 152777 


5 
MACRO M1113 18-MAY=-81 08:17 PAGE $66 


14-May-1981 
14-May-1981 


4 
BGNTST; 


'4¢ 
TEST NUMBER: TST 21 
! TEST NAME: READ IN PRESET TEST 


TEST DESCRIPTION: 
TEST THE READ IN PRESET FUNCTION BY: 


AND VV FOR SET / NOT SET. 


i 
i] 

i 
i 
i 
i 
i 
i 
leo 
CLR_MBUS; 

MLCS1 = RD_IN_PRE; 
if .GO IS_SET 
then 


begin 
ERRDF (62, ASYNC, DUMPER); 
PRINTB (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_11, WRD_19); 


if .ILF IS_SET 
then 


begin 

ERRDF (63, ASYNC, DUMPER); 
ae a (FIV_FMT, WRD_3, PHR_5, WRD_11, FNC_11, WRD_19); 
end; 


if .OPI IS_SET 
then 


begin 

ERRDF (64, ASYNC, DUMPER); 
Ane (FIV_FMT, WRD_4, PHR_5S, WRD_11, FNC_11, WRD_19); 
end; 


if .VV IS_NOT_SET 
then 


begin 

ERRDF (65, ASYNC, et a 

An (Fiv_FMT, WRD_18, PHR_1, WRD_11, FNC_11, WRD_19); 
end; 


ENDTST; 
3ML4 


-SBTTL $121 
000040 147020 $121:  ®6!SB #40 ,aML .REG+40 


1. PERFORMING A_READ-IN-PRESET FUNCTION AND TESTING GO, ERROR BITS 


'DO A READ IN PRESET FUNCTION 
!SEE IF GO IS NOT SET 


‘ERROR IF SET 


!SEE IF ILF IS NOT SET 


!ERROR IF SET 


!SEE IF OPI IS NOT SET 


!ERROR IF SET 


‘SEE IF VV IS SET 


‘ERROR IF NOT SET 


14-May-1981 1 
14-May-1981 1 


3 


TOPS=20 Bliss-16 V2(212) 


PA:<NEALE>ML4.BL1.7 (71) 


SEQ 0271 
48:54 TOPS 
05:08 PA:< 


6214 


ee ee, 


m5 
ACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 266-1 


ML 
21 SEQ 0272 
12611 044174 016700 1474 MOV ML.DUT,RO 
1e61e 044200 049709 133598 BIC 7096 RO 
1261 044204 1407 900007 147002 BICB = #7, AML. REG+40 
12614 044212 150077 146776 BISB RO @ML .REG+40 
12615 044216 012777 000021 146730 MOV #21, aML.REG : 6230 
12616 4224 132777 000001 146722 BITB #1,aML.REG : 6232 
12617 044 001426 BEQ 1$ 
12618 044 % 104455 TRAP = 55 : 6235 
12619 044 % .WORD 76 
1 044260 010464 [WORD ASYNC 
12621 044242 024060 “WORD  DUMPE 
12 ¢ 044 4 012746 006506 MOV MRD. 19,=(SP) ; 6236 
1368 044250 012746 010060 MOV #FNC.11.=(SP) 
12626 044254 012746 006416 MOV #WRD.11,-(SP 
12625 044260 012746 007404 MOV #PHR.2,- 
12626 044264 012746 006276 MOV D.1 
12627 044270 012746 00606 MOV #FIV.FAT, -(SP) 
12 B 044074 012746 000006 MOV #6,-(S 
12629 044 01 MOV *RO : SP,* 
12630 044302 104414 TRAP 
12631 044304 062706 000016 ADD #16,SP : 6234 
1263e 044310 132777 000001 146716 1$: BITB #1,aML.REG+60 : 6239 
12633 044316 1426 BEQ $ 
12634 044320 104455 TRAP 5 : 6242 
12635 044322 000077 WORD 
12636 044324 010464 “WORD ASYNC 
12637 044326 024060 “WORD 
12638 0443 012746 006506 MOV #WRD.19,-(SP) g 6243 
12639 044334 012746 010060 MOV #FNC.11,=(SP) 
12640 044340 012746 0064.16 MOV -11,-(SP) 
12641 044344 012746 00747 mov" #PHR.5S,- 
1264¢ 044350 012746 006314 MOV #WRD. 3,-(SP) 
12643 044354 012746 006062 MOV #FIV.FAT,=(SP) 
12644 044360 012746 000006 MOV #6,-(SP) 
12645 044364 010600 MOV SP.RO 7 SP,* 
12646 044366 104414 TRAP —_-‘14 
12647 044370 062706 000016 ADD #16,SP : 6241 
12648 044374 032777 020000 146632 28: BIT #20000. aML .REG+60 : 6246 
12649 044402 001426 BEQ $ 
12650 044404 1044 TRAP 5 ; 6249 
12651 044406 000100 .WORD 100 
1265¢ 04461 010464 “WORD  ASYNC 
1265 12 024 “WORD  DUMPER 
12654 044414 012746 006506 MOV #WRD. 19,-(SP) F 6250 
12655 044420 012746 01 MOV #FNC.11.=(SP) 
1 656 044424 012746 1g MOV #WRD.11.=(SP) 
12657 044430 012746 00747 MOV #PHR.5,=(SP) : 
12658 sML4 > \i-tey~ 1301 13:48: % TOPS 
! HH : 14-May-1981 15:05:08 PA:< 
15003 errs + 8 ares mov ory FAT (SP) 
12668 Seases $1576 00d mov G.= ISP) 7 
e e * 
13 t3s OR5%06. conor IN He sp 
1560? 044660 132777 000100 146536 3$: BITB +100" aML .REG*SO : 38 








Cc 

$T21 
Peder 
is Sit 
12671 044474 
1 ie; 044476 
12673 044500 
12674 044504 
12675 ray 
12676 044514 
12677 044520 
12678 ht: 
12679 0445 
12680 044534 
12681 044536 
12682 044540 
icee 044544 
12684 
12685 
12686 
12691 
12692 
12696 
12697 
12701 044546 
12702 044546 
12703 044552 
12704 044554 
12705 044556 
12706 044560 
12707 
12708 
12709 
12717 
12718 
12719 ; 


PRACO ML-11 LOGIC TEST 


6261 


5 
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177414 


! <BLF /PAGE> 


4$: 


3; Routine Size: 
: Maximum stack 


T21:: 
1$: 


; Routine Size: 
3; Maximum stack depth per invocation: 





#16,SP 
PC 


120 word 


s 
depth per invocation: 


T21 
PC,$T21 
66 


6 words 


7 words 


0 words 


. SP,* 


SEQ 0273 


6256 


6257 


6255 
6211 


6258 


6 
SELACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 367 
T SEQ 0274 


by aad 44 13:68:38 TOPS=-20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (72) 


——t3 


' 
i 
BGNTST; 


'e4 
TEST NUMBER: TST 22 


i TEST NAME: ILLEGAL FUNCTION TEST 
i TEST DESCRIPTION: 


TEST THE DET 
pyle WR 


nO 
Wn 


MPPororor 


POSSIBLE ILLEGAL 
MLCS1. THEN 
ERROR BITS CLEARED. 


000 Co SN NSN NNO AAA Ot 


WIM 


!STORES A_COUNT TO GENERATE BAD FUNCTIONS 
!STORES GENERATED BAD FUNCTION 


BAD_BITS = ZEROES; !CLEAR BAD BITS 
incr CNT_1 from 0 to 2 do 'REPEAT LOOP 3 TIMES 
BAB_BITS = .BAD_BITS + %0'2'; !ADD 2 TO BAD_BITS 
me pean from %0'1" to %0'71" by %0'10' do 'REPEAT LOOP GENERATING ‘GOOD' FUNCTIONS 
SUB; 


8 
CLR_MBUS; 
UNC = .CNT 


RARAAAAAAAAAAAAAAAAAAAAAAAH 
Forororororororororororonorororororonone: 


SEAS 


BAD_ FUNC 2 + .BAD_BITS; 'ADD BAD_BITS TO CNT_2 GENERATING BAD FUNCTIONS 
FIRST_BLK_XFER %); 'SET UP A FIRST BLOCR XFERR 
MLCS1"= .BAD_FUNC; ‘LOAD MLCS1 WITH TWO BAD FUNCTIONS 


if .ILF 1S_SET 'SEE IF ILF IS SET 
then 
begin 
if G0 IS_seT 1IF ILF IS SET THEN SEE IF GO IS SET 
begin 
ERRDF_ (66, ASYNC, DUMPER); ‘ERROR IF GO SET WITH BAD FUNCTION 
PRINTS (FIV_FMT, WRD_1, PHR_2, WRD_11, FNC_12, WRD_19); 


PRINTB (FMT_12, .BAD_FUNC) 
end; 


1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
127 
1 
127 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
12 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
127 
1 
127 
1 
127 
1 
1 
1 
j 
1 
1 
1 





aed ML-11 LOGIC TEST 





12777 :ML4 

1308 3 

12779 

12780 ; 6318 
12781 ; 6315 
12782 ; 6 1§ 
12783 ;: 631 
12784 ; 6318 
12785 ; 6319 
12786 ; 6320 
rs 
12789 ; $358 
12790 ; 6324 
12791 ; 6325 
12792 ; 632 
12793 ;: 632 
12794 ; 6328 
re ERS 
13599 ; 6 3) 
12798 : 63 $ 
12799 ;: 633 
12800 ; 6334 
12804 

12805 

12809 044562 004167 
12810 044566 005004 
12811 044570 5001 
ieol¢ 572 704 
1281 4576 4 4S 
12814 £606 1040 
12815 044 060205 
1esig res 1DSa0e 
15818 638700 
12819 84 709 
12820 1427 
12821 150077 
1 § 10 03 
13 4 846597 
; 825 Aerie 
ia Rate Oe 
13 touass 
12830 044674 000102 
12831 044676 010464 


6 
MACRO M1113 18-MAY-81 08:17 PAGE Te 


baat $44 13:6 254 
14-May-1981 15:05:08 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>ML4.BLI.7 (72) 


else 


begin 

ERRDF (67, ASYNC, DUMPER); 'ERROR BAD FUNCTION DON'T CAUSE ILF 
PRINTB (FIV_FMT, WRD_3, PHR_1, WRD_11, FNC_12, WRD_19); 

PRINTB (FMT-12, .BAD-FUNC) ; 

end; 


if .OPI IS_SET 'SEE IF OPI IS SET 
then 


begin 

ERRDF (68, ASYNC. DUMPER); ‘ERROR IF SET 
PRINTB (FIV_FMT, WRD_4, PHR_5, WRD_12, FNC_12, WRD_19); 
PRINTB (FMT~12, .BAD~FUNC); 


end; 
ENDSUB; 
end; 
.SBTTL $122 
$122: JSR R1,$SAVES ; 
CLR Ré : BAD.BITS 
1$: ADD #2,R4 : * -BAD.BITS 
MOV #1 Re 3 *,CNT. 
2$: MOV R4-R : BAD .BiTS.* 
ADD R2,R5 : CNT.2,% 
3$: TRAP 2 ° 
146376 8158 #40, QML -REG+40 : 
IC T7776 RO 
146360 BICB 3s #7, AML .REG+4 
8158 RO. aM .REG*40 
MOV RS. : *,BAD.FUNC 
JSR PC.PIRST .BLK.XFER : 
MOV R3.aML RE : BAD.FUNC,* 
1466354 1 18 #1. aML .REG+60 : 
146264 BITB #1, aML.REG : 
BEQ 
TRAP ; 
«WORD 102 
“WORD ASYNC 


SEQ 0275 | 


6 
ETM ACO ML-11 LOGIC TEST MACRO M1113 18-MAY=81 08:17 PAGE B69 


SEQ 0276 
12833 sML4 14-May-1981 13:48:54 TOPS 
12854 : 1a-ey-1981 13,08:08 pace 
128 47 24 WORD ER 
128 1509 1 960 506 MOV #WRD.19,=(SP) ; 6309 
128 ? 12746 01010 MOV BENC. 12,-(SP) 
128 4712 012746 16 MOV D.11,-(SP 
12840 044716 012746 4 MOV +26 
12841 0447, 12746 0062 $ MOV ; 
1 Bie 47 12746 906062 MOV #FIV.FAT,=(SP) 
1284 012746 MOV ~ 
12844 O44 010600 MOV H : SP,* 
12845 4740 104414 TRAP 
12846 044742 010316 MOV : BAD.FUNC,* 6310 
12847 044744 012746 005004 MOV #EAT.12,-(SP) 
12848 044750 012746 MOV (SPS 
12849 044754 010600 MOV ; : SP,* 
12850 044756 104414 TRAP 
12851 760 000433 BR 5$ : 6307 
1 85¢ 044762 104455 4$: TRAP «555 : 6316 
12853 044764 000103 «WORD 103 
12854 044766 010464 “WORD ASYNC 
12855 044770 024060 ;WORD  DUMPER 
12856 044772 012746 006506 V #WRD.19,-(SP) : 6317 
12857 044776 012746 010100 MOV #FNC.12,-(SP) 
12898 045002 012746 006416 MOV #WRD.11.- 
12859 945006 012746 007366 MOV #PHR.1,<(S 
12860 045012 012746 006314 MOV MWRD.3,-(SP) 
12861 045016 012746 006062 MOV #FIV.FAT,-(SP) 
1286 5022 oI 746 000006 MOV #6,-( 
12863 045026 010600 MOV ° ; SP,* 
12864 943030 104414 TRAP 
12865 045032 010316 MOV (SP) : BAD.FUNC,* 6318 
12866 045034 012766 005004 MOV #FAT.12,-(SP) 
12867 045040 012746 000002 MOV = (SPS 
12868 045044 01 MOV SP,RO : SP,* 
12869 3046 104414 TRAP ‘16 
12870 04505 5$: ADD #22 sP : 6315 
12871 045054 146152 6$: BIT #20000, aML .REG+60 : 6321 
1 are 5062 BEQ 7$ 
128 5064 TRAP = 55 : 6324 
12876 045 .WORD 104 
15858 0450 “GORD DUMPER 
1Say9 507. MOV MWRD.19,-(SP) : 6325 
1 878 5100 MOV ENC. 1g,(SP) 
128 5104 MOV D.12.- 
12880 045110 MOV #PHR.5,-(SP) 
12881 045114 MOV #WRD.4.=(SP) 
1 88e 51 MOV #FI1V.FAT,=(SP) 
1sde B35 my a” ses 
ies He a ee vera sa 
e o * 
12887 0451 MOV #FAT.12,-(SP) 








CZMLACO ML-11 LOGIC TEST 
$122 


889 
890 
891 
£36 5142 
893 04514 
894 04515 
Bs tal 
sin Sg 
2899 045164 
5170 
1 045174 
045176 
045 
2904 045 
2905 045206 
sone 045212 
2908 
$314 


VVISBIVy 
oouw 
SoNSas 


BIISS 


a ce ec a ye ce a ad we ce ad ce ed ed nd ed ed 8 ed ed ed ed od 8 dd 
wu SSVSVOSPY 
- CONGUE 


By 
oO 


004767 


6335 
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000002 


000022 
000010 
000071 


000002 
177360 


177342 


! <BLF /PAGE> 


3ML4 


7$: TRAP 


8$: RTS 


3; Routine Size: 
3; Maximum stack 


-SBTTL 
T22:: 
1$: JSR 
TRAP 
ROR 
BLO 


3; Routine Size: 


3; Maximum stack depth per invocation: 


#2,-(SP) 
SP RO 


o 


141 word 


s 
depth per invocation: 15 words 


6 words 


14-May-1981 13 
81 13 


14-May-19, 


; SP,* 


108: 


SEQ 0277 


54 TOPS 
08 PA:< 


6323 
6327 


6293 


6289 


6260 


6332 





*., 
SERLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 271 


SEQ 0278 


Viney 138! 1336 : 


54 TOPS=-20 Bliss-16 i St 
05:08 PA:<NEALE>ML4.8L1.7 (7 


12941 :ML4 
é : 14-May-19 ) 
15908 a 

g; 6338 BGNTST; 

1 : 6340 144 

1 49 6 1 { TEST NUMBER: TST 23 

12951 ; 6 $ TEST NAME: REGISTER MODIFICATION REFUSED TEST 

15988 : 6345 | TEST DESCRIPTION: 

12954 : 6346 i 

12959 : 6347 | TEST THE DETECTION OF A 

1 56 : 6348 REGISTER MODIFICATION REFUSED 

15988 i $320 i i: 

12959 : 6351 1. WRITTING TO MLCS1, MLDA 

1 ; 639¢ i AND MLER WHILE THE DRIVE 

12961 : 6353! IS BUSY AND TEST RMR 

1296¢ 3 6354 : BIT SET. 

12964 : 6356 ALSO SEE IF THE DRIVE ASSERTED 

12965 : 6397 EXCEPTION SY TESTING THE TRE BIT SET. 

12967 6359 ine 

12969 : 6361 incr CNT from 0 to 2 do ‘REPEAT LOOP 3 TIMES 
12970 ; 636 begin 

12971 : 636 BGNSUB; 

if 340 3 6366 CLR_MBUS; 

12973 ; 6365 MLCS1 = write; 'DO A WRITE FUNCTION 
12975 : 6367 case .CNT from 0 to 2 of WRITE TO SELECTED REGISTERS FORCING RMR 
isor0 £369 - 

12978 ; 6370 (0) : 

12979 ;: 6371 MLCS1 = %0'000000'; 

12980 ;: 637 

12981 : 637 (1) : 

oe apy rmee 

12984 : 6 26 (2) : 

12985 : 6 MLER = ONES 

: ; ? a tes; 

1 88 i 3a DELAY (FRTY_US); 

1 : 6 : if .RMR IS_NOT_SET ‘SEE IF RMR GOT SET 
1593) 3 6 then 

1 5 6 begin 

1 : 6385 ERRDF (69, ASYNC, DUMPER); ERROR IF NOT SET 

1 ; 6386 PRINTB (FOR_FMT, WRD_21, PHR_1, WRD_11, WRD_21); 

12995 : 638 end: 





—— ML-11 LOGIC TEST 
T22 


7 :ML4 


— 
Nu Sesszes 


SSSS 


1 

1 

1 

1 

1 

1 

1 

13010 

13011 

13015 

13018 

130 4 062830 
1 32 045236 
ies as 
13095 045980 
13096 Bes 

13028 045 $8 
ies oes 

1308) B¢530e 
13088 845319 
13035 peaaie 
13036 045316 
i 045324 
13039 04538 
1) bes 343 
13048 045330 
13048 Bes 

1304¢ Bes 

13049 Be5366 
13051 33/0 


238 
NeSNe 


o=—— 
= 
SSN 
SJ~Noo 
N32 NINN @ NIPUNO NS 


—— 
SLark 
n= 


on 
So 


w 
(=) 
GN 


BS eaases weTeTe 


x 


sepeaaee 


Wa 


ussssssesee 
M—= WN Qa ae 


s 
= 
NS 


if .TRE IS_NOT_SET 
then 


MACRO M1113 18-MAY-81 08:17 PAGE $72° 


peagin 
ERRDF (117, SYNC, DUMP 


PRINTB (FOR_FMT, WRD_2 


end; 


ENDSUB; 


end; 


ENDTST; 
136610 


i 


1777 
145722 
000061 


045310 


145632 
177777 
177777 
000050 


134542 


145744 


145726 
145654 


145652 
145672 


145636 


$T23: 


1$: 


-SBTTL 
JSR 


$123 
R1 ppAvte 


(SP 
R2 


#~1, QML .REG+30 
#-1,@Mt .REG+60 
#50,R0 


tate 


(SP) 
R1 


14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
1e-may=1981 13:05:08 Parana eemee oer 9 27% 


!SEE IF DRIVE ASSERTED EXCEPTION BY TESTING TRE 


R); 
o. PHR_1, WRD_11, WRD_21); 


: CNT 


3; CNT,* 


* ,SSTMP2 
3 *,SSTMP1 


3; SSTMP 
3 SSTMP1 


3: SSTMP2 


SEQ 0279 


6382 





CZMLACO ML-11 LOGIC TEST 


$T2 
13053 
13054 
1S ou 
1s Bie 
13059 0454 
1s Bet 
13061 045414 
1 54 
1 5424 
1 34 
iis te 
13068 OF 3e88 
13069 045450 
13070 etree 
13071 045460 
Ire 045462 
13073 045464 
13074 045466 
13075 253820 
13076 045474 
13077 045500 
1S Os 2e58 
13079 045510 
13080 045514 
1B Ba 
1308. 048854 
13084 045530 
et Resear 
13087 O43836 
13088 peeeee 
13089 045544 
13090 045546 
13091 045550 
13038 
1309 
13094 
13099 
ta ' 
13104 
13105 


—S—-GCOo00000o 


Shee 





000002 


H__6 
MACRO M1113 18-MAY-81 08:17 PAGE 273 


3ML4 


145476 11S: 


12$: 


3; Routine Size: 
; Maximum stack depth per 


#14,SP 
#40000, aML .REG 


5 
165 
SYNC 


DUMPER 
MURD.21,-(SP) 
rao Ret ony 


105 word 


-SBTTL 123 


s 
invocation: 


10 words 


3; SP,* 


14-May-1981 1 
14-May-1981 1 


SEQ 0280 


40:38 TOPS 
7:05:08 PA:< 


6385 


6386 


6384 
6389 


6392 


6393 


6391 |. 


6394 
6361 


6334 


6 
re ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE by, 


SEQ 0281 
13113 04555 T23:: 
13114 3355 767 177452 1$: JSR PC,$T23 $ 6397 
Tig Bcsegh anes wf 
13117 oesseo JOSee5 oo OOS 
: BY 5564 000207 RTS PC 
131 3; Routine Size: 6 words 
: 133 3; Maximum stack depth per invocation: 0 words 
13127 
13128 ; 6400 !<BLF/PAGE> 


6 
i ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 375 
T SEQ 0282 


: 14-May-19 PA:<NEALE>ML4.BL1.7 (74) 


Se ee 
—_ 


130 ;ML4 14-May-1981 1 TOPS=20 Bliss-16 v2(212) 
3 yr4981 13.08:08 


BGNTST; 


1o4 

| TEST NUMBER: TST 24 

TEST NAME : initial PROM TEST 
TEST DESCRIPTION: 

i TEST THE MEMORY ARRAYS’ PROM 
i TIMING AND CONTROL LOGIC FOR 
; INITIAL PROM READS BY: 

i 1. READING 14 PROM LOCATIONS 
AND TESTING FOR: 

i A. CHECK SUM ERRORS AT 
EACH ROW COLUMN ADRS 

i] 

] 


B. SUM OF une BIT SET 


LS SSISSSS SSIS ISS SSS SSSSS SSIS SS SSSSSS S55 
SARUNAS GO NOURWNSSCONANR WU OSB NEARS 


<9,0> 
local 
OFF_SET_CNT : vector (10, byted. 'COUNTS EACH NIBBLE OFFSET 
RCSAY 2 COL : bitvector [16] 2 ‘SAVES ROW DATA OR'ED WITH COL DATA 
i bitvector C16], 'TEMP LOCATION FOR ROW COL DATA 
PROM AD 'PROM ADDRESS 
CHK. SUM » 'CHECK SUM DATA 
coe SUR CHECK S$ OR 
BAD_NIB_CNT, 'COUNTS BAD NIBBLES 
CNT-14_ BAD, 'COUNTS BAD NIBBLE POSITION EQL 14 
pop0_FLG, 'DROP wit! FLAG 
ERR_FLG; 'ERROR FLAG 


Ws 
cow 


MBUS; 
SODD FL FLG = ZERO; 
PROM DIS = ONE; 
HK_SUM_ERR = ZEROES; 


incr CNT from 0 fo a. 
OFF_SET_CNT C.CNTJ = ZEROES; 


!SET PROM DISABLE MODE 


'CLEAR OFFSET COUNTS 


3333333335 
SSEREROSS 


rth incr begin CNT from 0 to 14 do !READ PROM DATA FROM 15 ARRAY WORDS 
6449 ORED COL = FEROES ‘CLEAR ROW ORED COL ante LOCATION 
50 PROM_ADRS = ~ADRS_ CNT !GET COPY OF ADRS_CNT 


SSH BS OP FH SH SH Ss os os SS Ss I SS os Ss 2 FH SS SS st SS Sh SS os SS Ss Ss SS Ss Ss SS SS ss St SS Ss st ss ss 


co NNNNNG oa UMUMUIVIVIVUIVIUI ES BEER ERE RAW 
RS SSSA IOAN RANVSS SASS FAV IS SSNSVLUNUSSSRSSEEEALES Nou 


me a me ek ee me eh ae mek ek me me ee me me eed ed ee ae ea a a a ed ed ed ed ed ed ed ed 2d ad ad od od od I 
WWWNWIAN NAW NAIA IWIN NINA WAWIWIAIAINIAAIAWAAWI AAAI 
Be Ge Be Se Ge Be Ge Ge Se Ge Ge Fe Be Ge Ge Ge Ge Be Be Be Ge Ge Ge Se Be Fe Be Se Ge Ge Se Se Be Fe Ge Ge Se Ge Ge Ge Ge Sse Se Se Ge Se Se Se Se Se Se Ge 


1 
6452 incr TWICE from 0 to 1 do !READ ROW AND COL DATA FOR THIS ARRAY WORD 
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SEQ 0283 

1 186 ZML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 vg (212) 
187 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (74) 
13189 ; 6453 ae 
13190 : 6454 NIB_CNT = ZEROES: 
13191 : 6455 ERR-FLG = ZERO 
1 19@ : 6496 MLPA = .PROM ADRS: 'LOADING MLPA INITIATES PROM READ 
13193 : 645 DELAY (ONE_US); 
13194 ; 6498 _C_SAV = -MLPD; 'GET THE ROW OR COL DATA 
13198 ; 6460 incr BIT_CNT from 0 to 9 do 'COUNT NUMBER BITS SET IN <9:0> 
13198 : 646 if .R_C_SAV C.BIT_CNT] IS_SET then BAD_NIB_CNT = .BAD_NIB_CNT + 1; 
13200 : 6464 CHK_SUM = .R_C_SAV<10, 3>; 'GET THE CHECK SUM BITS 
13208 : 6466 if .R_C_SAV [13] IS_SET then CHK_SUM = .CHK_SUM + 1; !ADD IN BIT 13 
13206 : 6468 if .R_C_SAV [14] IS_SET then CHK_SUM = .CHK_SUM + 1; 'ADD IN BIT 14 
13206 : 6470 if .R_C_SAV [15] IS_SET then CHK_SUM = .CHK_SUM + 1; 'ADD IN BIT 15 
13208 : 647 if .R_C_SAV [15] IS_SET 'IS BIT 15 SET 
13209 ;: 647 - then 
13210 ; 6474 begin 
13211 : 6475 
ele : 6476 if .BAD_NIB_CNT ss .CHK_SUM then ERR_FLG = ONE; 'SET ERROR FLG IF CHECK SUM ERROR 
13214 : 6478 end 
13215 ; 6479 else 
13216 ; 6480 begin 
13217 : 6481 
13218 : 6482 if .BAD_NIB_CNT neq .CHK_SUM then ERR_FLG = ONE; 'SET ERROR FLG IF CHECK SUM ERROR 
13220 : 6484 end: 
13221 : 6485 
13200 : 6486 if .ERR_FLG IS_SET 'WAS THERE A CHECK SUM ERROR 
13223 ; 6487 then 
13224 : 6488 begin 'REPORT INTERMEDIATE ERROR IF YES 
13225 ; 6489 ERRDF (70, INTER, DUMPER); 
13226 : 6490 PRINTS (SIX_FMT, FNC_21, RD _ 10, WRD_12, WRD_45, WRD_35, FNC_6); 
13227 : 6491 PRINTB (FMT-10, .CHK~SUM, .R7C_SAV); 
13228 : 649 DODU_FLG = ONE: 
13563 5 649 end; 
13533 : rane: ROW ORED COL = (.ROW ORED_ cot) (.R_C_SAV);  'OR ROW AND COLUMN DATA 

Py or {. 
1323e : 6496 PROA _ADRS = (.PROM_ADRS) Or (%0'2000'3;~!GET COLUMN DATA 
13582 rey _ 
13235 3 6499 incr index from 0 to 9 do 'GET TOTAL OFF SET COUNTS FROM THE 15 ARRAY WORDS 
13637 3 6501 if .ROW_ORED_COL C. index) IS_SET then OFF_SET_CNT C.index] = .OFF_SET_CNT C.index] + 1; 
13239 : $308 end: 
13240 ; 6504 


ae ML-11 LOGIC TEST 
T23 


! ¢g 3ML4 

13244 

ee: 
13567 : 650 
13248 ; 6508 
13692 : 6509 
13520 3 6510 
13251 ;: 6511 
13588 : $218 
13254 ; 6514 
13526 : ar 
1398 3 e215 
13258 ; 6518 
13259 ;: 6519 
13260 ; 6520 
13261 ; 6521 
13262 ; $26¢ 
13263 ; 652 
Bei Be 
13266 ; 6526 
13267 ; 6527 
13569 $255 
13270 ; 6530 
13271 ; 6531 
13576 8 653 
13273 ; 653 
13578 S338 
13676 3 6536 
13277 ;: 6537 
13278 ;: 6538 
13580 : $326 
13284 

13589 0455 004167 
13290 gt te 1627 
13291 045576 15277 
Pa} 045604 016705 
ise Basie sre 
13295 045622 150577 
13296 045626 005066 
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SEQ 0284 
14-May-1981 13:68:36 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALEML4.8L1.7 (74) 
CNT_14_BAD = ZEROES; 
incr CNT from 0 to 9 do 'COUNT HOW MANY OFFSET COUNTS GEQ 14 
if .OFF_SET_CNT C.CNT) geq 14 then CNT_14_BAD = .CNT_14_BAD ¢ 1; 
7 -CNT_14_BAD neq ZERO 'WAS ANY OFF_SET COUNTS GTR ZERO 
en 
begin 
ERRDF (71, ARR_DAT, DUMPER); ‘ERROR IF YES 
a4 -CNT_14_BAD eql 10 'WERE ALL 10 NIBBLE OFFSETS GEQ 14 
en 
PRINTB (SIX_FMT, WRD_55, WRD_54, WRD_46, WRD_51, WRD_42, WRD_40) ‘ERROR IF YES 
an" ‘ 'IF RO THEN PRINT WHICH ONES WERE 
egin 
PRINTB (FOR_FMT, WRD_46, WRD_47, WRD_42, WRD_40); 'PRINT MESSAGE 
incr CNT from 0 to 9 do 'FIND OFFSETS GEQ 14 
if .OFF_SET_CNT C.CNTJ geq 14 then PRINTB (FMT_13, .CNT, (.OFF_SET_CNT C.CNTJ)); 
'PRINT NIBBLE POSITION AND COUNT 
end; 
DODU_FLG = ONE; 
end; 
tf ,DORU_FLS IS_SET !DROP THIS UNIT IF DODU_FLG SET 
pogin 
DODU (.ML_LUN); 
DOCLN:; 
ENDTST; 
-SBTTL 4 
136324 $724: JSR R1,$SAVES 3 6399 
0000 SUB oSP 
145410 BISB #40, aML .REG+40 3 6437 
9095 Vv UT Rg 
17777 IC #177770,R5 
eel ES 
00000 CLR sp)” ; DODU.FLG 6440 


ey 


ZMLACO ML-11 LOGIC TEST 
T24 


Eee 


Beeeeyy 
RRRRRRRRRKRRKRRRRRRRRRRRERRRRERRRERER 


Se apap epepeneeneenieapatege 
SRVSFSSIYIESS MAN ISS 


AIAN 


3305 04565 

3306 565 

sa 5654 
308 2626 

3309 

$319 5664 
31 3693 
331 76 
3314 

3315 

3316 

3317 

3318 

3319 


SRENSS 


WWW 


BS 


S 


ND AWWA AA 


pat eae pete tetera 


KEEEG 


EEE 


ke a a a a ad ed a ed a ed ad dd 
SSSESE 
NS 


WAIN ANIAIIAINIAIAIAIAIAIAI SAINI 


AAR 
au 


ww 
W— 
Ww 
& 


000040 
000016 


000011 


145434 


000012 
177770 
000001 
135122 
000010 
000004 
000011 


000012 


177770 
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145434 


145340 


000012 


3ML4 


18: 


2s: 


3$: 


4$: 
5$: 


6$: 
7$: 
8$: 


o50 OA RESOTED 


R5 
10(SP) 
R5,6(SP) 
R4 


4(SP) 
(SP) 
6(SP) ,@ML.REG*+100 
#1,R1 


LSDLY,R2 


@ML .REG+230,12(SP) 
R2,R1 


R 
R1.-(SP) 
R2.-(SP) 
#177770, (SP) 
#1,-(SP5 
PC BL$GT2 
#10,SP 

RO 

9$ 

4(SP) 

R 

R2,411 
12(SP) .R3 
R 


R 
#177770,R3 


14-May-1981 
14-May-1981 


CHK. SUM.ERR 

OFF .SET.CNT,* 
CNT,* 

CNT 

CNT,* 

ADRS.CNT 

ROW. ORED.COL 
ADRS.CNT,PROM.ADRS 
TWICE 

Sr weed 


ERR.FL 
PROM. ADRS, * 
MP2 


; *,$$T 


*,SSTMP1 


: Vv 
: BIT.CNT 


BIT.CNT,* 


R.C.SAV,* 


BIT.CNT,* 


; BAD.NIB.CNT 
; BIT.CNT 


; BIT.CNT,* 


R.C.SAV, CHK. SUM 
CHK. SUM 


HK . SUM 
* , CHK. SUM 


13: 
13: 


SEQ 0285 | 


54 








s 


58 


BS 


: § 


ar 
—~ 


oAb all 
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24 SEQ 0286 
13354 ZML4 14-May-1981 13:48:54 TOPS 
13 5§ ; 14-May-1981 13:05:08  PA:< 
13357 6060 132766 000069 000013 BITB =: #40, 13 (SP) : *,R.C.SAV#1 6466 
HR Bae ai ie i om 
13 72 eae 000100 000013 10$: BITB #100,13(SP) + #,R.C.SAV#1 6468 
13361 046100 001401 BEQ 11$ 
1336¢ 046102 005203 INC R3 : CHK. SUM 
13363 046104 005002 11$: CLR Rg : 6470 
13364 046106 105766 000013 TSTB —s-:«13 (SP) + R.C.SAV#I 
13365 046112 1 BPL 12$ 
13366 046114 00520 INC R 
13367 046116 00520 INC R : CHK. SUM 
13368 046120 12$: ROR Re : 6472 
13369 046122 10 BCC 13$ 
13370 046124 026603 000004 CMP 4(SP) .R3 : BAD.NIB. CNT, CHK. SUM 6476 
13371 0461 002006 BGE 15$ 
1337 046132 00040 BR 14$ 
13373 046134 026603 000004 13$: CMP 4(SP) .R3 : BAD.NIB.CNT, CHK. SUM 6482 
13374 046140 001402 BEQ 15$ 
13375 046142 012716 000001 14$: MOV #1, (SP) : *, ERR.FLG 
13376 046146 021627 000001 15$: CMP (SP) #1 : ERR.FLG,* 6486 
13377 046152 00104 BNE 16$ 
13378 046154 104455 TRAP = 55 : 6489 
13379 046156 000106 .WORD 106 
13380 046160 010672 “WORD INTER 
13381 046162 024060 “WORD DUMPE 
13382 046164 012746 010004 MOV ENC. G (SP) : 6490 
13383 046170 012746 MOV #WRD. 35,-(SP) 
13384 046174 012746 006772 MOV MWRD.45.-(SP) 
13385 046200 012746 006426 MOV WWRD.12,-(SP) 
13386 046204 012746 006406 MOV #WRD.10,-(SP) 
13387 046210 012746 010216 MOV #FNC.21.=(SP) 
13388 p28sio 012746 006100 MOV #SIX.FMT,=(5P) 
13389 046220 012746 000007 MOV 47,- 
13390 0462 4 010600 MOV SP;RO : SP,* 
13391 26 104414 TRAP =—s_-'14 
1339¢ 046230 016616 000032 MOV 52 (SP) (SP) 7 R.C.SAV,* 
1339 34 010546 MOV R3,-(SP) + CHK.SUM,* 
13394 36 012746 004676 MOV #FAT.10,-(SP) 
13395 42 012746 000003 MOV 3, =(SP5 
13396 46 01 | MOV SP-RO : SP,* 
13397 50 104414 TRAP 
13398 52 012766 000001 000030 MOV #1,30(SP) 3 *,DODU.FLG 
13200 0 Soe #8 000010 16$ st 4 C8) 10(SP) + R.C.SAV.ROW.ORED. COL 
13401 $3 O5e766 ats 000006 BIS #2000, 6(SP) : *. PROM. ADRS 
1340¢ 0052 INC R4 : TWICE 
1340 20427 000001 CMP RG, M1 : TWICE,* 
13404 046 3 BGT 17$ 
13405 04631 167 177364 JMP 4% 
134 046314 002 17$: CLR Re : INDEX 
13407 046316 010201 18$: MOV R2,R1 > INDEX,* 
13408 04632 01 ASR R1 





oh ad 
MN 


? 
CO ML-11 LOGIC TEST MACRO M1113 18-MAY=-81 08:17 PAGE 380 








A sea 0287 
; 14-May-1981 13:48:54 TOPS 
1313 we 1a-may-1981 13:08:08 Paes 
ie esses sf 
MOV #10,R0 
i 1g oe ADD SP «RO : ROW.ORED.COL,* 
1 , 
MOV R1,<(SP) 
i 3 i MOV Re 5{$P) ; INDEX,* 
1 177770 BIC #177770, (SP) 
13 es x Sse 
13456 JSR PC _BL$GT2 
13s b300%6 ADD #i0,SP 
1 BNE 19$ 
i ; 74 oe Abo SpAt : OFFSET. CNT,® 
1S bei m fe oe 7 wn 
133 b4g40s 000011 ; cn R (f"" + INDEX,* 
INC R : ADRS. CNT 6447 
VES BE BE) coor ae | 0H. 2 
13039 bege 2 177240 one os 
13438 S464 as: ks : (NT.16.BAD 6508 
13480 ee 000016 21$: MOV #16,R2 : 6509 
13441 0464 ADD SP Re : OFF.SET.CNT,* 
1344¢ 644 10 ADD R1_R : CNT.# 
ede Sets. [gu ovooe ae dad 
13445 5 3200 INC RO : CNT.14.BAD , 
13446 52 005201 22$: INC R1 : (NT 650 
1344 54 0127 000011 cn RI att : (NT,* 
13048 57 TST R : CNT.14.BAD 6511 
ies ae fi, . ss 
107 «WORD 107 . 
: 2g Z 0079 - WORD ARR DAT 
2 476 cmp TWGE : CNT.14.BAD,* 6516 
1 23 504 01 MOV HWRD.40,-(SP) : 6518 
13458 510 01 MOV MRD. 42,-(SP) 
1345 514 01 MOV MRD.51.-(SP) 
13460 0465 1 MOV BRD. 46,~ (SP) 
ee ms a 
1346 5 1 MOV #SIX. FMT, -(SP) 
13464 046540 01 MOV ert 





REO 
aS 
re 


= 


=S3a 


ce ce ce ce ce ce ee ad eed ee ee ced ee ed eed ed 
— | 
ARAN SOS US 
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SSse 
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sess 


BAREEREERE EE 


Ntente~te-4 
Sooo 


wi 


Win 
oS 
BFR 
333 
on 
wy 
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ee ay ee se ed ee me eh ee ed ed ad dd od od dd 
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238: MOV 


248: 


25$: INC 


26$: 
273: CMP 


28$: 
RTS 


3; Routine Size: 


3; Maximum stack depth per 


-SBTTL 


P,RO 
(SP) +, (SP)+ 
mand -68;~(30) 


=< 
oot) ste? 


#FAT.13,-(SP) 
#3,-(SP) 
SP/RO 


#10,SP 

R 

R2,411 

#1,16(SP) 

#14,SP 
(SP) #1 

ML. LUN.RO 

5 

44 

#30,SP 

PC 


304 word 


T24 


s 
invocation: 29 words 


SP,* 


SP,* 
CNT 


; OFF.SET.CNT,* 
CNT,* 


CNT,* 

SP,* 

CNT 

CNT,* 

* ,.DODU.FLG 
DODU.FLG,* 


SEQ 0288 


48:54 TOPS 
:05:08 PA:< 


7 
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T24 SEQ 0289 


135 3ML4 14-May-1981 13:48:54 TOPS 
13338 ; 14 “may-1981 | 13:05:08  PA:< 
13528 046726 T24: 

13529 046726 004767 176634 1$: JSR PC, $124 : 6538 
13530 046732 104466 TRAP 66 

13531 re 9) op6000 : ROR RO 

13288 0467 10377 BLO 5 

; : 046740 000207 RTS 

1323 3; Routine Size: 6 word 

17 + Maximum stack depth eer invocation: 0 words 

12208 

13543 ; 6541 !<BLF/PAGE> 
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Toe mth : SEQ 0290 


13545 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
Bs : 14-May-19 1 13: :05:08 | PA:<NEALE>ML4.BL1.7 (75) 
13548 ; 6542 ! 

13549 ; 6543 =! 

13550 : 6544 BGNTST: 

13551 : 6545 

1 22¢ 3 o2e8 !o4 

13553 : 6547 | TEST NUMBER: TST 25 

13554 : 6548 

13555 : 6549 TEST NAME: | PROM OR FUNCTION TEST 

1 356 : 6550 } 

1355 : 6551 i TEST DESCRIPTION: 

13558 : 693¢ i 

13559 : 6553 TEST THE HARDWARE ORING OF 

13560 : 6554 THE MEMORY ARRAYS’ PROM 

13561 : 6555 ROW COLUMN DATA BY: 

1356 : 6556 

13563 ; 6557 1, READING AND STORING 128 

13564 : 6558 WARE ORED ROW COLUMN 

13565 : 6559 DATA 

13566 : 6560 | 

13567 : 6561 | 2. THEN IN PROM DISABLE MODE 

13568 : 6562 | AND VIA SOFTWARE CONTROL, 

13569 : 6563 READ AND OR PROM ROW 

13570 : 6564! COLUMN DATA AND COMPARE 

13571 : 6565} AGAINST THE RESPECTIVE 

1357¢ : 6566 STORED HARDWARE ORED DATA. 

13573 : 6567 

13574 : 6568 i- 

13575 : 6569 

13576 ;: 6570 local 

13577 : 6571 R_BITS, ‘PROM ROW DATA 

13578 : 657 C“BITS iPROM COL DAT 

13579 : 657 S$Q_ORED, i SOF TWARE CALCULATED PROM ORED DATA 
13580 ; 6574 HW” SAVE, ‘SOFTWARE PROM ORED DATA 
13581 : 6575 DOBU_FL6; iDROP UNIT FLAG 

1358 : 57 

13583 ; 57 oe: 

13584 : 657 

13585 : 65 DODD FL FL = ZERO; 

13586 : 6580 DAT 

13587 : 6581 FIRST BLK_XFER (); 'SET UP A FIRST BLOCK XFER 
13388 : 698¢ ML ML_FUNC ="write; iDO A WRITE FUNCTION 

I 3350 3 e383 iner PROM ADRS from 0 to 127 do 'READ AND STORE 128 HARDWARE PROM ORED DATA 
13598 6386 DELAY CONE US) ; 

13593 : 658 a. TP PROM_ADRS] = .MLPD; 'READ HARDWARE PROM ORED DATA 
13594 : 6588 at Ck s = ONE; iCLOCK NEXT ONE OUT 

13595 ; 6589 end; 

13596 : 6590 

13597 ; 6591 CLR_MBUS; 

13598 : 699¢ PR PROM_DIS = ONE; 'SET PROM DISABLE MODE 
13599 : 659 


ee ML-11 LOGIC TEST 
T24 
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SEQ 0291 

13601 :ML4 14-May-1981 1 :48:54 TOPS=20 Bliss-16 V2(212) 
: ‘ 3 14-May-1981 15:05:08 PA:<NEALE>ML4.8L1.7 (75) 
1 4 6594 iner PROM_ADRS from 0 to 127 do !CALCULATE 128 SW ORED DATA & COMPARE TO HW TABLE 

3 n 
1 : 6996 A = .PROM_ADRS; 'LOADING MLPA INITIATES A PROM READ 
1 ; 659 DELAY (ONE_US); 
1 : 6998 R BITS = .ALPD: 'SAVE ROW DATA 
1 : 65 PA = .PROM_ADRS or %0'2000'; 'ENABLE COLUMN DATA ADRS 
13610 : 6600 DELAY (ONE_US); 
13611 : 6601 C BITS = .ALPD: 'SAVE COL DATA 
1 iF ; 660¢ SQ_ORED = .R_BITS or .C_BITS; iCALCULATE SOFTWARE ORED 

Py a= s e - on e = PY ° 
13 6603 HW-SAVE = .H@_OR_TBL C.PROM_ADRSJ iGET RESPECTIVE HARDWARE ORED 
13615 : 6605 if (.HW_SAVE<0, 9>) neq (.SW_ORED<O, 9>)  !COMPARE SW & HW ORED 
13616 ;: 6606 then 
13617 : 6607 begin 'IF NEQ THEN ERROR 
13618 : 6608 ERRDF (76, ARR_DAT, DUMPER); 
13619 : 6609 PRINTB (FOR_FMT, WRD 35, WRD 36, WRD_19, PHR_4); 
13620 ; 6610 PRINTB (FMT_2, .SW_ORED<O, 95, .HW_SAVE<O, 95, (.SW_ORED<O, 9> xor .HW_SAVE<O, 9>)); 
13621 : 6611 DODU_FLG = ONE; 
13656 : o6i¢ end; 
1366 3 661 
13658 gers _ 
13626 : 6616 ENDSUB; 
13627 : 6617 if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU FLG IS_SET 
1058 3 osi8 an ‘ 

Ps n 
13650 6620 DOBU. (.ML_LUN) ; 
13631 : 6621 DOCLN; 
13035 3 66 g 
13634 ; 4 ENDTST: 
13639 .SBTITL $725 
13643 004167 135150 $725: JSR R1,$SAVES ; 6540 
13644 162706 000010 SUB #10,SP 
13645 1044 1$: TRAP 3s 2 F 6575 
1 152777 000040 144232 BISB #40,aML.REG+40 F 6577 
1364 01 705 144614 MOV ML bur RS 
13648 708 177770 BIC #177770, R5 
13649 14 7? 166214 BICB = #7, AML .REG*+4 
13650 150577 144210 BISB R5.aML.REG+40 
13651 005 16 CLR (SP) 3 DODU.FLG 6579 
1365¢ 15277 10 144260 BISB #10,aML.REG+120 ; 6580 
Hed: Seals THT US8EP a bite Sotdme'aete re : eH 
13655 125995 000061 122138 BISB #61.aML.REG ‘ 
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CZMLACO ML-11 LOGIC TEST 


$T2 


3 
ek 


3 


sie 


S 
nm 


RORORNEROUESCRAPORS 


Seeseneneranee sa tssanvoeeeeereResoEs 


RRRRELKRLKKLELKKLRKRLRLRKEKEKRKRKLLKKELKELLREREPERERERE 


Pp en i i tp tp i> > Sa > > > 
io 


NN NNN NN 
— = 
Nm 


SeSeesssseseer 


3s 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
q 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWNWAWWNAAA 
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144306 
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133336 
17777 
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144046 
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144072 
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132722 
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144166 
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132652 
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-REG+230,HW.OR. TBL (RS) 
#20,0AL “REGS 120 


R 
R4 4177 
#40, @ML .REG+40 


a7 
RS. aML .REG+40 
#45, QML .REG 


R3,@ML.REG+100 
#1,R4 


8$ 
@ML .REG*+230,4(SP) 


#2000, Rs 
R5.aML .REG+100 
#1,R4 


12$ 
@ML .REG+230,2(SP) 
),R1 


SEQ 0292 


14-May-1981 13:69: TOPS 
14-May-1981 13:05:08 PA:< 


; PROM.ADRS 6584 
; *,$STMP2 6586 


; *,$STMPI 
Bite 
; SSTMP2 
; PROM.ADRS, « 


; PROM.ADRS 
; PROM.ADRS,* 


; PROM.ADRS 

; PROM.ADRS,* 
; *,SSTMP2 

; *,SSTMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 

: *,R.BITS 

: PROM.ADRS,* 
; *, SSTMP2 

; *,SSTMP1 
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$125 


SNS SAG 
ad od 
OONAOUSW 


cc cc ce nd ce ce eed ce ad eed ee ed ed ed 
~ 
Ne 
PLRLRLLLLL 
y~ 


RERRLRRLREF 


~~ > bP! 
= 
mo 


N 


“J 


aay “ 
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000024 


sML4 


16$: INC 
MP 


17$: CMP 


18$: 
RTS 


; Routine Size: 


3; Maximum stack depth per 


HW. OR. TBL(RS) ,R2 
R1_R4 

#177000, R4 

R2,R 

#177000,R5 

R5,_R4 


R2,-(SP) 
#177000, (SP) 


#197 ys 


(SP) 
#FMT.2,~(SP) 


#4,-(SP) 
SP.RO 


#1,26(SP) 
#24,SP 


183 word 


s 
invocation: 20 words 


* , HW. SAVE 
SW.ORED,* 


HW. SAVE, * 


. SP,* 
; HW.SAVE,* 


SW.ORED,* 


HW. SAVE ,* 
SW.ORED,* 


SP,* 
* ,DODU.FLG 


PROM. ADRS 
PROM.ADRS ,* 


DODU.FLG,* 


14-May-19 


SEQ 0293 
gH BES 


TOPS 
PA:< 


6605 


3 


6609 


6610 
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si25 * sea 0294 


2 

13769 sML4 {e-fey~i 30 13: 7:48:54 TOPS 
13770 : 14-May-1981 13:05:08 PA:< 
13771 

1377 

1377 

13781 

13782 -SBTTL T25 

1 ree 067388 T25:: 

1378 e350 004767 177216 1$: JSR PC,$T25 : 6622 
13788 047524 104466 TRAP 66 

13789 047526 op e0 ROR RO ‘ 

13790 0475 10377 BLO 1s 

it Ye 047532 000207 RTS PC 

13998 3; Routine Size: 6 words 

it tan} : Maximum stack depth per invocation: 0 words 

13800 

13801 ; 6625 !<BLF/PAGE> 


oan 
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CZMLA 
T25 SEQ 0295 
13803 ;ML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
| 4 : 14-May-1981 13:68:08 CP eNEALES Le? (76) 
1 ; 6626 =! 
1 3 6627 =! 
1 3 6608 BGNTST; 
1 ; 66 
13810 ; 6650 !++ 
13811 ;: 6631 ! TEST NUMBER: TST 26 
1g 3 O65¢ ! 
13813 ;: 6633 ! TEST NAME: UV ADRS ERROR TEST 
13814 ;: 6634 =! 
13815 ;: 6635 ! TEST DESCRIPTION: 
13816 ; 6636 =! 
13817 ; 6637! TEST THE DETECTION OF UV ADRS 
13818 : 6638 =! ERRORS BY: 
13819 ; 6639 ! 
13820 ; 6640 ! 1. GENERATING PROM DATA PATTERN 
13821 ; 6641 ! FROM 0 TO %0°177777' 
1383¢ : 6668 ! DETERMINE WHETHER RESPECTIVE 
13823 ; 6643! PATTERN IS GOOD/OR BAD 
13824 ; 6644 =! PROM DATA. 
13825 ; 6645! 
13826 ; 6646! 2. VIA DAT_DM AND PROM R/W 
13827 ; 6647 ! MODES PRESENT GENERATED 
13828 ; 6648 =! PROM DATA TO THE UV ADRS 
13829 ; 6649 ! ERR PROM. 
13830 ; 6650 ! 
13831 ; 6651! 3. TEST ERROR CONDITIONS FOR 
13832 ;: 6652 =! CORRECT RESPONCE TO GOOD/ 
13833 ; 6653! OR BAD PROM DATA. 
13834 ; 6654 ! 
13835 ; 6655 !-- 
13836 ; 6656 
13837 ;: 6657 local 
13838 ; 6658 DODU_FLG. 'DROP UNIT FLAG 
13839 ; 6659 HIGH_CNT, 'STORES PROM DATA CHECK SUM BITS 
13840 ; 6660 PROM-DATA : bitvector [16], 'STORES PROM DATA 
13841 ; 6661 LOw_CNT, 'STORES SUM OF PROM DATA BITS <9:0> 
13848 : 666 "TEMPORARY STORAGE 
13843 ; 566 ERR_FLG, 'ERROR FLAG 
13844 ; 6664 GTR_FLG; 'SETS WHEN PROM DATA BIT 15 IS A ONE 
13pee : 6663 DODU_FLG = ZERO 
sete 3 6666 = 3 
13847 ; 6667 PROM_DATA = -1; 
13849 : 9 do 'TEST ALL POSSIBLE PROM DATA COMBINATIONS 
13850 ; $69) begin 
13851 : 6671 PROM_DATA = .PROM_DATA + 1; ! INCREMENT PROM_DATA 
13826 3 667 BGNSDB; 
13855 ; 667 CLR_MBUS; 
13854 ; 6674 ERR_FLG = ZERO; 
13855 : 6675 LOW-CNT = ZEROES; 
13856 : 667 HIGA_CNT = ZEROES; 
13857 ; 667 GTR_FLG = ZERO; 
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Tes SEQ 0296 


59 3ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
3 14-May-1981 13:05:08 § PA:<NEALE>ML4.BL1.7 (76) 
incr BIT_CNT from 0 to 9 do !COUNT PROM DATA BITS <9:0> 
if .PROM_DATA C.BIT_CNT] IS_SET then LOW_CNT = .LOW_CNT + 1; 
HIGH_CNT = .PROM_DATA<10, 3>; !GET PROM DATA CHECK SUM BITS 
if .PROM_DATA [13] IS_SET then HIGH_CNT = .HIGH_CNT + 1; !ADD IN BIT 13 IF SET 
if .PROM_DATA [14] IS_SET then HIGH_CNT = .HIGH_CNT + 1; !ADD IN BIT 14 IF SET 
if .PROM_DATA [15] IS_SET then HIGH_CNT = .HIGH_CNT + 1; !ADD IN BIT 15 IF SET 
if .PROM_DATA [15] IS_SET then GTR_FLG = ONE; 'SET FLAG IF BIT 15 IS SET 
DAT_DM_XFER (); 'SET UP A DATA DIAG MODE XFERR 
P = : : OM READ WRITE 


DAT_CLK = ONE; !CLOCK PROM DATA INTO UV PROM 
ae IS_SET !SEE IF PROM DATA CAUSED A UV ERROR 
begin 
I ee IS_SET 'UNS IS_SET. SEE IF GTR FLG IS SET 
reap = -PROM_DATA; 'LOAD TEMP WITH PROM DATA 
TEMP = .TEMP~and %0'162000'; 'SEE IF THESE BITS ARE SET IN PROM DATA 
oe eql %0°162000' !THESE BITS SET AUTOMATICALLY CAUSE A UNS 
begin 
| eel geq .HIGH_CNT 'LOW<9:0> SHOULD BE ISS THAN THE HIGH<15:10> IF GTR FLG IS S 
‘ERROR IF LOW<9:0> IS GEQ HIGH<15:10> 
ere rnaS. WRD_32, WRD_6, WRD_33, WRD_24); 


Sg SP aseSseNeOSERES oa iste sa eee te TRON EES 


peagin 

ERRDF (72, ARR_DAT, D 
PRINTB (SIX FMT, WAD 
ERR_FLG = ONE; 


Nt ad ot 


end; 
end; 
end 
else 'GTR FLG IS NOT SET 
begin 
if -LOW_CNT eql .HIGH_CNT 'LOW<9:0> SHOULD BE NEQ HIGH<15:10> 
en 
begin ‘ERROR IF EQL 
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al 


SEQ 0297 


13915 ;ML4 14-May-1981 13:69:38 TOPS-20 Bliss-16 V2(212) 
: BIg 3 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (76) 
13918 ; 6730 ERRDF (73, ARR_DAT, DUMPER); 

13318 ; 6731 PRINTB (SIX FMT, WAD_34, PHR_S, WRD_32, WRD_6, WRD_33, WRD_24); 

1 360 : Ors ERR_FLG = ONE; 

133 1: 67 end; 

13922 ; 6734 

13923 ; 6735 end 

13924 ; 67 

1362 3 673 end 

1 358 3 6738 else 'UNS WAS NOT SET 

13927 ; 6739 begin 

13928 ; 6740 

1336) 3 6741 if .GTR_FLG IS_SET 'SEE IF GTR FLG IS_SET 

13930 ; 6742 then 

13931 ;: 6743 begin 

13932 ; 6744 TEMP = .PROM_DATA; 'LOAD TEMP WITH PROM DATA 

1 er ’ oH TEMP = .TEMP and £0'162000'; 'SEE IF THESE BITS ARE SET IN PROM DATA 
13 ; 6747 if .TEMP neq %0°162000' 'IF THESE BITS ARE SET THEN UNS SHOULD BE SET 
13936 ;: 6748 then 

13937 ;: 6749 begin 'ERROR UNS IS NOT SET 

13938 ;: 6750 ERRDF (74, ARR_DAT, DUMPER): 

13939 : 6751 PRINTB (SIX FMT, WAD_34, PHR_1, WRD_32, WRD_5S, WRD_33, WRD_24); 
13940 ; 675 RR_FLG = ONE; 

13941 ; 675 end 

13942 ;: 6754 else 'BITS 162000 ARE NOT SET 

13943 ; 6755 begin 

13944 ;: 675 

13945 ; 675 if .LOW_CNT lss .HIGH_CNT 'LOW<9:0> SHOULD BE GEQ HIGH<15:10> 
13946 ; 6758 then — 
13947 : 6759 begin ‘ERROR IF LSS 

13948 ; 6760 ERRDF (75, ARR_DAT, DUMPER);: 

13949 : 6761 PRINTB (SIX FMT, WRD_34, PHR_1, WRD_32, WRD_S, WRD_33. WRD_24); 
13950 ; 676 ERR_FLG = ONE; 

13951 ;: 676 end: 

13326 3 6764 

13953 ; 6765 end 

13954 ;: 6766 

13955 ;: 676 end 

12936 : 6768 else 'GTR_FLG IS NOT SET 

13957 ; 6769 begin 

13958 ;: 6770 

13959 ;: 6771 if .LOW_CNT neq .HIGH_CNT 'LOW<9:0> SHOULD EQL HIGH<15:10> 
13960 ; 677 then 

13961 ; 677 begin ‘ERROR IF NEQ 

13368 g 6774 ERRDF (108, ARR_DAT, DUMPER); 

13963 : 6775 PRINTB (SIX FMT, WRD_34, PHR.1, WRD_32, WRD_S, WRD_33. WRD_24); 
13964 ; 677 ERR_FLG = ONE; 

Bei oe on 

13969 3 re end 

ieece 3 6780 

13969 ; 6781 end; 
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#38 seo 0298 | 
13971 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) | 
ie : 14-May-1981 13:05:08 | PA:<NEALE>ML4.8L1.7 (76) | 
13974 ; 678 
13975 : 678 if .ERR_FLG IS_SET 'SEE IF ERROR FLG GOT SET 
1 Bre : 6784 then 
1397 : 6785 begin 'PRINT FAILING PROM_DATA AND SET DODU_FLG 
13978 : 6786 PRINTS (FMT_7, .PROM_DATA); 
13979 : 6787 DODU_FLG = ONE; 
13980 : 6788 end; 
13981 : 6789 
3982 : 6790 ENDSUB; 
13983 : 6791 end 
13984 : 6798 until .PROM_DATA eql %0'177777'; 'TRY ALL BIT COMBINATIONS 
13986 : 6794 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS SET 
13987 ;: 6795 then 
13988 : 679% begin 
13989 : 6797 DODU (.ML_LUN); 
13990 : 6798 DOCLN: 
13991 : 6799 end; 
13998 : 6800 
13993 : 6801 ENDTST: 
13997 
13998 .SBTTL $126 
14002 047534 004167 134356 $726: JSR R1, $SAVES : 6624 
14003 047540 162706 000012 SUB #12,SP 
047544 005066 000006 CLR 6(SP) : DODU.FLG 6666 
14005 047550 012766 177777 000010 MOV #-1,10(SP) + *,PROM.DATA 6667 
14006 047556 005266 000010 1$: INC 10(SP) + PROM.DATA 6671 
14007 047562 104402 23: TRAP 2 
14008 047 152777 000060 143422 BISB #40,aML.REG+40 : 6672 
14009 047572 016705 144004 MOV mL BUT R5 
14010 047576 042705 177770 BIC #177770,R5 
14011 047602 142777 000007 143404 BICB = #7, AML. .REG*+40 
1401¢ 047610 150577 143400 BISB R5.aML.REG+40 
14013 047614 005001 CLR R1 : ERR.FLG 
14014 047616 005066 000002 CLR 2(SP) > LOW. 
14015 047622 00500 CLR : HIGH. CNT 
14016 047624 005066 000004 CLR 4(SP) + GTR.FLG 
14017 047630 005 CLR RS : BIT.CNT 
14018 04.7652 010504 3$: MOV R5.R4 : BIT.CNT,* 
14019 047634 006204 ASR RG 
14020 047636 ASR R4 
14021 04764 ASR RG 
14028 047642 01 02 000010 MOV #10,R2 
14023 047646 ADD SP.R2 : PROM.DATA,* 
14024 047650 060204 ADD R2.R4 
14025 047652 010446 MOV R4,-(SP) 





we 
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C 

$T26 SEQ 0299 
14027 ZML4 14-May-1981 13:48: 
12098 : 14-May-1981 13:05: 
14030 047654 010546 MOV RS,-(SP) ; BIT.CNT,* 
14031 047656 042716 177770 BIC F 57990 (SP) 
14058 047 12746 000001 MOV #1,-(SP5 
14033 047 046 CLR -(§P) 
14034 047670 004767 133244 JSR PC .BL$GT2 
14035 047674 706 000010 ADD #10,SP 
14036 047700 005300 DEC RO 
14037 047702 001002 BNE 4$ 
14038 047704 005 000002 INC 2(SP) : LOW.CNT 
14039 047710 00520 4$: INC R5 + BIT.CNT 
14040 047712 020527 000011 CMP R5,411 ; BIT.CNT,* 
14041 047716 003745 BLE 
14042 047720 016603 000010 MOV 10(SP) ,R3 : PROM.DATA,HIGH. CNT 
14043 047724 006203 ASR R3 t HIGH. CNT 
14044 047726 006203 ASR R3 t HIGH. CNT 
14045 047730 000303 SWAB RS. : HIGH. CNT 
14046 047732 042703 177770 BIC #177770,R3 + *,HIGH. CNT 
14047 047736 132766 000040 000011 BITB #40,11(SP) t *.PROM.DATA+1 
14048 047744 001401 BEQ 5$ 
14069 047746 005203 INC R3 : HIGH. CNT 
14050 047750 132766 000100 000011 5$: BITB #100,11(SP) + *,PROM.DATA+1 
14051 047756 001401 BEQ 6$ 
ys 54 047760 005203 INC R3 : HIGH. CNT 
14053 047762 005005 6$: CLR R5 : 
14054 047764 105766 000011 TSTB 11(SP) : PROM.DATA+1 
14055 047770 100002 BPL 7$ 
14056 047772 005205 INC RS 
14057 047774 005203 INC R3 : HIGH. CNT 
14058 047776 5 7$: ROR R5 : 
14059 050000 103003 BCC 8S 
14060 050002 012766 000001 000004 MOV #1,4(SP) : *,GTR.FLG 
14061 05001 767 1466146 8$: JSR PC DAT.DM.XFER B 
14062 050014 152777 000100 143252 BISB #100, aML.REG+120 ; 
14 050022 01 10 MOV 1 ‘ : PROM.DATA,* 
14064 050026 010577 143352 MOV R5,aML .REG+230 
14065 050032 012777 000061 143114 MOV MLR : 
14066 05 152777 000020 143226 BISB #20, aML.REG+120 : 
14067 050046 032777 040000 143160 BIT #40000, aML .REG+60 : 
14068 050054 901590 BEQ 
14069 050056 026627 000004 000001 CMP 4(SP) #1 : GTR.FLG,* 
14070 08 001042 BNE 
14071 05 010516 MOV R5, (SP) : *, TEMP 
14072 050070 042716 015777 BIC #15777, (SP) > *, TEMP 
14073 050074 021627 162000 CMP (SP) ,#-16000 : TEMP,* 
14074 050100 001003 BNE 9$ 
14075 050102 026603 000002 CMP 2(SP) ,.R3 3 LOW.CNT,HIGH.CNT 
14076 30106 902002 BGE 10$ 
14077 05011 16 000422 9$: JMP 16$ 
14078 050114 104455 10$: TRAP 55 ; 
14079 050116 000110 .WORD 110 
14080 050120 010570 “WORD ARR.DAT 
14081 050122 024060 “WORD  DUMPER 
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SEQ 0301 
14139 7ML4 14-May-1981 13:48:54 TOPS 
14140 ; 14-May-1981 13:05:08  PA:< 
1614¢ 050 29 113 WORD 
14143 050372 01057 “WORD ARR.DAT 
14144 050374 024 ;WORD  DUMPER 
14145 050 76 012746 552 MOV MWRD.24,=(SP) : 6761 
14166 504 12746 54 MOV MRD. 33,-(SP) 
14147 0504 12746 30 MOV 35, -(SP) 
14148 05061 oI 746 6 MOV -30,=(SP) 
14149 30616 12746 00 MOV “4 =(SP) , 
14150 0504 12746 906660 MOV 34,(SP) 
14151 050426 012746 0061 MOV #SIX, FMT .=(SP) 
1619¢ 050432 012746 7 MOV 7 
14153 050436 010600 MOV SP,RO 3 SP,* 
14154 050440 104414 TRAP ‘16 
14155 030442 000431 BR 15$ : 6762 
14156 050444 026603 000002 148: CMP 2(SP) ,R3 : LOW. CNT,HIGH.CNT 6771 
14157 050450 0014 2 BEQ 168 
14158 050652 10445 TRAP ss 5§ : 6774 
14159 050454 154 «WORD 154 
14160 050456 910570 ;WORD ARR.DAT 
14161 050460 024060 “WORD  DUMPER 
1416¢ 050462 012746 006552 MOV MWRD. 26 ,-(SP) : 6775 
14163 050466 012746 006654 MOV WWRD. 33,-(SP) 
14164 050472 012746 006330 MOV D.5,-(SP) 
14165 050476 012746 006646 MOV D.32,-(SP) 
14166 050502 012746 007366 MOV #PHR.1,-(SP) 
14167 050506 012746 006660 MOV -34,-(SP) 
14168 050512 012746 006100 MOV #SIX.FMT,-(SP) 
14169 050516 012746 000007 MOV 7 
14170 03052 010600 MOV ¥ 3 SP, 
14171 050524 104414 TRAP ‘14 
1417 0505¢6 012701 000001 15$: MOV #1,R1 : *,ERR.FLG 6776 
14173 0505 06 706 900020 ADD #20,SP : 6773 
14174 050536 02012 1 16$: CMP R1,41 : ERR.FLG,* 6783 
14175 050542 901014 BNE 17$ 
14176 050544 010546 MOV R5,-(SP) : 6786 
14177 050546 012746 004562 MOV #FAT.7,-(SP) 
14178 050552 012746 000002 MOV #2,-(SP) 
14179 050556 01 MOV SP,RO : SP,* 
14180 050560 104414 TRAP 
14181 0505 12766 000001 000014 MOV #1,14(SP) 3 *,DODU.FLG 6787 
1618¢ 5057 706 000006 ADD #6. SP : 6785 
14183 050574 46 17$ TRAP 6 : 6788 
14184 050576 906000 ROR 
14185 30600 10 3 BHIS 18$ 
14186 99060 167 176754 JMP 
14187 05 5205 18$ INC R5 ; 6792 
14188 05061 140 BE 19$ 
14189 95061 167 176740 JMP 1$ 
14190 05061 7 000006 000001 19$: CMP 6(SP) a1 : DODU.FLG,* 6794 
14191 050624 001 BNE 0$ 
1619¢ 05 16700 142746 MOV ML. LUN.RO : 6797 
14193 050632 104451 TRAP 5 
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ACO ML=11 LOGIC TEST 


6802 


3ML4 
000012 208: 

T26: 
176664 1$: 
' <BLF /PAGE> 
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; Routine Size: s 
3; Maximum stack depth per invocation: 


3; Routine Size: 
3; Maximum stack depth per invocation: 


TRAP 44 
ADD #12,SP 
RTS PC 


292 word 


-SBTTL 126 

JSR PC,$T26 
TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 


6 words 


19 words 


0 words 


14-May-198 
14-May-198 


115 


SEQ 0302 
2:48:54 TOPS 
:05:08 PA:< 

6624 
6799 


Ss 
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T26 SEQ 0303 


14235 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
14 : 14-May-1981 13:05:08 | PA:<NEALEDML4.8L1.7 (77) 
14 3 6803 ! 

14239 ; 6804 

1? me ; 6805 BGNTST; 

14 4¢ : red 144 

14263 ; 6808 i TEST NUMBER: TST 27 

14065 : 6810 TEST NAME: INITIAL ARRAY TEST 

138 ; 6812 ; TEST DESCRIPTION: 

14249 : 6814 DUE TO THE NATURE OF THE DEVICE 

14290 : 6815 | THERE EXISTS KNOWN BAD ARRAY 

16251 : 6816 DATA LOCATIONS. 

14588 : 6818 | THEREFORE TO INITIALLY TEST THE ARRAYS’ 

14254 : 6819 | TIMING AND CONTROL LOGIC A 

14255 : 6820 ! NIBBLE THRESHOLD OF 36 BAD NIBBLES 

14256 : 6821} OUT OF 100 NIBBLES TESTED WILL BE 

14257 : 6822 | TOLERATED BEFORE DETERMINING CONTROL 

146258 ; 6823 LOGIC TO BE IN ERROR. 

14260 ; 6825 THE ARRAYS* ARE INITIALLY TESTED BY: 

14262 : 6827 / 1. VIA DAT_DM MOD WRITE DATA PATTERNS 

Batt ee oe fo ge 

14265 : 6830 ‘ 

14266 : 6831 | 2. TEST EACH NIBBLE (4 BITS) FOR 

14267 : 6832 | 1°S AND O'S AND COUNT EACH BAD 

14268 ; 6833 NIBBLE ENCOUNTERED. 

14270 : 6835 3. IF ACCUMULATED BAD NIBBLES 

14271 ; 683 : EXCEED 36 THEN REPORT AN ERROR. 

14273 : 6838 i-- 

14274 : 6839 

14275 ; 6840 local 

14 %6 : 6841 TST_PAT, 'TEST PATTERN 
14277 : 6842 BAD-NIB. CNT, iNUMBER OF BAD NIBBLES FOUND 
14 28 ; 6845 ERR~FLG: iERROR FLAG 

14280 : 6845 TST_PAT = ONES; 

14281 ; 6846 BAD-NIB_CNT = ZEROES; 

14388 3 6848 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
14285 : 6850 SUB; 

14286 ; 6851 CLR_MBUS; 

14287 : 689¢ MLDT = .TST_PAT; 'LOAD TEST PATTERN INTO DIAG REGISTERS 
14288 : 689 MLD2 = .TST~PAT: 

14289 : 54 MLE2 = .TST~PAT: 


> 


Re RO RR RaS 
NOW 


Seesseascsss 


Be Se Ge Se Ge Se Ge Fe Ge Be Be Ge Ge Be Ge Fe Ge Ge Be Ge Se Ge Be Ge Se Ge Se Ge Fe Ge Be Be Ge Ge Ge Ge Ss Be Ge Se Be Ge Be Se Ge Se Se 
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Parr "BLK ONFER 0: 
MLCS1"= write; 


incr on from 0 to 4 do 
n 
DELAY (ONE_US); 
DAT_CLK 


= ONE; 
end; 
CLR BUS: 
DAT 
PIRST. "BLK. OXFER QO: 
CS1°"= rea 


ML 

DELAY (ONE “U8) 

incr ARR_WRD from 0 to 4 do 
begin 


DAT CLK = ONE; 
DELAY (ONE_US); 
RD_LNG_WRD: 


incr NIB_PTR from 0 to 9 do 


egin 
TS?_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); 
if .ERR_FLG IS_SET then BAD_NIB_CNT = 


end; 
end; 
TST_PAT = not .TST_PAT; 
ENDSUB; 


689 
6892 if .BAD_NIB_CNT gtr 36 
6893 then ° 
pete: pesto 
95 ERRDF (77, ASYNC, DUMPER): 
68 PRINTB (FIV_FMT, WRD_22, 
689 DODU (.ML_LON); 
689 DOCLN; 
68 end; 
6900 
6901 ENDTST; 





-SBTTL $127 


PHR_4, WRD_12, WRD_45, FNC_14); 







SEQ 0304 
yp aad 13: :48:54 TOPS-20 Bliss-16 V aie} 
14-May-1981 15:05:08 PA:<NEALE>ML4.BL1. 
!SET DIAG MODE 


DATA 
'SET UP A FIRST BLK XFERR 
!DO A MBUS WRITE FUNCTION 


'CLOCK 5 WORDS INTO MEMORY 





!SET DATA DIAG MODE 

'SET UP A FIRST BLK XFERR 

!DO A READ FUNCTION 

'READ THE 5 WORD IN MEMORY 

!CLOCK OUT A WORD INTO THE DIAG REGS 

!READ THE DIAG REGISTERS 

'READ THE 10 NIBBLES IN THE WORD 

!COMPARE TST PAT TO NIBBLE UNDER TEST 
-BAD_NIB_CNT + 1; 

!INCREMENT BAD_NIBBLE COUNT IFERR_FLG SET 


!REPEAT WITH COMPLIMENT TST PAT 


'SEE IF 36 OUT OF THE 100 XFERRED WHERE BAD 
'ERROR IF GTR 36 
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$12 SEQ 0305 
14347 2ML4 14-May-1981 13:48:54 TOPS 
1 : : 14-May-1981 13:05:08 PA:< 
14353 050660 167 133232 $127: JSR R1,$SAVES ; 6801 
14354 050664 024646 CMP =(§P) ,=(SP) 

14355 990666 le 01 177777 #-1,R1 : *,TST.PAT 6845 
14 36 0506 O46 CLR =(SP) + BAD.NIB.CNT 6846 
1435 950674 00500 CLR R5 : TWICE 6848 
14358 30676 194402 1$: TRAP = 2 : 6849 
14359 050 152777 000040 142306 BISB #40,@ML.REG+40 ; 6850 
14360 050 016704 142670 MOV mL bur 

14361 050712 04 204 177770 BIC #177770, R4 

14362 050716 142777 000007 142270 BICB = #7, AML .REG*+40 

14363 050724 150477 142264 B1SB R4 QL .REG*40 

14364 050730 010177 142410 MOV R1,aML .REG*+170 : TST.PAT,* 685 
14365 050734 010177 142414 MOV R1,aML.REG+2 : TST.PAT.* 685 
14366 050740 010177 142370 MOV R1_ aM .REG+160 : TST.PAT.* 6854 
14367 050744 152777 000010 142322 BI1S8 #10, aML.REG+120 ; 6855 
14368 050752 004767 145062 JSR PC,FIRST.BLK.XFER : 6856 
16369 050756 012777 000061 142170 MOV #61, aML REG : 6857 
14370 050764 90¢ CLR + CNT 6859 
14371 030766 012703 000001 28: MOV #1,R3 : *,SSTMP2 6861 
1437¢ 050772 001411 $: BEQ 

1437 050774 016704 131116 MOV SDLY.R4 : *,SSTMP1 

14374 1 001404 BEQ 

14375 051002 005 000004 4$ CLR 4(SP) : SSTMP 

14376 051006 005 DEC + $STMP1 

14377 051010 001374 BNE 4$ 

14378 051012 005303 5$: DEC R3 : SSTMP2 

14379 051014 0007 BR 33 

14380 051016 3077 000020 142250 6$: BISB #20,@ML.REG+120 : 6862 
14381 051024 00520 INC Re : CNT 685 
1438¢ 051026 02022 000004 CMP R2,A4 : CNT,* 

14383 051032 003755 BLE 2 

14384 051034 152777 000040 142152 BISB #40,a@ML.REG+40 : 6863 
14385 051042 91 704 1425346 MOV ML 

14386 51 704 177770 BIC #177770, R4 

14387 051052 142777 7? 162134 BICB ss #7, AML .REG+4 

14388 051 150477 10080 BISB R4.aML.REG+ 

146389 051064 15 10 142202 BISB8 #10,aML.REG+120 : 6866 
14390 051072 004767 14474 JSR PC FIRST.BLK.XFER ; 625 
14391 051076 18 142050 MOV #7i gr .REG : 6868 
14 3¢ 051104 012703 1 MOV #1LR > *,SSTMP2 6869 
1439 31119 1411 7$: BEQ 10$ 

14394 051112 016704 131000 MOV SDLY.R4 : *,SSTMP1 

14395 05111 1404 BEQ 

14 % 511 5 000004 8$: CLR 4(SP) : SSTMP 

14397 051124 005 DEC R4 : $STMP1 

1s BBHISS lar ms: Be ssi2 

14400 05113 766 7 

14401 051134 00500 10$ CLR R > ARR.WRD 6871 
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142130 


#20 -REG+1 
sign see 


12$ 

@ML .REG+170,D1. TEMP 
aml. 56s Slag 
oe -RESOISSS - TEMP 


PC; TST.LNG.WRD 
10(SP) #1 
17$ 


6(SP) 
#6,SP 


#PHR.4,-(SP 

MRD. 20,-(SP) 

#FIV.FMT,-(SP) 
(SP) 


4 


: *,S$STMP2 
; *,SSTMP1 


3 SSTMP 
3 SSTMP1 


; SSTMP2 


3; NIB.PTR 

; NIB.PTR,* 

3; TST.PAT,* 

; ERR.FLG,* 

; ERR.FLG,* 

; BAD.NIB.CNT 


; NIB.PTR 
; NIB.PTR,* 


: ARR.WRD 
: ARR.WRD,* 


; TST.PAT 


; TWICE 
; TWICE,* 
; BAD.NIB.CNT,* 


SEQ 0306 


14-May-1981 13:48:54 TOPS 
14-May-1981 13:05:08 


PA:< 


6873 
6874 
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104466 


TOs773 
000207 


6902 !<BLF/PAGE> 


208: 
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MOV ~LUN,RO 
TRAP 3 


TRAP = & 
ADD #16,SP 
ADD #6,5P 
RTS PC 


3; Routine Size: 177 


words 
: Maximum stack depth per invocation: 


T2?7:: 


1$: 


; Routine Size: 
: Maximum stack depth per invocation: 


-SBTTL 127 

JSR PC,$127 
TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 


6 words 





SEQ 0307 
14-May-1981 13:48:38 TOPS 
14-May-1981 13:05:08 PA:< 

é 6897 

$ 6894 

$ 6801 
16 words 

s 6899 
0 words 


aor 
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SEQ 0308 
14502 :ML4 14-May-1981 13:48:54  TOPS=-20 Bliss-16 v2(212) 
14505 : 14-May-1981 13:05:08 ems Ley ae | (78) 
14505 ; 6903! 
14506 : 6904 BGNTST; 
14507 ; 6905 
14508 ; e208 !44 
14509 : 6907 | TEST NUMBER: TST 28 
14510 : 6908 
14511 : 6909 | TEST NAME: | PROM SELECTION TEST 
1451¢ : 6910! 
14513 : 6911 | TEST DESCRIPTION: 
14514 : 6912 | DUE TO THE NATURE OF THE DEVICE 
14515 : 6913 | AND OF THE ARRAY MODULES’ UV 
14516 : 6914 PROMS, ONLY PROM READS ARE 
14517 : 6915 ALLOWED DURING DIAG TESTING. 
14519 : 6917 _ I THEREFORE THE ARRAY MODULE UV PROMS 
14520 : 6918 ARE TESTED FOR UNIQUE SELECTION BY: 
14508 : 6920 1. AT EAZH PRESENT ARRAY MODULE WRITE 127 ARRAY WORDS WITH 1°S/O'S PATTERN. 
14524 : 6900 i 2. READ THE UV PROMS AT THEIR RESPECTIVE ARRAY WORD LOCATION AND SEE IF 
14525 : 6923! THE PROMS MASK BAD NIBBLE LOCATIONS (ENCOUNTERED BAD NIBBLES 
14526 : 6924 INDICATES INCORRECT MASKING). COUNT EACH BAD NIBBLE ENCOUNTERED AT AN 
nes 34 3 $36? } ARRAY MODULE. 
14529 ; 6907 3. ALLOW A THRESHOLD OF 5 BAD NIBBLES AT ANY ARRAY MODULE. 
14531 : 6929 | 4. REPORT PROM SEL ERRORS AT RESPECTIVE ARRAY MODULE IF THE 
14532 : 6930 ! THRESHOLD IS EXCEEDED. 
14533 : 6931 | 
14534 : 6932 | IMPLICIT INPUTS 
14535 : 6933 PD_ TEMP: 
14536 : 6934 | A BIT VECTOR OF 16 BITS WHERE 
14537 : 6935 THE READ PROM DATA IS STORED 
14538 : 6936 AND ACCESSED FROM. 
14539 : 6937: 
14540 : 6938 | 10_ BUF 
14541 : 6939 A VECTOR OF 256 WORDS WHERE 
1454¢ : 6940 | DATA FOR MBUS READS AND WRITE 
14543 : 6941 | FUNCTION ARE FOUND. 
14544 : 6942 
14545 : 6943 in 
14546 : 6944 
14547 ; 6945 local 
14548 : 694 DODU_FLG, ‘DROP UNIT FLG 
14549 : 694 ERR_FLG, ‘ERROR FLG 
14550 : 6948 TST-PAT. iTEST PATTERN 
14551 : 6949 ERR~CNT: iERROR COUNT 
1455¢ : 6950 
14553 : 6951 DODU_FLG = ZERO: 
10238 3 $72 TST_PAT = ONES; 
14556 : 6954 incr ARR_SEL from 0 to .LST_ARR by .ARR_INC do !TEST ALL PRESENT ARRAYS 





aM 
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Bee me : SEQ 0309 


14558 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
10223 : 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (78) 
14561 ; 6955 begin 

10206 3 695 ERR_CNT = ZERO; 

14563 ; 695 BGNSUB; 

14564 ; 6958 

14565 ; 6959 incr TWICE from 0 to 1 do ‘REPEAT LOOP TWICE 

14566 ; 6960 begin 

14567 ; 6961 CL S; 

14568 ; 696 LOT = »TST_PAT; 'LOAD DATA DIAG REGISTERS WITH TST_PAT 
14569 ; 696 Dg = .TST_PAT; 

14570 ; 6964 MLE2 = .TST_PAT; 

14571 ;: 6965 DAT_DM = ONE; 'SET DATA DIAG MODE 

14572 : 6966 MLWwl = not 255; iLOAD WORD COUNT 

14573 : 6967 MLBA = 10 ; 'LOAD UBUS ADRS 

14574 ;: 6968 MLDA = .ARR_SEL; 'LOAD SECTOR 

14575 : 6969 MLCS1 = write; 'DO A WRITE FUNCTION 

14576 ;: 6970 

14577 ; 6971 incr CNT from 0 to 127 do 'CLOCK IN 127 WORDS 

14578 : 6972 eo n 

14579 ; 6973 DELAY (ONE_US); 

14580 ; 6974 DAT_CLK = ONE; 

14581 ; 6975 end; 

14582 ; 6976 

14583 ; 6977 CLR_MBUS; 

14584 ;: 6978 DAT_DM = ONE; 'SET DATA DIAG MODE 

14585 : 6979 MLwt = not 255; iLOAD WORD COUNT 

14586 ;: 6980 MLBA = [0 BUF; ‘LOAD UBUS ADRS 

14587 ; 6981 MLDA = .ARR_SEL; 'LOAD SECTOR 

14588 ; 6982 MLCS1 = read; 'DO A READ FUNCTION 

14589 ; 6983 DELAY (ONE_US); 

14590 ; 6984 

14591 ; 6985 incr WD_CNT from 0 to 127 do 'READ THE 10 WORDS 

14592 ; 6986 begin 

14593 : 6987 PD_TEMP = .MLPD; 'GET PROM DATA FOR THIS WORD 
14596 ; 6988 DAT_CLK = : 'CLOCK THIS WORD INTO DIAG REG 
14595 : 6989 DELAY (ONE_US); 

14208 3 oo RD_LNG_WRD; 'READ DIAG REG FOR THIS WORD 
yet J : oo incr NIB_PTR from 0 to 9 do 'LOOK AT ALL 10 NIBBLE 

14600 ; 6994 if .PD_TEMP C.NIB_PTR] IS_NOT_SET 'FIND GOOD NIBBLES 
14601 ; 6995 then 

eens 5 6996 begin 

Ly 2 3 6 TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); !COMPARE NIBBLE TO TST_PAT 
14605 ; 6999 if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1; 

14606 ; 7000 

14607 ; 7001 ' INCREMENT ERROR COUNT IF ERROR FLG IS SET 
14608 ; 700. end; 

14609 ; 700 

14610 ; 7004 end; 

14611 ; 7005 

14612 ;: 7006 TST_PAT = not .TST_PAT; ‘REPEAT WITH COMPLIMENT DATA 
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SEQ 0310 
146616 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
14615 : 14-May-1981 13:68:08 Pre NEALESML Loe I? (78) 
14617 ; 7007 end; 
14618 ; 7008 
14619 : 7009 if .ERR_CNT gtr 5 ‘ALLOW 5 ERROR BEFORE ERRORING 
14620 ; 7010 then 
14621 ; 7011 begin ‘ERROR IF GTR 5 
14622 : 701 ERRDF (78, ARR_DAT, DUNPER) 
14623 ; 701 PRINTB (THR_FMT, WRD_35, WRD_37, WRD_10); 
14626 ; 7014 PRINTS (FMT-9, .ARR_SEL); 
14625 ; 2015 DODU_FLG = ONE; 
14626 ; 7016 end; 
1 rs 7017 
14628 ;: 7018 ENDSUB; 
14629 : 7019 
14630 : 7020 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG IS SET 
14631 ; 7021 then 
14632 : 702 begin 
14633 : 702 DOBU (.ML_LUN); 
14634 ; 7024 DOCLN; 
14635 : 7025 end; 
14636 : 7026 
14637 ; 7027 end; 
14638 : 7028 
14639 : 7029 ENDTST: 
14643 
14644 .SBTTL $128 
14648 051436 004167 132454 $1728: JSR R1,$SAVES : 6901 
14649 051442 162706 000016 SUB #16,SP | 
14650 051446 005066 000010 CLR 10(SP) : DODU.FLG 6951 
14651 051452 012702 177777 MOV #-1,R2 + *,TST.PAT 6952 
14652 051456 016766 140114 000006 MOV LST.ARR,6(SP) : 6954 
14653 051464 016766 140072 000004 MOV ARR. INC.4 (SP) 
14654 051472 005001 CLR R1 : ARR.SEL 
14655 051474 000167 000666 JMP 5$ 
14656 051500 000002 1$ CLR (SP) : ERR.CNT 6956 
14657 051504 104402 23: TRAP 
14658 051506 00501 CLR (SP) : TWICE 695 
14659 051510 152777 000040 141476 3$: BIS8 #40,aML.REG+40 : 6960 
14660 051516 016705 142060 MOV bur 
14661 051522 042705 177770 BIC #177770,R5 
14662 051526 142777 7 141460 BICB =: #7, AML. REG+40 
14663 051534 150577 141454 BISB RS. aML .REG*4 
14664 051540 010277 141600 MOV R2. aml .REG*170 : TST.PAT,* 6 
14665 051544 010277 141604 MOV R2.aML .REG*+200 : TST.PAT.* 6% 
14666 051550 010277 141560 MOV R2. aml .REG+160 : TST.PAT.* 6964 
14667 051554 152777 000010 141512 BISB8 #10, aML.REG+120 ; 6965 
14668 051562 012777 177600 141374 MOV 4-460, aML .REG+10 ; 6966 
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SEQ 0311 
14670 ZML4 14-May-1981 13:48:54 TOPS 
1060) 3 14-May-1981 13:05:08 PA:< 
14673 051570 012777 011600 141376 MOV #10.BUF ,@ML .REG+20 : 6967 
14674 051576 010177 141402 MOV R1,aML .REG+30 : ARR.SEL,* 6968 
14675 051602 O1e777 000061 141344 MOV #61 aL .REG : 6969 
14676 051610 005003 CLR R + CNT 6971 
14677 051612 012704 000001 4$: MOV #1,R4 : *,SSTMP2 6973 
14678 051616 001411 5$: BEQ 
14679 051620 016705 130272 MOV SDLY.RS : *,SSTMP1 
14680 051624 001404 BEQ 
14681 051626 909066 000014 68: CLR 14(SP) : SSTMP 
1 051632 005 DEC RS : $STMP1 
1208 051634 001374 BNE 6$ 
14684 051636 005 7$: DEC R4 : SSTMP2 
14685 051640 900766 BR 5$ 
14686 051642 152777 000020 141424 8$: BISB #20,aML.REG+120 ; 6974 
14687 051650 005203 INC R : CNT 6971 
14688 051652 020327 000177 CMP R3,4177 : CNT,* 
14689 051656 003755 BLE 43 
14690 051660 152777 000040 141326 BIS8 #40,@ML.REG+40 : 6975 
14691 051666 016705 141710 MOV ML. ur 
14692 051672 942705 177770 BIC #177770,R5 
14693 051676 142777 141310 BICB  =s_- #7, AML. REG +40 
14694 051704 150577 141 B1S8 RS. aML.REG+40 
14695 051710 152777 10 141356 BISB #10, aML.REG+120 ; 6978 
1 051716 012777 177400 141240 MOV 4-400, aml .REG+10 : 6979 
14697 051724 012777 011600 141242 MOV #10.BUF ,aML .REG+20 : 6980 
14698 051 010177 141246 MOV R1, aml .REG+30 : ARR.SEL,* 6981 
14699 051736 012777 000071 141210 MOV 471, aML REG : 6982 
14700 051744 012704 000001 MOV #1,R4 : *,$STMP2 698 
14701 051750 001411 9S: BEQ 12$ 
14702 051752 016705 130140 MOV LSDLY.RS : *,SSTMP1 
14703 051756 001404 BEQ 11$ 
14704 051760 005066 000014 10$: CLR 14 (SP) : SSTMP 
14705 051764 005305 DEC RS : $STMP1 
14706 051766 001374 BNE 10$ 
14707 051770 005304 11$: DEC R4 : SSTMP2 
14708 051772 900766 BR 9$ 
14709 051774 005 12$: CLR R3 : WD.CNT 6985 
14710 051776 017767 141402 141114 13$: MOV afi, .REG+230 .PD. TEMP : 6987 
14711 052004 132777 000020 141262 BISB #20,aML.REG+120 : 6988 
147te 052012 012704 000001 MOV #1,R4 : *,SSTMP2 6989 
1471 05 1 901411 14$:  BEQ 17 
14714 05 16705 130072 MOV LSDLY.RS : *,SSTMP1 
14715 052024 901404 BEQ 
146716 0520 3066 000014 15$: CLR 14 (SP) : SSTMP 
1471 0520 005305 DEC RS : $S$TMP1 
14718 052034 001374 BNE 15$ 
14719 0520 304 16$: DEC RG : SSTMP2 
14720 05 766 BR 14$ 
14721 05 01776 161276 137102 17$: MOV @ML .REG+170,D1. TEMP 
14722 052050 017767 141300 137076 MOV afil .REG* 200 D2. TEMP 
147¢ 052056 017767 141252 13707 MOV @ML .REG+160,E2. TEMP 
14724 052064 005004 CLR R4 : NIB.PTR 6992 
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1472 
1075 
14728 
byik 4 03068 010405 
14730 052070 006205 
14731 pashle 006205 
14732 052074 05 
Mera gesene 05 
14734 052102 010546 
14735 052104 010446 
14736 05 196 042716 
14737 052112 012746 
14738 052116 00504 
14739 0521 00476 
14740 052124 poet 08 
14741 0521 005700 
14742 052132 001017 
14743 052134 01044 
14744 052136 010246 
14745 052140 012746 
14746 052144 svg Hh] 
1474 925188 00476 
14748 052152 026627 
14749 052160 001002 
14750 052162 po3680 
14751 036166 062706 
14752 05217 5204 
14753 052174 020427 
4754 052200 0037352 
14755 052202 005203 
4756 052204 e455 24 
14757 052210 0036 § 
14758 052212 00510 
14759 052214 00521 
4760 052216 02162 
4761 052222 st sy 
47 B2ssee 00016 
4763 0522 oce6e! 
14764 b2s678 0034 
4765 052240 104455 
766 052242 000116 
767 052 010570 
768 05 024060 
5 012746 
012746 
5 012746 
Wet 
He 
104414 
010116 
Bis rte 
1274 
01 
104414 


ETMLACO ML-11 LOGIC TEST 
$T2 


000001 


177260 
000002 


006700 


0060 
000004 


004644 
000002 
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000001 


19$: 
20$: 


000005 21$: 


MOV R4,RS 

ASR RS 

ASR R5 

ASR R5 

ADD #PD.TEMP,RS 
MOV R5,-(SP) 
MOV R4.-(SP) 
BIC #177770, (SP) 
MOV #1,-(SP5 
CLR -(§P) 

JSR PC BLS$GT2 
ADD #10,SP 

TST RO 

BNE 208 

MOV R4,-(SP) 


(SP) 
JSR PC, TST.LNG.WRD 
CMP 20(SP) #1 
BN 19$ 


INC 10(SP) 
ADD #6,SP 

INC R 

CMP R4,A11 

BLE 18$ 

INC R3 

CMP R3,4177 

BLE 13$ 

COM R2 

INC SP) 

CMP (SP) #1 

BGT 1$ 

JMP $ 

CMP >(SP) #5 

BLE @ 

TRAP 

«WORD 116 

“WORD ARR.DAT 

“WORD  DUMPE 

MOV #uRD.10,~ (SP) 
MOV #WRD.37.-(SP) 
MOV #WRD.35,-(SP) 
MOV #THR.FMT,-(SP) 
MOV #4,-(S 

MOV SP.RO 

TRAP ‘14 

MOV 1, (SP 

MOV #FAT.9,-(SP) 
MOV 2,-(SP 

MOV P°R 


NIB.PTR,* 


NIB.PTR,* 


NIB.PTR,* 
TST.PAT,* 


ERR.FLG,* 
ERR.FLG,* 
ERR.CNT 


NIB.PTR 
NIB.PTR,* 


WD. CNT 
WD.CNT,* 


TST.PAT 
TWICE 
TWICE ,* 


ERR.CNT,* 


SP,* 
ARR.SEL,* 


SP,* 


14-May-1981 
14-May-1981 


13:48:54 
13:05:08 


SEQ 0312 


:48 TOPS 
PA:< 


6994 


6997 


6999 
6996 
6992 


6985 









CZMLACO ML-11 LOGIC TEST 
$128. 


147 

12588 

14784 

16785 052316 
14786 052326 
16787 09 
14788 

14789 05 
14790 0 
14791 05 
14799 05635 
1479 058 52 
14794 05235 
14795 05 

14796 05236 
14797 05 
14798 059372 
14799 052374 
14800 059400 
14801 052404 
14802 

14802 

14804 

14809 

14810 

14814 

14815 

14819 052406 
14820 052406 
14821 052412 
14822 050416 
14823 059416 
14824 052420 
14825 

i 

ihe 

1483 

14834 : 


004767 
104466 


ie sal 
103773 
000207 


7030 
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000001 000026 
000016 


sat 


141222 


000001 


000004 
000006 


177100 
000016 


177024 


! <BLF /PAGE> 


3ML4 


228: TRAP 


238: 


26$: 


3; Routine Size: 
3 Maximum stack 


T28:: 
1$: 


3; Routine Size: 


3; Maximum stack depth per invocation: 


#1,26(SP) 
#16,SP 

R 
338 
3 
10(SP) #1 
24 
ML.LUN,RO 


244 word 
depth per 


6 words 





s 
invocation: 


20 words 


0 words 


3 *,DODU.FLG 


DODU.FLG,* 


14-May-1 
14-May-1 


SEQ 0313 


961 13:05:08 


7027 


iY 
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T28 SEQ 0314 
13836 sML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
Mr $14 : 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (79) 
14839 ; 7031‘! 
14840 ; 70 $ BGNTST; 
14841 ; 70 
erg ; 7034 !++ 
14845 ; 7035 |! TEST NUMBER: TST 29 
14844 ; 7036 =! 
14845 ;: 7037 ! TEST NAME: READ WRITE ARRAYS WITH PROM DATA 
14846 ; 7038 =! 
14847 ; 7039 ! TEST DESCRIPTION: 
14848 ; 7040 ! COMBINE THE READING OF ARRAY 
14849 ; 7041 =! one k DATA WITH ARRAY with UV PROM DATA AND 
14850 ; 704 ! FIND A GOOD BLOCK WHERE FURTHER 
He £2 3 Dez TESTING WILL BE PERFORMED BY: 
1eges 3 7045 =! 1. STARTING AT BLOCK O WRITE THE BLOCK WITH SELECTED DATA PATTERNS 
14854 ;: 704 ! AND READ THE BLOCK AVOIDING ANY BAD NIBBLES POINTED TO BY THE 
14855 ; 7047 =! TA. 
14856 ;: 7048 =! 
bys +14 3 Ais 4 : SET ERROR FLAG IF ANY BAD NIBBLES ARE ENCOUNTERED IN BLOCK. 
14859 ; 7051 ! Be gt WRITING/READING THIS BLOCK UNTIL ALL PATTERNS ARE TESTED 
re + ¢ $ res OR THE ERROR FLAG IS SET. 
A866 3 7054 :«=! 3. IF ALL PATTERN HAVE BEEN TESTED AND THE ERROR FLAG IS NOT SET 
Me v4 3 ree THEN SAVE THIS BLOCK ADDRESS AS THE GOOD BLOCK ADRS AND EXIT TEST. 
14865 ; 7057 +=! 4. ELSE IF THE ERROR FLG HAS SET THEN REPEAT TEST AT THE NEXT ROW. 
ers] : eae : REPEAT UNTIL A GOOD BLOCK IS FOUND OR LAST ROW IS REACHED. 
14868 ; 7060 ! 5. IF NO GOOD BLOCK IS FOUND BY LAST ROW THEN REPORT ERROR AND 
14869 ;: 7061 ! EXIT TEST. 
14870 ;: 7062 =! 
14871 ; 706 ! IMPLICIT INPUTS: 
14872 ;: 7064 =! RAS_INC 
14873 ;: 7065 ! LOADED DURING THE INITIALIZATION CODE AND CONTAINS THE ROW ADDRESS 
14874 : PROG ! INCREMENT VALUE FOR THIS DRIVE. 
14875 ;: 7067 =! 
14876 ; 7068 ! 
14877 ; 7069 =! PD_TEMP: 
14878 ;: 7070 =! A BITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
14879 ; 7071 +! ACCESSED FROM. 
14880 ; 7072 =! 
14881 ; 7073 =! 10_ BUF : 
brs 33 3 7074 =! A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION 
14883 ; 7075 =! ARE FOUND. 
14884 ; 7076 =! 
eR 
12889 : rs 
14888 ; 7080 local 
14889 ; 7081 WRD_CNT, 'WORD COUNT 
14890 ; 7082 NIB- PTR, 'NIBBLE point R 
14891 ;ML4 14-May-1981 1 +80: 3% TOPS-20 Bliss-16 Vg (ele) 
14892 ;: 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (79) 


oe 
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SEQ 0315 
14893 
14894 ; 7083 PASS_CNT, 'PASS COUNT 
14895 ;: 7084 NIB_PAT 'NIBBLE PATTERN 
148% ; 7085 DONE_FLG, iDONE F 
14897 ; 70: ERR_FLG, 'ERROR FLAG 
14898 ; 708 SECTOR_NO; 'SECTOR NUMBER 
14899 ; 7088 
14900 ; 7089 BGNSUB; 
14901 ; 7090 PASS_CNT = <1; 
14902 ; 7091 SECTOR_NO = ZEROES; 
14903 ; 7092 DONE_FCG = ZERO; 
14904 ; 7093 
14905 ; 7094 do 'THIS LOOP DETERMINES WHEN TO STOP 
14906 ; 7095 begin 
14907 ; 7096 
14908 ; 7097 do 'THIS LOOP RUNS THE PATTERNS 
14909 ; 7098 begin 
14910 ; 7 PASS_CNT = .PASS_CNT + 1; ' INCREMENT THE PASS COUNT 
14911 ; 71 CLR_MABUS; 
Aat¢ 3 7101 DAT_DM = ONE; 'SET DATA DIAG MODE 
14913 ; 7102 MLDA = - SECTOR_NO; 'LOAD SECTOR NUMBER IN DSA 
14916 ; 7103 MLWC = not 255; 'LOAD WORD COUNT 
rea HY Abe: MLBA = I0_BUF; 'LOAD UBUS ADRS 
14917 ; 7106 case .PASS_CNT from 0 to 3 of 'SELECT A NIBBLE PATTERN 
14918 ; 7107 set 
14919 ; 7108 
14920 ; 7109 J: 
14921 ; 7110 NIB_PAT = %0'000000'; ' ZEROES 
14922 ;: 7111 
14923 ; abe; 3: 
14926 ; 711 NIB_PAT = %0'17°; 'ONES 
14925 ; 7114 
14926 ; 7115 J: 
14927 ; ois NIB_PAT = %0'12'; ‘ALTERNATING ONE'S, ZEROES 
14928 ; 711 
14929 ;: 7118 3) : 
14930 ; 7119 NIB_PAT = %0'15° 'COMPLIMENT ONE'S, ZEROES 
Wwe: Hg - 
14935 ;: 7122 incr LD_CNT from 0 to 9 do 'LOAD NIBBLE PATTERN INTO NIBBLE SAVE 
ppt. 3 7134 LD_CNG_WRD (.LD_CNT, .NIB_PAT); 
14936 3 7125 WRT_LNG_WRD; ‘LOAD THE DATA DIAG REGISTERS WITH NIBBLE SAVE 
ppt } £136 MLCS1 = write; 'DO A WRITE FUNCTION 
14939 ; e168 incr WRT_CNT from 0 to 127 do 'WRITE PATTERN INTO THIS BLOCK 
14940 ; 7129 egin 
14941 ; 7130 DELAY (ONE_US); 
13306 3 7131 DAT_CLK = ONE; 
14943 ; an end; 
14944 ; 713 
14945 ; 7134 CLR_MBUS; 
yt | ZML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 Vg (F18) 
rs-+i 4 : 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (79) 
14949 ; 7135 DAT_DM = ONE; 'SET DATA DIAG MODE 
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SEQ 0316 
14950 ; 7136 MLDA =  SECTOR_NO: 'LOAD SECTOR NUMBER 
14951 ; ae MLWC = not 255; 'LOAD WORD COUNT 
14982 ; 7138 MLBA = I0_BUF; ‘LOAD UBUS ADRS 
149535 ; 7139 MLCS1 = read; !'DO A READ FUNCTION 
14954 : 7140 DELAY (ONE_US); 
14955 ;: 7141 NT = =1; 'RESET THE WORD COUNT 
14956 ;: a 
14957 ;: 714 do 
14958 ; 7144 begin 'TEST ONE BLOCK FOR NIBBLE PATTERN 
14959 ;: 7145 WRD_CNT = .WRD_CNT + 1; 
14960 ; 7146 PD_TEMP = .MLPD; 'GET PROM DATA 
14961 ; 7147 DAT_CLK = ONE; 'CLOCK DATA WORD INTO DIAG REG 
14962 ; 7148 DELAY (ONE_USS; i 
14965 ; 7149 RD_LNG 3 'READ DIAG REGISTERS 
14964 ; 7150 NIB_PTR = -1; ‘RESET THE NIBBLE POINTER 
14965 ; 7151 
14966 ; £126 do 
14967 ; 715 begin 'SEARCH FOR GOOD NIBBLES 
ress ; £138 NIB_PTR = .NIB_PTR + 1; 'INCREMENT NIBBLE POINTER 
009 3 o138 ; f .PD_TEMP C.NIB_PTR] IS_NOT_SET 'TEST THIS NIB IF PROM FLAG NOT SET 
3 en 
14972 ; 7158 TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG); 
14973 ;: 7159 
14974 : 7160 end 
14975 : 7161 until (.ERR_FLG) or (.NIB_PTR eql 9); 
14976 ;: 7166 
14977 ;: 716 end 
14978 ; 7164 until (.ERR_FLG) or (.WRD_CNT eql 127); 
14979 : 7165 
14980 ; 7166 end 
pks-4h ; ay until (.PASS_CNT eql 3) or (.ERR_FLG IS_SET ); 'REPEAT UNTIL ALL PAT TESTED OR ERROR FLG GETS SET 
14983 ; 7169 if (.PASS_CNT eql 3) and (.ERR_FLG IS_NOT_SET ) 'WAS THIS A GOOD BLOCK? 
14984 ; 7170 then 
14985 ; 7171 begin 'YES 
ieoee 3 ate: DONE_FLG = ONE; 'SET DONE FLAG 
14987 ; 717 GOOD_BLK = .SECTOR_NO; 'GOOD BLOCK GETS THIS SECTOR NO 
14988 ; 7174 end 
14989 ; 7175 else 
14990 : 717 begte ! 
14991 ; 717 SECTOR NO = .SECTOR_NO + .RAS_INC; ‘INCREMENT ROW NO 
14992 ; 717 PASS_CRT = -1; 'RESET PASS COUNT 
14993 ; 71 end; 
14994 ;: 7180 
14995 ;: 7181 end 
ys <3 | ois until (.DONE_FLG IS_SET ) or (.SECTOR_NO eql .LST_ARR + .ARR_INC); 
14998 : 7184 'REPEAT UNTIL GOOD BLK FOUND OR AT LST ROW 
14999 : 7185 ENDSUB; 
15000 ; 7186 
15001 ;ML4 1¢-Rey-1981 13:48:54 TOPS-20 Bliss-16 a Sard 
1300 3 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (79) 
15004 ; 7187 if .SECTOR_NO eql .LST_ARR + .ARR_INC 'SEE IF WE'RE AT THE LAST BLOCK 
15005 ; 7188 then 
15006 ; 7189 begin 'A GOOD BLK NOT FOUND BEFORE LAST BLK 


—_— 
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SEQ 0317 
15007 ; 7190 ERRDF (79, INTER, DUMPER);: 'ERROR AND DROP UNIT 
15008 ; 7191 PRINTS (THR_FMT, WRD_14, PHR_10, FNC_15); 
15009 : £198 DODU (.ML_LON); 
15010 : 719 DOCLN: 
15011 ; 7194 end; 
1501¢ ; 7195 
15013 : 7196 ENDTST: 
15017 
15018 .SBTTL $129 
130¢@ 052422 004167 131470 $1729: JSR R1,$SAVES : 7029 
15023 052426 162706 000014 SUB #14,SP 
15024 052432 10440 1$: TRAP = 2 ; 7087 
15025 052434 012766 177777 000002 MOV #-1,2(SP) + *,PASS.CNT 7090 
15026 052442 005002 CLR R2 t SECTOR.NO 7091 
15027 052444 005066 000004 CLR 4(SP) : DONE.FLG 7092 
15028 052450 5266 2 2s: INC 2(SP) t PASS.CNT 7099 
15029 052454 152 0 140532 BIS8 #40,aML.REG+40 
15030 052462 016705 141114 MOV spur RS 
15031 052466 042705 177770 BIC #177770,R5 
15032 052472 142777 000007 140514 BICB =s_ #7, AML. REG*+40 
15033 052500 150577 140510 BISB 5. aML.REG+40 
15034 052504 152777 000010 140562 BI1SB © #10, aL .REG+120 : 7101 
15035 052512 010277 140466 MOV R2, aML .REG+30 t SECTOR.NO,* 7102 
15036 052516 O12777 177400 140440 MOV 4-400, aML .REG+10 : 7103 
15037 052524 012777 011600 140442 MOV #10.BUF ,aML .REG+20 : 7104 
15038 052532 016605 000002 MOV 2(SP) RS : PASS.CNT,* 7106 
15039 052536 006305 ASL R5 
15040 052540 066507 052544 ADD 3$(R5) PC 
15041 032544 000010 38: «WORD 4$-3$ 
1504¢ 052546 000014 [WORD 5$-3$ 
1504 02550 000022 <WORD 6$-3$ 
15044 052552 0000 “WORD 7$-3$ 
15045 052554 005001 48: CLR R1 : NIB.PAT 7110 
15046 052556 000410 BR 8$ : 7106 
15047 052560 012701 000017 5$: MOV #17,R1 : *,NIB.PAT 7113 
15048 052564 000405 BR 8$ : 7106 
15049 05 366 012701 000012 6S: MOV #12,R1 : *,NIB.PAT 7116 
15050 0525 02 BR ry} : 7106 
15051 052574 012701 000015 7$: MOV #15,R1 + *,NIB.PAT 7119 
1305¢ 052600 005005 8$: CLR R5 + LO.CNT nize 
15053 052602 010546 9$ MOV R5,-(SP) + LD.CNT,* 712 
13054 052604 010146 MOV R1,-(SP) : NIB.PAT,* 
15055 052606 004767 144320 JSR PC°LD.LNG.WRD 
13056 ZML4 14-May-1981 13:48:54 TOPS 
15057 : 14-May-1981 13:05:08 PA:< 
15059 052612 022626 CMP (SP)+, (SP)+ 
15060 052614 0052 INC R5 : LD.CNT 7122 
15061 3 616 920507 000011 cn R5,411 + LD.CNT,* 
12068 052624 016777 136322 140512 MOV D1. TEMP, @ML .REG*+170 : 7123 
15064 0526 16777 136316 140514 MOV D2. TEMP, aML .REG*200 
15065 052640 016777 13631 140466 MOV £2. TEMP. aL .REG*160 
15066 52646 012777 000061 149300 MOV 1, aML REG : 7126 
15067 052654 003 CLR R + WRT.CNT 7128 
15068 05 656 12704 000001 10$: MOV #1,R4 + *,$STMP2 71 
15069 05 001411 11$:  BEQ 148 





an 


Se AcO ML-11 LOGIC TEST 
$T 


15070 05 016705 
’ 071 3 670 1404 


oQoo°oo 
SaReesssS m1 
seseossso 
ee i | 
WON Tee 
Wo 
~ 
WIND 
LY) 


Ss 
w 
ooo 
wy 
~ 
Mr 


ett 
Sooo°o0o 
RR 
~~ 
SSNe 3 
cosesaunr. 


g 
wi 
_ 


wa 
= 
& 


ae 
sgessssce 


WAV 
Ss 
NO 
SNS 


EERE: 
SSSSSSS 
SSSs 
SENS 
SSSISFSS=SINIAS 


So 
s 
Sit 


oSooooco°0oco 
o-oo 
= 
~ 
SUSE 


peter 
Ss 
SSSS28 


=I =i Oa 
Re 
& 


Ss 


paar Gurr oar 
NIN 
AAW 

ais 


=—nNN 


oueeee 
= — 
w 

&oo 
QU 


os 


cd ce ce ee ae a ee ed ek ee ee em ed ed ed eed ce cd ed ed ek a ed ed ed etd od td od ot 2c od 2 2 = et 
mN 


PVP DV IV IV IVI DV IV DU IV IV IVP SUP PUPA AAA AA AAAI 


KARL SOSONAANR WV OSBIR RR ASS 


ARARAAAARRARAAAD 
WANA NAAN AANA 
RAAMAE RR W— 
VURRVOR RON RARY 
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128: 


13$: 
140360 148: 


140262 


140244 
140312 
140170 


140172 
140144 


000006 18$: 


140040 
140206 


LSDLY,R5 
13$ 
12(SP) 

R 


12$ 
RG 
11$ 
pate 
R3,4177 

108 
pone 
mi BUT. RS 

#7, QML .REG+40 


@ML .REG*+40 
16, aML .REG+120 
+30 


@ML REG 
4-400, aML.REG+10 
#10.BUF ,@AL .REG*20 
#71, @ML.R 

#1RG 


#-1,6(SP) 
@ML .REG+230,PD. TEMP 
#20, QML .REG+120 
R4 
page? Ae 
12(SP) 
R 
21$ 


R 
#PD.TEMP RS 
R5,~(SP) 


3; SSTMP 
3; SSTMP1 


3; SSTMP 
3: SSTMP1 


; *,SSTMP2 
; *,SSTMP1 


SEQ 0318 


*,SSTMP1 


SSTMP2 


WRT .CNT 
WRT .CNT,* 


SECTOR.NO,* 


* ,SSTMP2 
* ,SSTMP1 


SSTMP2 


# ,WRD. CNT 
WRD. CNT 


SSTMP 
SSTMP1 
14-May-1981 13:48: 
14-May-1981 13:05:08 
SSTMP2 


* NIB.PTR 
NiB.PTR 
NIB.PTR,* 





an 
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$125 


wa 





-—O0e~ 


wm 
OOooooooooocooo 


rorons 
NOROKSANG 


SSonsTex 


WA AWIWWI WI 
pegece 
& 


AN 
So 


AAMAAAAAMAM AAAI III 
cK 
bt = 
£NSO 


rs 
So 


WIAA 


iw 
a 
w 
LS] 


Sans 
Ssxess 


ee ce ce ce ce ce ce ee ee ed ee ed ed eed ce ceed ee ee ee ee we ny ce ed ce cd ed ed nd ed ed ed nd ed ed ed ed ng ed ed ad ed nd nd ed od od od od = od 
PUPU PU PUPUPU PUPS UU UT Ty I 
AAA AAA 


me mk em med sk a ak es ak et a at I I St a at = 3) SS) ot 2s SI SS SS 2 4 ot SS SS 2 as 2 os ot SS 2 2s SS SS oo = SS) ) YS 1 


ANAS SHNOASAVAISSISALARIS SSNS ALANLSSSLSGEASLSESS 


SQOooooooooooooo 
EEKEEEEE SE 


WMI 


177976 
000001 


127732 
000010 


000016 
142720 
000006 


000010 
000001 


000011 
000001 
000006 


000002 


000001 


136220 


13755 
17777 
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000177 


000003 


000004 


000002 


000001 


25$: 


268: 


27$: 
28$: 


2(SP) ,=(SP) 
#177770, (SP) 
#1,-(SPS 

$p) 


PC. BLSGT2 
#16,SP 


25$ 
(SP) ,=(SP) 
R1,-(SP) 
#16,-(SP) 
PC; TST.LNG.WRD 
* SP 
10(SP) RS 
#1,R5 
(SP) #11 
#1,R5 
GSP) #17 


RAS. INC ,R2 
#-1,2(SP) 


4(SP) #1 
32$ 


LST.ARR RS 
erie Ae 


NIB.PTR,* 


; NIB.PTR,* 


NIB.PAT,* 
ERR.FLG,* 


ERR.FLG,* 


; NIB.PTR,* 


WRD.CNT,* 


PASS.CNT,* 


* DONE .FLG 
SECTOR.NO,* 


*,SECTOR.NO 
* ,PASS.CNT 


DONE .FLG,* 


SECTOR.NO,* 


SECTOR.NO,* 


14-May- 
14-May- 


is 2 13:48: 
1981 13:05: 


SEQ 0319 


7158 


7161 


7164 


7167 


54 








C CO ML-11 LOGIC TEST 
$125" 


36 
dg 


BELESLASLESELEARL 
NORIO E 


ek a ed ed ad ed od od 
WIN 


MoM 

Ses 
SSSSSSSSSSSS3333e3 
VM 
pat par ~N 
ONRRUOS 


BUNUN oseseeseeuEeae 


ee ee ee ee ee ee ee ee ee ee ee eee ee ee eee 


ed ad od a A oD 
SNSON 
3 Et PRR N 
=SLOAAAAX 


004767 
104466 


7197 
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176676 


! <BLF /PAGE> 


34$: 
RTS 


3; Routine Size: 
3; Maximum stack 


-SBTTL 


JSR 
TRAP 


ROR 
BLO 
RTS 


3; Routine Size: 
3 Maximum stack 


287 word 


s 
depth per invocation: 


T29 
PC,$T29 
66 


RO 
1$ 
PC 


6 words 


depth per invocation: 


17 words 


0 words 


7 SP,* 


14-May-1981 
14-May-1981 


13: 
13: 


7189 
7029 


7194 


TOPS 
PA:< 
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SEQ 0321 
15 38 ZML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
13 39 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.8L1.7 (80) 
15241 ; 7198! 
13e4¢ : 7199 
15243 : 7200 BGNTST; 
15244 ; 7201 
15245 ; Cs lee 
13246 : g 05 TEST NUMBER: TST 30 
13848 : 7205 TEST NAME: REFRESH TIMING TEST 
13250 : 7207 TEST DESCRIPTION: 
13¢5¢ : 7209 } TEST THE MEMORY ARRAY MODULES 
13255 : 7210 REFRESH TIMING AND CONTROL LOGIC 
15255 : 7212 | 
13256 ; 213 1, WRITING ALL ONES INTO THE 
15258 : 7215 | 
13993 3 cat 2. DELAY FOR 2 MS 
15261 : 7218 | 3. READ THE GOOD BLOCK FOR ONES. 
15262 : 7219 | KEEP COUNT OF BAD NIBBLES 
13265 ; £220 ENCOUNTERED 
15265 : 7222 | 4. ALLOW A BAD NIBBLE THRESHOLD 
15266 : 7223 F 20 BAD NIBBLES OUT OF THE 
13267 ; reek 9580 NIBBLES TESTED. 
15269 : 7226! 5. IF THRESHOLD IS EXCEEDED THEN 
13270 : ee REPORT ERROR AND DROP THE UNIT. 
1367 ; 1209 IMPLICIT INPUTS: 
15274 : 7231 MP: 
15275 : 7232 | A A BIT VECTOR OF 16 BITS WHERE 
15276 : 7233 THE READ PROM DATA IS STORED 
13277 ; 234 g AND ACCESSED FROM. 
15279 : 7236 i- | 
15280 : 723 
1368) 3 7238 local 
15282 : 7239 TST_PAT, ‘TEST PATTERN 
15283 : 7240 ERR~ CNT, iERROR COUNT 
13284 ; 24 ERR-FLG: iERROR FLAG 
15286 : 724 ; 
1328 : 7244 CLR_MBUS; 
Hi: eg FREON: ne 
13290 ; 724 mLDT = = TST. si, ‘LOAD DATA DIAG REGS WITH TST PAT 
15292 : st MLE? = .TSTPAT: 
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15 3ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
1 3 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (80) 
15 3 7250 DAT_DM_XFER (); 'SET UP A DATA DIAG MODE XFERR 

1 ; ogal MLCS1 = write; 'DO A WRITE FUNCTION 

15 ; 7253 incr WRD_CNT from 0 to 127 do 'WRITE BLOCK WITH TST PAT 

15301 ; 7254 pesto 

12308 3 7255 DELAY (ONE_US); 

15303 ; 7256 DAT_CLK = ONE; 

15304 ; 7257 end; 

15305 ; 7258 

15306 ; 7259 CLR_MBUS; 

15307 ; 7260 DAT_DM_XFER (); 'SET UP A DATA DIAG MODE XFERR 
15308 ; 7261 MLCS1 = read; 'DO A READ FUNCTION 

133) 3 ree DELAY (TWO_TH_US); !DELAY FOR 2 MS 

15311 ; 7264 incr WRD_CNT from 0 to 127 do 'READ THE BLOCK 

teal¢ 3 7265 begin 

15313 ; ye PD_TEMP = .MLPD; 'GET THE PROM DATA 

15314 ; 726 DAT_CLK = ONE; 'CLOCK DATA WORD INTO DIAG REG 
15315 ; 7268 DELAY (ONE_US); 

12316 : eee RD_LNG_WRD; 'READ THE DIAG REG 

15318 ; 7271 incr NIB_PTR from 0 to 9 do 'LOOK AT 10 NIBBLES 

13320 ; 1598 en 

1335) : rere if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); 
12362 : og 'FIND GOOD NIBBLES AND COMPARE THEM 
13363 : eee if .ERR_FLG IS_SET then ERR_CNT = .ERR_CNT + 1; ! INCREMENT ERROR COUNT IF ERR_FLG IS SET 
15327 ; 7280 end; 

15328 ; 7281 

15329 ; 728 end; 

15330 ; 728 

15331 ; 7284 ENDSUB; 

13336 5 7285 

15335 ; 7286 if .ERR_CNT gtr 20 ‘ALLOW 20 NIBBLES TO FAIL 

15334 ; 7287 then 

15335 ; 7288 peain 'ERROR IF GTR 20 

15336 ; 7289 ERRDF (80, ASYNC, DUMPER); 

15337 ; 7290 PRINTB (FIV_FMT, WRD_22, PHR_4, WRD_12, FNC_16, WRD_48); 

15338 ; 7291 DODU (.ML_LON); 

15339 ; 7 3 DOCLN; 

15340 ; 7 end; 

15341 ; 7294 

15342 ; 7295 ENDTST; 

13366 

1534 -SBTTL $130 
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15355 053534 167 130356 $730: JSR R1,$SAVES : 

153 99 340 024646 CMP =(§P) ,-(SP) 

1335 53542 1 40¢ 1$: TRAP = 2 : 

15358 053544 152777 000040 137442 BISB #40,@ML.REG+40 : 

13359 053552 01670 140024 MOV ML bur R3 

15 0535 04 20 177770 BIC #177770,R3 

15361 053562 1407 7? 137624 BICB = #7 , AML. REG*40 

1336¢ 05 570 150377 137420 BISB R3,aML.REG+40 

15363 053574 005005 CLR R5 : ERR.CNT 
15364 053576 012704 177777 MOV #=1,R4 : *,TST.PAT 
15365 05 010477 137536 MOV R4, aML .REG+170 : TST.PAT,* 
13366 053606 010477 137340 MOV R4,aML .REG+200 : TST.PAT.* 
15367 053612 010477 137516 MOV R4, aML .REG+160 : TST.PAT.* 
15368 053616 004767 140340 JSR PC. DAT.DM.XFER ; 

15369 05 012777 000061 137324 MOV #61, @ML.REG : 

15370 053630 005001 CLR R1 + WRD.CNT 
15371 053632 012702 000001 2$: MOV #1,R2 + *,$$TMP2 
1337¢ 053636 001411 3$: BEQ 68 

15373 053640 016703 126252 MOV LSDLY,R3 : *,SSTMP1 
15374 053644 001404 BEQ 5$ 

15375 053646 005 000002 4$: CLR (SP) : SSTMP 
15376 053652 00530 DEC R3 + $STMP1 
15377 053654 001374 BNE 43 

15378 053656 005302 S$: DEC R2 : SSTMP2 
15379 053660 000766 BR 3$ 

15380 053662 152777 000020 137404 6$: BISB8 #20,a@ML.REG+120 : 

15381 053670 005201 INC R1 + WRD.CNT 
15382 053672 020127 000177 CMP R1,4177 + WRD.CNT,* 
15383 053676 003755 BLE 

15384 053700 152777 000040 137306 BISB8 #40,aML.REG+40 : 

15385 053706 016703 137670 MOV mL bur 

15386 053712 042703 177770 BIC #177770,R3 

15387 053716 142777 000007 137270 BICB 4s #7, aML..REG*+40 

15388 055724 150377 137264 B1SB R3.aML.REG+40 

15389 0537 004767 140226 JSR PC.DAT.DM.XFER : 

15390 053734 012777 000071 137212 MOV 471 a@ML.REG : 

15391 053742 012702 003720 MOV #3700,R2 + *,SSTMP2 
15392 053746 001411 7$: BEQ 10: 

15393 053750 016703 126142 MOV LSDLY.R3 > *,SSTMP1 
1539% 053754 001404 _BEQ 

15395 05 736 005 000002.—i. 8$: CLR 2(SP) : SSTMP 
15396 03 762 005303 DEC R3 : $STMP1 
15397 053764 001374 BNE 8$ 

15398 053766 5302 9$: DEC R : SSTMP2 
15399 053770 000766 BR 7 

15400 053772 005001 10$: CLR R1 : WRD.CNT 
15401 053774 017767 137404 137116 11$: MOV afi .REG*230 PD. TEMP ; 

154 054002 1307 7 000020 137264 BISB #20,aML.REG+120 3 

15403 054010 012702 000001 MOV #1,R2 > *, S$STMP2 
15404 054014 001411 12$:  BEQ 15$ 


aM 
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13207 : 14-May-1981 13:05:08  PAz< 
15409 054016 016703 126074 MOV LSDLY,R3 : *,SSTMP1 
15410 054022 001404 BEQ 14 
15411 054024 2066 000002 13$: CLR 2(SP) : SSTMP 
13618 0540 5 DEC RS + $STMP1 
15413 054032 001374 E 13$ 
15414 054034 005302 148 DEC Rg : SSTMP2 
15415 0540 766 12$ 
13416 054040 017767 137300 135104 15$ MOV @ML .REG+170,D1. TEMP 
15417 054046 017767 137302 135100 MOV afil .REG*200 .Dg. TEMP 
15418 054054 017767 137254 135074 @ML .REG+160.E2. TEMP 
15419 054062 90500¢ CLR R2 : NIB.PTR 7271 
15420 054064 01020 16$: MOV RRS : NIB.PTR,* 7274 
15421 054066 906205 ASR R 
15408 054070 03 ASR R3 
15423 054072 006203 ASR 
15424 054074 062703 013120 #PD. TEMP ,R3 
15425 054100 010346 MOV R3,-(SP) 
13426 05410 010246 MOV R2.=(SP) : NIB.PTR,* 
15427 054104 O42 16 177770 BIC #177770, (SP) 
15428 054110 012746 000001 MOV #1,-(SP) 
13429 054114 00504 CLR - 
15430 054116 004767 127016 JSR PC BL$GT2 
15431 054122 062706 000010 ADD #10,SP 
1543¢ 034126 005700 TST RO 
15433 054130 001011 BNE 17$ 
15434 054132 010246 MOV R2,-(SP) : NIB.PTR,* 
15435 054134 010446 MOV R4,-(SP) : TST.PAT,* 
15436 054136 012746 000006 MOV #6,-(SP) 
15437 054142 06061 ADD SP, (SP) : ERR.FLG,* 
15438 054144 004767 142004 JSR PC. TST.LNG.WRD 
15439 054150 062706 000006 ADD #6,SP 
15440 054154 021627 000001 17$: CMP (SP) #1 : ERR.FLG,* 7278 
15441 054160 001001 BNE 18$ 
1346¢ 054162 005205 INC RS : ERR.CNT 
15443 054164 005 2 18$: INC Re : NIB.PTR 7271 
15444 054166 020207 000011 CMP R2,411 : NIB.PTR,* 
15445 054172 003 BLE 16$ 
15446 054174 005201 INC R1 : WRD.CNT 7264 
15447 054176 920187 000177 CMP R1,4177 + WRD.CNT,* 
15448 054 3676 BLE 11$ 
15449 054 104467 TRAP 67 : 7282 
15450 054 ROR RO 
15451 054210 10300 BHIS 19% 
1345¢ 054212 000167 177324 JMP 1$ 
15453 054 16 0205 7 000024 19$: CMP R526 : ERR.CNT,* 7286 
15454 054 : BLE 0$ 
15455 054226 10445 TRAP ; 7289 
15456 054226 000120 WORD 0 
1545 0542 010464 “WORD  ASYNC 
15458 054232 024060 “WORD DUMPER 
15459 034254 12746 907026 MOV #WRD.48,-(SP) : 7290 
15460 054240 012746 010150 MOV #FNC.16.-(SP) 
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! <BLF /PAGE> 


3ML4 


20S: CMP 


; Routine Size: 
3 Maximum stack 


T30:: 
1$: 


; Routine Size: 
3: Maximum stack 


#WRD.12,-(SP) 
#PHR.4,=(SP) 


#WRD.22,-(SP) 
#FIV.FMT,-(SP) 
#6. (SP) 


1 

ML.LUN,RO 
51 

44 

#16,SP 
(SP5+, (SP)+ 
PC 


184 word 


s 
depth per invocation: 


6 words 


depth per invocation: 


15 words 


0 words 


. SP,* 





SEQ 0325 


TOPS 


14-May-1981 13:48: 
81 13: PA:< 


48:54 
14-May-19 :05:08 


7291 


7288 
7196 


7293 


Nata ML-11 LOGIC TEST 
T 


12218 3sML4 

15513 ; 

15514 

13818 | 338 
13819 3 7299 
15518 ; 7 
15519 ; 7301 
15520 ; et 
ahi FBS 
13898 3 Cape 
155246 ; 7 O6 
15525 ; 730 
15526 ; 7308 
15527 ; 7309 
15528 ; 7310 
13850 F313 
13839 | ai 
ge: Re 
12836 : 318 
15537 ; 7319 
15538 ; 7320 
ap: 
13842 5350 
13008 ; 7325 
15544 ;: 7326 
15545 ;: 7327 
12266 ; 7328 
15547 ; 7329 
fap: 
15550 ; 733 
15551 ; 733. 
13236 ; 7334 
15553 ; 7335 
15554 ; 73 
15555 ;: 733 
13236 3 7338 
15557 ; 7339 
15558 ; 7340 
15559 ; 7341 
15560 ; 7 § 
12268 3 7345 
15564 ; 7 § 
15565 ; 734 
15566 ; 7348 


0 
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14-May-1981 13:4 :54 TOPS-20 BL Liss -16 16 vac2i2) 
14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1. 
1 
BGNTST; 
'o4 
TEST NUMBER: TST 31 
TEST NAME: | ADDRESS COUNTER TEST 
i TEST DESCRIPTION: 
i TEST THE ABILITY OF THE ADDRESS 
i COUNTER TO SUCCESSFULLY COUNT 
i OM BLOCK ZERO THROUGH THE 
DEVICES LAST BLOCK BY: 
1. WRITING THE LAST BLOCK WITH ONES PATTERN. 
i 2. STARTING AT BLOCK ZERO WRITE ZEROES INTO ALL BLOCK UP TO THE 
LAST BLOCK ADRS MINUS ONE. 
READ THE LAST BLOCK FOR ONES AND ERROR IF ZEROES. 
3. STARTING AT. BLOCK ZERO WRITE ZEROES INTO ALL BLOCK THROUGH THE LAST 
i J 
READ THE LAST BLOCK FOR ZEROES AND ERROR IF STILL ONES. 
IMPLICIT INPUTS: 
hie A OBITVECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 
DODU_FLG, !DROP UNIT FLAG 
R_FLG, ‘ERROR FLG 
END-CNT, iENDING SECTOR NUMBER 
ERR~ CNT, iCOUNTS # OF BAD NIBBLES FOUND IN THE LAST BLOCK 
8G_PAT; iBACKGROUND PATTERN 
GNSUB ; 


CLR_MBUS; 
bOD0 PLE" = Pe Ss 


BG_P PAT ‘BACKGROUND PAT OF ONES 

MLB1 “8G. este iLOAD DATA DIAGS WITH BG PAT 
MLD2 = .BG-PAT: 

MLE? = = .BG PAT: 


DAT = ORE; 
PAST B BLK. XFER 0; 
MLCST = write; 


incr WRD_CNT from 0 to 127 do 
n 
DELAY (ONE_US); 


:SET ee DIAG MODE 
!SET UP A_LAST BLOCK XFERR 
DO A WRITE FUNCTION 


!WRITE THE LAST BLOCK WITH THE BG PATTERN 


SEQ 0326 
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if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .BG_PAT, ERR_FLG); 


-ERR_CNT + 1; 


13268 3ML4 

15569 ; 

15570 

15571 ; er 4 DAT_CLK = ONE; 

133/6 : 7350 end; 

15573 ; 7351 

15576 ; £326 CLR es 

15575 ; 7353 DAT 

15576 : 7354 PAST B BLK_ wre QO; 

15577 ; 7355 MLCST = read 

15578 ;: 7356 DELAY (ONE_U 

15579 ;: 7357 ERR_CNT = pis. 

15580 ; 7358 

15581 ; 7359 incr WD_CNT from 0 to 127 do 
1228¢ 3 7360 begin 

15583 ; 7361 PD a7” = oo, 

15584 ; 7362 DAT_CLK = 

15585 ; 7363 DELAY. CONE ouss : 

15586 ; 7364 RD_LNG WRD; 

15587 ;: 7365 

15588 ; 7366 incr NIB_PTR from 0 to 9 do 
15589 ; 7367 begin 

15590 ; 7368 

15591 ; 7369 

13236 : 7370 

15593 ; 7371 

15594 ; 737, 

15595 ;: 737 IF .ERR_FLG IS_SET 
155 3 7374 THEN ERR_ CRT = 
15597 ;: 7375 

15598 ; 7376 end; 

15599 ; 7377 

15600 ; 7378 end; 

15601 ; 7379 

15602 ; 7380 if .ERR_CNT GTR 10 
15603 ; 7381 then 

15604 ; 738 begin 

15605 ; 738 ERRDF MiP INTER, Be ag? 
15606 ; 7384 PRINTB (THR_FMT, 
15607 ; 7385 ouiare _— “EMT. F 
15608 ; i338 EXIT_T 

15609 ; 738 end;” 

15610 ; 7. 

15611 ; 7389 END CNT = .LST_BLK - 1; 
136l¢ 3 7390 MLDT = ZEROES; 

15613 ; 7391 MLD2 = ZEROES; 

15614 ; 7 38 MLE2 = ZEROES; 

15615 ; 739 

12616 2 7394 incr TWICE from 0 to 1 do 
15617 ; 7395 begin 

15618 ; 338 CLR_MBUS; 

15619 ; 739 ERR— on s ZEROES; 

15620 ; ra06 tT 

15621 ; 7 FIRST "BLK. XFER Q: 
15622 ; 7400 MLCS1"= write; 


SEQ 0327 


TOPS=20 Bliss-16 V2(212) 


14-May-1981 13:68 248:54 
PA:<NEALE>ML4.BL1./ (81) 


14-May-1981 13:05:08 


:SET oy DIAG MODE 

'SET UP A LAST BLOCK XFERR 

DO A READ FUNCTION 

!CLEAR THE ERROR COUNT 

!READ THE LAST BLOCK FOR BG PATTERN 


!GET PROM DAT 
!CLOCK OUT THE DATA WORD 


!READ THE DATA WORD 
'LOOK AT 10 NIBBLES 


'FIND GOOD NIBBLES AND COMPARE THEM 


!COUNT THE # OF BAD NIBBLES DETECTED 


!IS ERROR COUNT > THRESHOLD 


WRD_13, FNC_22); 
Neri, WRD_56); 


'END AT LAST BLOCK -1 
!LOAD DATA DIAG REG WITH COMP 8G PAT 


!REPEAT LOOP TWICE 


'CLEAR a ERROR COUNT 


AG MODE 
UP A_FIRST BLOCK XFERR 
iDO A WRITE FUNCTION 


0 
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SEQ 0328 
136 4 3ML4 14-May-1981 13°69:36 TOPS-20 Bliss-16 V2(212) 
120 5; 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (81) 
1266 3 7401 
130 8; 8 incr BLK_CNT from 0 to .END_CNT do !CLOCK THE ADDRESS COUNTER UP TO END_CNT 
12686 3 7404 incr ADRS_CNT from 0 to 127 do 
15631 ; 7405 eg n 
15632 ; rete DAT_CLK = ONE; 
15633 ; 740 end; 
15634 ; 7408 
15635 ; 7409 CLR_MBUS; 
15636 ; 7410 DAT_DM = ONE; 'SET DATA DIAG MODE 
15637 ; 7411 LAST BLK_XFER (); 'SET UP A LAST BLOCK XFERR 
15638 ; ig MLCST = read; 'DO A READ FUNCTION 
13639 : 413 DELAY (ONE_US); 
15641 ; 7415 incr WD_CNT from 0 to 127 do 'READ THE LAST BLOCK FOR BG PATTERN 
1206 g 7416 begin 
15643 ; 7417 PD_TEMP = .MLPD; 'GET THE PROM DATA 
15644 ; 7418 DAT_CLK = ONE; 'CLOCK OUT DATA WORD 
15645 : 7419 DELAY (ONE_US); 
15646 ; 7420 RD_LNG_WRD; 'READ DATA WORD 
15647 ; 7421 
15648 ; 7422 incr NIB_PTR from 0 to 9 do 'LOOK AT‘10 NIBBLES 
pHa ain 
1303) 3 Orse if .PD_TEMP C.NIB_PTR] IS_NOT_SET then TST_LNG_WRD (.NIB_PTR, .'sG_PAT, ERR_FLG); 
13658 3 res 'FIND GOOD NIBBLES AND COMPARE THEM 
15655 ; 7429 IF .ERR_FLG IS_SET ‘COUNT # OF BAD NIc ALES DETECTED 
15656 ; 7430 THEN ERR_CRT = .ERR_CNT + 1; 
15657 ; 7431 end; 
15658 ;: 743 
15659 ; 743 end; 
15660 ; 7434 
15661 ; 7435 IF .ERR_CNT GTR 10 'IS ERROR COUNT > TRESHOLD 
15662 ; 7436 then 
15663 ; 7437 begin 
15664 ; 7438 ERRDF (82, ASYNC, DUMPER); 
15665 ; 7439 PRINTB (THR_FMT, WRD_50, WRD_51, WRD_10); 
15666 ; 7440 DODU_FLG = ONE; 
15667 ; 7441 end; 
15668 ; es 
15669 ; 744 
15670 ; 7444 END_CNT = .END_CNT + 1; 'NOW END AT THE LAST BLOCK 
15671 ; 7445 BG_PAT = not -BG_PAT; 'COMPLIMENT THE 8G PATTERN AND REPEAT 
13676 . 744 end; 
15673 ; 744 
15674 ; 7448 ENDSUB; 
15675 ; 7449 
15676 ; 7450 if .DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG IS_SET 
15677 ; 7451 then 
15678 ; 7452 begin 
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SEQ 0329 
15680 :ML4 14-May-1981 13:48:54 TOPS-20 Bliss=-16 V2(212) 
13681 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.B8L1.7 (81) 
12083 : 7453 DODU (.ML_LUN); 
15684 : 7454 DOCLN; 
15685 : 7455 end; 
13686 : 745 
15687 : 7457 ENDTST; 
15691 
15692 .SBTTL $131 
15696 054330 004167 127562 $131: JSR R1,$SAVES : 7295 
15697 054334 1627 000012 SUB #12,SP 
15698 054340 1 402 1$: TRAP = 2 : 7333 
15699 054342 152777 000040 136644 BISB #40,@ML.REG+40 : 7335 
15700 054350 016705 137226 MOV ; 
15701 054354 042705 177770 BIC #177770,R5 
15702 054360 142777 000007 136626 BICB #7, @ML.REG+40 
15703 054366 150577 136622 BI1SB R5,aML.REG+40 
15704 054372 005 000004 CLR : DODU.FLG 7337 
15705 054376 0127 é 177777 MOV #-1,R2 : *,BG.PAT 7338 
15706 054402 010277 1367 MOV R2, aML .REG+170 + BG.PAT,* 7339 
15707 054406 010277 13674 MOV R2,@ML .REG+200 : BG.PAT.* 7340 
15708 054412 010277 136716 MOV R2. aM .REG+160 t BG.PAT.* 7341 
15709 054416 152777 000010 136650 BIS8 #10,aML.REG+120 : 34 
15710 054424 004767 141472 JSR PC,LAST.BLK.XFER : 734 
15711 054430 012777 000061 136516 MOV #61, aML.REG : 7344 
15712 054436 005003 CLR + WRD.CNT 7346 
15713 054440 012704 000001 2$: MOV #1,R4 + *,$STMP2 7348 
15714 0 001411 3$: BEQ 
15715 054446 016705 125444 MOV SDLY.RS : *,SSTMP1 
15716 054452 001404 BEQ 
15717 054454 005 000010 4$: CLR 10(SP) : SSTMP 
15718 054460 00530 DEC RS + $STMP1 
15719 054462 001374 BNE 4$ 
15720 054464 005 5$: DEC RS : SSTMP2 
15721 054466 000766 BR 3$ 
137¢¢ 054470 152777 000020 136576 6$: BISB #20,aML.REG+120 : 
15723 054476 005203 INC R + WRD.CNT 
15726 054500 020327 000177 CMP R3,4177 : WRD.CNT,* 
13788 054504 0037 5 BLE 
15726 054506 152777 000040 136500 BISB8 #40,@ML.REG+40 : 
15727 054514 916705 13706 MOV b 
15728 0545 208 1777 BIC #177770,R5 
13789 0545 4 1427 136462 BICB 43s #7, AML. REG*+40 
15 54552 150577 136456 BISB R5.aML.REG*40 
15731 054536 152777 136530 B1S8 #10, aML.REG+120 ; 
15732 054544 004767 141592 JSR PC .LAST.BLK.XFER : 
15733 054550 O12? 7 136376 #71, @ML.REG ; 
15734 054556 0127 MOV #1,R4 : *,$STMP2 
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-REG+230,PD. TEMP 
#20, aML .REG+120 
#1,R4 
LSDLY.RS 
10(SP) 
R 


13$ 
R 


12$ 

@ML .REG+170,D1. TEMP 
res TEMP 

@ML .REG+160,E2. TEMP 


R5.-(SP) 
#177770, (SP) 
#1,-(SP5 


Bee 


; *,SSTMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 
; ERR.CNT 
> WD. CNT 


; *,SSTMP2 
; *,SSTMP1 


; SSTMP 
; SSTMP1 


; SSTMP2 


NIB.PTR 
NIB.PTR,* 


NIB.PTR,* 


NIB.PTR,* 


BG.PAT,* 


ERR.FLG,* 


; ERR.FLG,* 


ERR.CNT 
NIB.PTR 
NIB.PTR,* 


; WD.CNT 


SEQ 0330 


TOPS 
PA:< 


7373 


7374 
7 


7359 


aor 
—~ 
<2 
— 


AAAAAADAAAAAAM AAA IAI aA aI 


MAMMA MAMA 


w 


ce ce me ce ce ce De ce ce ce cee ee ee we ed ed we ce ed ee ee ee ce ee ee ceed ce ed ed nd ed ce ed ed ed eed 2 ed eed eed 8 ed nd ed aed od 6d nd od 
w 


w 





0 
CO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE $5 


SEQ 0331 

792 2ML4 14-May-1981 13:48:54 TOPS 
le 3 14-May-1981 13:05:08 PA:< 
795 055016 920327 000177 CMP R3,4177 : WD.CNT,* 

7% 055022 0036 : BLE 

797 995004 021 000012 CMP (SP) #12 : ERR.CNT,* 7380 
798 0550 3437 BLE 19$ 

799 055032 104455 TRAP =‘ 55 : 7383 
800 055034 12 «WORD 1 

801 0550 910672 <WORD INTER 

80¢ 055040 024 WORD ER 

803 055042 oi 746 910230 #FNC. 22,~(SP) ; 7384 
804 055046 012746 4 MOV D.13,-(SP) 

805 055052 012746 007454 MOV #PHR.4,-(SP) 

806 995056 012746 006034 MOV #THR.FAT,-(SP) 

807 055 012746 000004 MOV #4,-(SP) 

808 055066 010600 MOV ; : SP,* 

809 055070 104414 TRAP 

810 055072 012716 007122 MOV MRD. 56, (SP) : 7385 
811 055076 012746 010112 MOV #FNC.13,-(SP) 

gi¢ 055102 012746 006024 MOV - FMT ,-(SP) 

81 095106 012746 3 MOV 7 (SP) 

814 055112 010600 MOV é : SP,* 

815 055114 104414 TRAP ‘16 

816 055116 104463 TRAP = 63 

817 055120 062706 000020 ADD #20,SP : 7380 
818 055124 000167 000606 JMP 9 : 7382 
819 055130 016766 134436 000002 19$: MOV LST.BLK,2(SP) : *,END.CNT 7389 
820 055136 005366 2 DEC (SP) + END. CNT 

821 055142 005077 10996 CLR aM .REG+170 : 7390 
82¢ 055146 005077 136202 CLR @ML .REG+206 : 7391 
823 055152 005077 136156 CLR @ML .REG+160 : 7392 
824 055156 005001 CLR R : TWICE 7394 
825 055160 152 000040 136026 20$:  B1SB #40,@ML.REG+40 : 7395 
826 055166 016705 136410 MOV DUT RS 

827 055172 042705 177770 BIC #177770,R5 
5828 055176 142777 000007 136010 BICB = #7 , AML. REG*+40 

829 055204 150577 136004 BISB RS. aML.REG+40 

830 055210 00501 CLR : ERR. CNT 7397 
831 055212 152777 000010 136054 BISB8 #10,a@ML.REG+120 ; 7398 
832 055220 004767 140614 JSR PC,FIRST.BLK.XFER : 7399 
833 055224 O12 000061 135722 MOV #61, aML.REG : 7400 
5834 055 5004 CLR RG : BLK.CNT 7402 
835 055 000411 BR 23$ 

836 055 003003 318: CLR RS : ADRS.CNT 7404 
83 035 40 Ise 000020 136026 22$:  ®6ISB #20.@ML .REG+120 : 7406 
838 055246 3 INC R + ADRS.CNT 7404 
839 055250 527 000177 CMP R5,4177 + ADRS.CNT,* 

840 055254 1 BLE 228 

841 05525 204 INC RG : BLK.CNT 7402 
Be 059 60 466 000002 23S: CM R4,2(SP) + BLK.CNT,END.CNT 

844 058 66 103785 135720 BISB #40,aML.REG+40 : 7407 
845 055276 016705 1 MOV mi bur R5 

846 055 042705 1 BIC #177770,R5 





AO 
SN 
“ez 


ce ec ce ce ce ce ce ce ce cc ce ce cee ced ee ce ce ce ce ad ced ee ce ce ee ce ce cD ce a ce ed ed ce ced ce ced ce ce ced ce ed ed nd ed ed eed ed ed od 0 dd ed 


pace ML-11 LOGIC TEST 
584 
a 
5850 
5851 055 ps 444 4 
o626 055312 150577 
38535 055316 152777 
5854 055324 767 
3855 bee 1s? 7? 
2528 55336 012704 
5857 055342 001411 
5858 055 016705 
5859 055 38 001404 
5860 05535 893056 
5861 055356 00530 
rr] 055 001374 
586 O23e0¢ 005304 
5864 055 000766 
5865 933366 005 
22390 017 § 
5867 055376 3g? 7 
5868 055404 012704 
5869 055410 001411 
5870 055412 016705 
a) Satis Ble 
2878 O33c54 005305 
5874 055426 001374 
ae St ae 
5877 055434 O1776? 
5878 055442 017767 
5879 055450 017767 
5880 055456 005005 
5881 055460 010504 
| 055462 04 
5883 055464 
5884 055466 + 
5885 055470 04 
055474 
5887 055476 
5888 055500 
5889 055504 
5890 05551 
5891 05551 
2856 5551 
5893 0555, 
5894 baee & 
5895 0555 
0555 
589 $222 
5898 0555 
5899 055 
5900 055544 
5901 055550 
5902 055556 





} 
ears 
1 
14057 
71 
1 
124546 
000010 


000014 
140410 
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MACRO M1113 18-MAY-81 08:17 PAGE 4S 


ZML4 
135702 BI(CB = #7, AML..REG+40 
BISB8 5. aML.REG+40 
135750 B1S8 #10, aML.REG+120 
JSR PC LAST.BLK.XFER 
135616 MOV #71, aML.R 
MOV 1,R4 
24$: BEQ 278 
MOV SDLY,R5S 
BEQ 
25$: CLR 10(SP) 
DEC R5 
BNE 25$ 
26$: DEC RG 
BR 24$ 
7$ CLR R3 
135522 28$ MOV @ML .REG+230,PD. TEMP 
135670 BI1SB #20,aML.REG+120 
MOV #1,R4 
29$: BE 32 
MOV SDLY,RS 
BEQ 1$ 
30$: CLR 10(SP) 
DEC R5 
BNE 30s 
31$: DEC R4 
BR 29$ 
133510 32$: MOV @ML.REG+170,D1. TEMP 
133504 MOV aM .REG+2 -D3. TEMP 
133500 OV amit -REG#1 0°€2. TEMP 
33$ MOV R5,R4 
ASR RG 
ASR RG 


Pp 
MOV 5{$P) 
BIC #177770, (SP) 
MOV 1,-(SP5 
CLR -(§P) 
JSR PC BLSGT2 
ADD #10,SP 
TST RO 
BNE 34$ 
MOV R5,-(SP) 


#6. SP 
000001 34$: CMP (SP) a1 
BNE 5 


* ,SSTMP2 
; *,$STMP1 
is 
; SSTMP2 
: WD.CNT 


: #,$STMP2 
; *,SSTMPI 
: SSimer 
; SSTMP2 


: NIB.PTR 
: NIB.PTR,* 


NI8B.PTR,* 


NIB.PTR,* 


BG.PAT,* 


° ERR.FLG,* 


; ERR.FLG,* 


SEQ 0332 


8:54 TOPS 
5:08 


7422 
7425 


7429 





— 


crm Ace ML~11 LOGIC TEST 


3S 


RRADAA 
WISFSS 


ES 


wm MUIMUIUIUIMIUUIU = 
DOOBOOOODS 


MVM MAUVIWNUT Ww iw 
S33 SS23 
ce ed ed ed ed ed ed ed ed 
SoMNOnFWN—O 
a od ts 
ANS 


WN 


MOMIND 
w~ 
ooo 
aba) 
e 
So 


w 
Nm 


SOOoCOOoOoOooooooooo 
PRA nO 
r~4 


OAIIRIR IRR R 


a abv abel 
O0000 
w 
on 


IN 
w 
So 
Ww 
z 


Ly lw bah ahah * sh ah ahaha) WW 

OODO00O0O oo 
Pad Seperate 
Sooo 


Ee2 
oo 


3 


SP 
woo ~: 


ee ee ee ee eee ee ee Lee Lee Ss Ww 
MMII 33 
; a3 
f=] 
Ww 
w 
oa 
wn 
So 


awn 
Se 
or 


So=—-Go00ceosdo& 

Oe Sees woh 
SNe 
“Offs 
SOA 


SksslSesesaseesEsR 
Ssnisstesshasyss 
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000016 


36$: 


37$: 


38$: 


39$: 
RTS 


3; Routine Size: 


#1,16(SP) 
#12,S 


P 
(SP) 


4(SP) #1 


ML.LUN,RO 
51 


44 
#12,SP 
PC 


390 word 


3; Maximum stack depth per 


s 
invocation: 


19 words 


14-May-1981 
14-May-1981 


WD. CNT 
WD.CNT,* 


ERR.CNT,* 


SP,* 
* ,DODU.FLG 


TWICE ,* 


DODU.FLG,* 


13: 
13: 


5: 


SEQ 0333 


4 TOPS 


PA:< 
7430 
7422 
7415 
7435 
7438 


7439 


“am 
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CERACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE $2 
$13 SEQ 0334 
sML4 14-May-1981 13:48:36 TOPS 


15969 

1338) 3 14-May-1981 13:05:08 PA:< 
13368 -SBTTL 131 

15967 055744 T31:: 

15968 055744 004767 176360 1$: JSR PC,$T31 3 7455 
15969 peeses 104466 TRAP 66 

1§970 05575 ROR RO 

15971 055754 10377 BLO 14 

13078 055756 000207 RTS PC 

15974 ; Routine Size: 6 words 

iF ade 3; Maximum stack depth per invocation: 0 words 

45981 

15982 ; 7458 !<BLF/PAGE> 


Aq 


0 
* ML-11 LOGIC TEST - MACRO M1112 18-MAY-81 08:17 PAGE 50) 
131 SEQ 0335 


15984 :ML4 14-May-1981 13:48:54 | TOPS=20 Bliss-16 v2(212) 
13989 : 14-May-1981 13:66:08 PA:<NEALE>ML4.BL1.7 (82) 
15987 ; 7459 ! 

15988 ; 7460 ! 

15989 : 7461 BGNTST: 

15990 ; 746 

15991 : 7463 !4+ 

13998 : 7464 ‘| TEST NUMBER: TST 32 

15993 : 7465 | 

15994 : 2466 i TEST NAME: | ARRAY MODULE SELECTION TEST 

15995 : 7467! 

15996 : 7468 i TEST DESCRIPTION: 

15997 : 7469 i 

15998 : 7470 i TEST FOR UNIQUE ARRAY MODULE 

15999 : 7471 | SELECTION BY: 

16000 : 7472 =} 

16001 : 7473 1. WRITING THE RESPECTIVE ARRAY 

16002 : 7474 | MODULE POSITION NUMBER INTO 

16003 : 7475 | THE FIRST GOOD NIBBLE FOUND 

16004 : 7476! IN THE ARRAY. DO FOR ALL 

16005 : 7477 | PRESENT ARRAYS. 

16006 : 7478 | 

16007 : 7479 i 2. READ THE ARRAYS FOR THEIR 

16008 : 7480 | RESPECTIVE POSTION NUMBERS. 

16009 : 7481 | 

16010 : 7482 | IMPLICIT INPUTS: 

16011 : 7483 | PD_ TEMP: 

16012 : 7484 | A BIT VECTOR OF 16 BITS WHERE 

16013 : 7485 THE READ PROM DATA IS STORED 

16014 : 7486 AND ACCESSED FROM. 

16015 : 7487 

16016 : 7488 | 10_BUF : 

16017 : 7489 | A VECTOR OF 256 WORDS WHERE 

16018 : 7490 DATA FOR MBUS READS AND WRITE 

16019 : 7491 FUNCTION ARE FOUND. 

16020 ; 7492 | 

16021 : 7493 inn 

1e0ge : 749% 

16023 ;: 7495 lecal 

16024 : 2496 WRDS_TSTED, ‘WORDS TESTED 
16025 : 749 R_SEL, iARRAY SELECT 
16026 : 7498 FND-GD_NIB, iFOUND GOOD NIBBLE 
16027 : 7499 ARRNUA; iARRAY NUMBER 
16028 : 7500 

16029 : 7501 ARR_SEL = ZEROES; 

16030 : 230 ARR~SEL = .ARR_SEL - .ARR_INC;: ‘START ARR_SEL BACK ONE ARRAY 
16032 : 7504 incr ARR_CNT from 0 to .OP_NUM_ARR do 'TEST ALL PRESENT ARRAYS 
16033 : 7505 begin 

16034 ; 7506 CLR_MBUS; 

16035 : 7507 FND~GD_NIB = ZERO; 

16039 F305 a mee 'SET DATA DIAG MODE 
16038 : 7510 MLwl = not 255; iLOAD WORD COUNT 





Rm 





0 
pes ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE ba} 
T31 SEQ 0336 


16040 ;ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
ried : 14-May-1981 13:05:08 PA:<NEALE>ML4.B8L1.7 (82) 
16008 3 7511 MLBA = I0_BUF; ‘LOAD 10_BUF 

16044 ; aig ARR_SEL =~.ARR_SEL + .ARR_INC; iLOOK AT "NEXT ARRAY 

16045 ; 751 MLDA = .ARR_SEL; 'LOAD DSA WITH SELECTED ARRAY AT BLOCK ZERO 
Mb +6 J 3 7514 MLCS1 = write; 'DO A WRITE FUNCTION 

16047 ; 7515 

16048 ; 7516 do 'THIS LOOP WRITES ARRAY NUMBERS TO THE ARRAYS 
16049 ; 7517 beste 

16050 ; 7518 DELAY (ONE_US); 

16051 ; 7519 PD_TEMP = .MLPD; 'GET THE PROM DATA 

1o036 : £360 WRBS_TSTED = «WRDS_TSTED + 1; 'COUNT WORDS TESTED 

16038 3 P3S8 incr CNT from 0 to 8 do 'LOOK AT 9 NIBBLES 

16056 ; 7524 if .PD_TEMP C.CNT] IS_NOT_SET 'FIND A GOOD NIBBLE 

16057 ;: 7525 then 

16058 ; 7526 begin 

16059 ; 7527 

16060 ; 7528 case .CNT from 0 to 8 of 'SELECT AND LOAD GOOD NIBBLE WITH ARRAY CNT 
16061 ; 7529 set 

16062 ; 7530 

16063 ; 7531 [0] : 

16064 ; 7532 (MLD1)<0, 4> = .ARR_CNT; 'NIBBLE 0 

16065 ; 7533 

16066 ; 7534 [1] : 

16067 ; 7535 (MLD1)<4, 4> = .ARR_CNT; 'NIBBLE 1 

16068 ; 7536 

16069 ; 7537 [2] : 

16070 ; 7538 (MLD1)<8, 4> = .ARR_CNT; 'NIBBLE 2 

16071 ; 7539 

16072 ; 7540 (3] : 

16073 ;: 7541 (MLD1)<12, 4> = .ARR_CNT; 'NIBBLE 3 

16074 : 754 

16075 ; 754 [4] : 

16076 ; 7544 (MLD2)<0, 4> = .ARR_CNT; 'NIBBLE 4 

16077 ;: 7545 

16078 ; 7546 (5] : 

16079 ; 7547 (MLD2)<4, 4> = .ARR_CNT; 'NIBBLE 5 

16080 ; 7548 

16082 : o368 = (MLD2) 8, 4> ARR_CNT 'NIBBLE 6 

ot 3 <8, = .ARR_CNT; : 

16083 ; 7551 

16084 ; 755 {(7] : 

16085 ; 755 (MLD2)<12, 4> = .ARR_CNT; 'NIBBLE 7 

16086 ; 7554 

16087 ; 7555 (8) : 

16088 ; 755 (MLE2)<8, 4> = .ARR_CNT; 'NIBBLE 8 

16089 ; 755 tes; 

16090 ; 7558 

16091 ; 7559 FND_GD_NIB = ONE; 'SET FOUND GOOD NIBBLE FLG 
16036 : 7560 exit loop; 'EXIT THE LOOP 

16093 ; 7561 end; 

16094 ; 7562 


AM 


ae | 
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T31 SEQ 0337 
16096 :ML4 14-May-1981 1 TOPS=20 Bliss-16 V2(212) 
16097 pans HIRE ops eS veh AL aR SA 
16099 : 7365 DAT CLA = ONE; 'CLOCK GOOD NIBBLE INTO MEMORY & GET NXT PROM WRD 
4 e 
16101 : £365 until (.FND_GD_NIB IS_SET ) or (.WRDS_TSTED eql 14); 'DO UNTIL FOUND GOOD NIGBLE OR 14 WRDS TSTED 
1e108 : 7567 if .WRDS_TSTED eql 14 'IF 14 WORDS TSTED 
16104 ; 7568 then 
16105 : 7569 begin 'THEN ERROR AND EXIT TESTED 
16106 : 7570 F (111, INTER, DUMPER): 
16107 : 7571 ERINTB (SEV_FMT, WRD_14, PHR_10, FNC_15, WRD_12, FNC_17, WRD_37, WRD_56); 
16108 : 757 EXIT_TST; 
16109 ; 757 end; 
16110 : 7574 
16111 : 7575 end: 
16112 : 757 
16113 : 7577 ARR_SEL = ZEROES; 
16114 : 1378 ARR-SEL = .ARR_SEL = .ARR_INC; ‘START ARR SEL BACK ONE AGAIN 
16116 : 7580 incr ARR_CNT from 0 to .OP_NUM_ARR do 'TEST ALL PRESENT ARRAYS 
16117 : 7581 begin 
16118 : 7582 SUB; 
16119 : 7583 CLR_MBUS; 
16120 : 7584 FND-GD_NIB = ZERO; 
16121 : 7585 DAT-DM"= ONE; 'SET DATA DIAG MODE 
16122 : 75 mLwl = not 255; ‘LOAD WORD COUNT 
16123 : 7587 MLBA = 10_BUF; ‘LOAD UBUS ADDRESS 
16126 : 7588 ARR_SEL =".ARR_SEL + .ARR_INC;: ‘LOOK AT. NEXT ARRAY 
16125 : 7589 MLDA = .ARR SEC; ‘LOAD DSA WITH ARRAY SELECT 
16126 : £390 MLCS1 = read; iDO A READ FUNCTION 
16128 : 759, do 'THIS LOOP READS ARRAYS FOR ARRAY NUMBERS 
16129 ; 759 begin 
16130 : 7594 DE AY af ONE US): 
16131 : 7595 PD_T TMLPD: 'GET THE PROM DATA 
16132 ; 7596 
solar ; e444 incr CNT from 0 to 8 do 'LOOK AT 9 NIBBLES 
16135 : 7599 if .PD_TEMP C.CNTJ IS_NOT_SET 'FIND THE GOOD NIBBLES WHERE ARR NUM IS STORED 
16136 ;: 7600 then 
16137 ; 7601 begin 
16138 : 760 DAT_CLK = ONE; 'CLOCK ARRAY WORD OUT 
16140 : 7604 case .CNT from 0 to 8 of ‘SELECT AND READ GOOD NIBBLE 
16141 : 7605 set 
1614@ : 7606 
16143 : 760 (0) : 
16144 : 7608 ARR_NUM = .(MLD1)<0, 4>; 'NIBBLE 0 
16145 ; 7609 
Dry 3 7610 (1) : 
16147 : 7611 ARR_NUM = .(MLD1)<4, 4>; 'NIBBLE 1 
16148 ; 761 
16149 : 761 [2] : 
16150 : 7614 ARR_NUM = .(MLD1)<8, 4>; 'NIBBLE 2 


aaa ML-11 LOGIC TEST 


MACRO M1113 18-MAY-81 08: 


4 10 
17 PAGE 325 





SEQ 0338 
16152 ZMLG 14-May-1981 13: :48:54 TOPS-20 Bliss-16 v2(212) 
16153 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.B8L1.7 (82) 
16155 ; 7615 
16156 ;: 761 (3) 
16157 : 761 ARR_NUM = .(MLD1)<12, 4>; 'NIBBLE 3 
16158 ; 7618 
16159 : 7619 [4] 
16160 : 7620 ARR_NUM = .(MLD2)<0, 4>; 'NIBBLE 4 
16161 : 7621 
1olee 3 762 C5] 
16163 : 762 ARR_NUM = .(MLD2)<4, 4>; 'NIBBLE 5 
16164 : 7624 
16165 : 7625 [6] 
16166 : 7626 ARR_NUM = .(MLD2)<8, 4>; 'NIBBLE 6 
16167 : 7627 
16168 : 7628 [7] 
16169 : 7629 ARR_NUM = .(MLD2)<12, 4>; 'NIBBLE 7 
16170 : 7630 
16171 : 7631 [8] 
16172 : 7632 ARR_NUM = .(MLE2)<8, 4>; 'NIBBLE 8 
16173 : 7633 tes; 
16174 : 7634 
16175 : 7635 FND_GD_NIB = ONE; 'SET FND GD NIB FLG 
16176 ;: 7636 Eloop; ‘EXIT LOOP 
16177 ; 7637 end; 
16178 : 7638 
16179 : 7639 DAT_CLK = ONE; 'CLOCK OUT NEXT PROM LOCATION 
16180 ; 7640 en 
16181 : 2641 until .FND_GD_NIB IS_SET; ‘REPEAT UNTIL FOUND THE GOOD NIBBLE 
16183 : 7643 if .ARR_CNT neq .ARR_NUM 'SEE IF ARRAY CONTAINS IT'S ARR NUM 
16184 ; 7644 then 
16185 : 7645 begin ‘ERROR IF NOT THERE 
16186 : 7646 ERRDF (83, ASYNC. DUMPER) ; 
16187 : 7647 PRINTB (FOR_FMT, WRD_39, FNC_17, ho _37, WRD_10); 
16188 : 7648 PRINTB (FMT~ “al -ARRICNT, .ARR_N 
16189 : 7649 end: 
16190 ; 7650 
16191 : 7651 ENDSUB; 
5 Ob 4 3 765 end; 
16193 : 765 
16194 : 7654 ENDTST: 
16198 
16199 .SBTITL $132 
16203 055760 004167 126132 $732: JSR R1 » SSAVES : 7457 
16204 055764 162706 000006 SUB #6.SP 
16205 055770 005005 CLR R ; ARR.SEL 7501 
16206 055772 166705 133564 SUB ARR. INC,RS + *,ARR.SEL 7502 


CZMLACO ML-11 LOGIC TEST 
$755" 


wa 
Sy 
oa 


AIA 
3 


arias 
prreceres 


3 


SASOPUNIS Sawer See 
wa 
= 
& 


283 
RRNA ORO 


VORUVUMUMOR UR OFORO ORR ORO 
SENSRVSRNES 


an oa 
ROU 
SS SEVERE 
CAAA AAA AAA 
WIN & & 
NOS 


Ro 
SSFSSF 


SeStssnhecs 
VSSRS 


33 
sss 


ao 
x 


pases’ 
ARV 


ee ee ee eee SS SL... ee ee ee ee ee SS) 
papa 4 
nO 
NO: 


SSSSSSSSSeSSSSSsSSSsSsSsSss sss seseSsSeSssSssssssssessssesess3333e333e3 
Se eaeb ean ea ed pee naan ae 


ORO ORO OFORD 


VASSONSURWUI OCOD 


RRA 
Mon 


ae 
% 


ooo 


ah 


Sos 
3% 


t=) 

—_ 

=] 

WIPRO 
ssssss 
Qa oan 


aRoNNSN ERSSS 


sss 


135242 


013120 
177770 
000001 
124732 
000010 


056226 
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000002 


135174 


135156 


134754 


3ML4 


1$: 


- aeennenectente 


2 

io ail -REG*40 
#17 YF6 R2 

47, @ML .REG+40 
R2,aML .REG+40 
(SP) 


Ro 
#10, @ML.REG+120 
4-460, aML .REG+10 
#10. BUF ,aML.REG+20 


$ 
ML .REG+230,,PD. TEMP 
R2 

R2,R1 
R1 

R1 

R1 
#PD.TEMP,R1 
R1,-(SP) 
R2,-(SP) 
#177770, (SP) 
#1,-(SP5 
-(§P) 

PC BL$GT2 
#10,SP 
R2,R1 
$(R1) PC 


10$-8$ 
12$-8$ 
13$-8$ 
15$-8$ 


185-88 


ARR. CNT 


FND.GD.NIB 


WRDS.TSTED 


* ,ARR. SEL 
ARR.SEL,# 


* ,SSTMP2 


; *,SSTMP1 


; SSTMP 
; SSTMP1 
; SSTMP2 


WRDS.TSTED 
CNT 
CNT,* 





SEQ 0339 


14-May-1981 13:48:54 
14-May-1981 13:05:08 


TOPS 
PA:< 


7504 


7505 








1 
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SEQ 0340 
162646 ZML4 14-May-1981 13:48:54 TOPS 
16366 ; 14-May-1981 13:05:08  PA:< 
1 i 056244 000236 .WORD 19$-8$ 
16268 056246 72 “WORD 21$-8$ 
1 69 056250 010301 9$: MOV 1 : ARR.CNT,* 7532 
16270 056252 701 177760 BIC #177760,R1 
16271 056256 142777 000017 135060 BICB #17,a@ML.REG+170 
1 es 056264 12 BR 11$ 
lee? 05 6 10301 10$: MOV R3,R1 : ARR.CNT,* 7535 
16274 05627 1 ASL R1 
16675 05607¢ 906 1 ASL R1 
16276 056274 1 ASL R1 
16277 056276 006301 ASL 
16278 056 042701 177417 BIC #177617,R1 
16279 056304 142777 000560 135032 BICB #360,aML.REG+170 
16280 056312 150177 135026 11$:  BISB  R1,aML.REG+170 
16281 056316 000511 BR 228 ; 7528 
leebe 056320 010301 12$: MOV R3,R1 + ARR.CNT,* 7538 
16283 056322 000301 SWAB 
16284 056324 042701 170377 BIC #170377,R1 
16285 056 042777 007400 135006 BIC #7400, aML.REG+170 
16286 056336 000413 BR 14$ 
16287 056340 010301 13$: MOV R3,R1 : ARR.CNT,* 7541 
16288 056342 000301 SWAB RT 
16289 056344 906301 ASL R1 
16290 056346 006301 ASL R1 
16291 056350 006301 ASL R1 
16292 056352 906301 ASL 
16293 056354 042701 007777 BIC #7777, R1 
16294 056360 042777 170000 134756 BIC #170060 ant .REG+170 
16295 096366 050177 134752 14$: BIS R1,aML .REG+17 
16296 056372 000463 BR 228 : 7528 
16297 056374 010301 15$: MOV R3,R1 + ARR.CNT,* 7544 
1 056376 3791 177760 BIC #177760,R1 
1 996408 142777 000017 134744 BICB #17, aML.REG+200 
16300 056410 000412 BR 17$ 
16301 056412 910301 16$: MOV R3,R1 : ARR.CNT,* 7547 
16308 056414 006301 ASL R1 
16303 056416 906301 ASL R1 
16304 056420 906 01 ASL R1 
16305 056422 1 ASL 
1h HBSS) P2Err7 WMT saris Bile Hab‘ thcMlegaoo 
16308 O33 15 12 000 388 17$: B1S8 Ai aA .RéG*200 wees 
16310 Ossae4 10301 18$: HOV R3,R1 + ARR.CNT,* r3g8 
6 : 
1031 oe 36 701 170377 BIC #170377,R1 
1631 56454 777 007400 134672 BIC #7400, aML .REG+200 
16314 056462 600413 BR $ 
16315 056464 010301 19$: MOV R3,R1 : ARR.CNT,* 7553 
16316 5 1 SWAB RT 
16317 0564 1 ASL R1 
16318 05647 301 ASL R1 
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SEQ 0341 


16320 7ML4 14-May-1981 13:48:54 TOPS 
16 1 : 14-May-1981 13:05:08  PA:< 
16 § 056476 906301 ASL R1 

16324 056476 1 ASL 

16325 056500 701 007777 BIC #7777, R1 

16 6 096904 777 170000 134642 BIC #170000, aML .REG+200 

1632 056512 050177 1346 20$: BIS R1,aML.REG+200 

16328 056516 000411 BR ees : 

163 096520 010301 21$: MOV R3,R1 + ARR.CNT,* 
16330 0565 301 SWAB 1 

16331 056524 042701 170377 BIC #170377,R1 

163 4 0565 777 007400 134576 BIC #7400, aML .REG+160 

163 06536 50177 134572 BIS R1,aML.REG+160 

16334 056542 012716 1 22$: MOV #1. (SP) : *,FND.GD.NIB 
16335 056546 0004 BR 248 : 

16336 956550 00520 23$: —INC Re + CNT 

16337 056552 020227 000010 CMP R2,410 + CNT,* 

16338 056556 003002 BGT 4$ 

16339 056560 000167 177364 JMP § 

16340 056564 152777 000020 134502 24$: BISB #20,aML.REG+120 : 

16341 056572 021627 000001 CMP (SPS #1 : FND.GD.NIB,* 
1634¢ 056576 001405 BEQ 

16343 0 020427 000016 CMP R4,A16 : WRDS.TSTED,* 
16344 0 00140¢ BEQ 258 

16345 05 000167 177274 JMP 2$ 

16346 056612 020427 000016 25$: CMP R4,416 : WRDS.TSTED,* 
16347 056616 001035 BNE 26$ 

16348 056620 104455 TRAP 5 : 

16349 056622 000157 «WORD 157 

16350 0 4 010672 ~ WORD INTER 

16351 056626 024060 “WORD  DUMPER 

16352 056630 012746 007122 MOV MRD. 56,-(SP) : 

16353 056634 012746 006700 MOV D.37,°(SP) 

16354 056640 012746 010162 MOV #FNC.17.-(SP) 

16355 056644 012746 006426 MOV D.12.~(SP) 

16356 056650 oi 746 0101 MOV #FNC.15,-(SP) 

16357 056654 012746 007564 MOV #PHR.10,-(SP) 

16358 056660 012746 006442 MOV #WRD.14.=(SP) 

16359 096664 ot 746 006120 MOV #seV. FAT (SP) 

16360 056670 012746 000010 MOV #10,-(SP5 

16361 056674 01 MOV SP,RO : SP,* 

16362 056676 104414 TRAP ‘16, 

16363 056 00 104463 TRAP = 63 

16364 056702 062706 00002 ADD #22,SP ; 

16365 0567 167 00056 JMP 56$ : 

16366 05671 5203 36: INC R + ARR.CNT 
16367 056714 020 000002 $: CMP R3,2(SP) + ARR.CNT,* 
16368 0567 300, BGT 288 

16369 0567 0001 177064 JMP I$ 

16370 056726 005005 28$: CLR R : ARR. SEL 
16371 056 166705 132626 SUB ARR. INC,RS > *, ARR. SEL 
16372 056734 016766 132620 000002 MOV OP.NUM. ARR, 2(SP) ; 

16373 056742 005004 CLR 4 + ARR.CNT 
16374 056744 000167 000516 JMP 55$ 
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SEQ 0344 
16488 3ML4 14-May-1981 13:68:38 TOPS 
4.24 : 14-May-1981 13:05:08 PA:< 
16491 057442 010600 MOV SP ,.RO 3; SP,* 
1ohe8 057444 104414 TRAP 
1649 827408 one! 000022 ADD o6e.SP 3 7645 
16494 057452 10446 523: TRAP 6 $ 7649 
16495 057454 ong 088 ROR 0 
+ #9 | 057456 10 a6 BHIS 54$ 
16497 057460 000167 177264 53$: JMP 29$ 
16498 057464 005204 54$: INC RS 3 ARR.CNT 7580 
16499 Ba 786 059398 000002 55$: CMP R4,2(SP) 3 ARR.CNT,* 
16500 057472 00377 BLE 53$ 
16501 057474 062706 000006 56$: ADD #6,SP s 7457 
16206 0575 000207 RTS PC 
16504 ; Routine Size: 425 words 
16393 3; Maximum stack depth per invocation: 18 words 
16511 
16515 
16516 -SBTTL 132 
16520 057502 T32:: 
16521 057502 004767 176252 1$: JSR PC,$T32 3 7652 
16522 057506 104466 TRAP 66 
165235 057510 006000 ROR RO 
16524 057512 103773 BLO 1$ 
16362 057514 000207 RTS PC 
16527 3; Routine Size: 6 words 
16068 ; Maximum stack depth per invocation: 0 words 
16534 
16535 ; 7655 !<BLF/PAGE> 
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SEQ 0345 


16537 :ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V (212) 

16958 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (83) 

16540 ; 7656! 

16541 : 7657 ®GNTST: 

16542 : 7658 

16543 : 7659 +4 

16544 : 7660 | TEST NUMBER: TST 33 

16545 : 7661 

16546 : 7662 | TEST NAME: | SEQUENCER EXISTENCE TEST 

16547 : 7663 

16548 ; 7664 | TEST DESCRIPTION: 

16549 : 7665 i 

16550 : 7666 i TEST SEQUENCER TIMING AND CONTROL 

16931 3 7667 LOGIC FOR EXISTENCE BY: 

16553 : 7669 1. FIRST WRITING THE GOOD BLOCK VIA DAT_DM MODE WITH A BACKGROUND 

16554 : 7670 PATTERN OF ONES. 

16555 : 7671 

16556 : 7672 «| 

16997 : 1673 2. VIA A MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 

16559 : 7675 i 3. THEN VIA DAT_DM READ GOOD NIBBLES IN THE GOOD BLOCK AND XOR THEM 

16560 : 767 AGAINST THE BACKGROUND PATTERN. 

1656¢ : 7678 | RECORD THE NUMBER OF NIBBLES THAT WERE UNCHANGED OR PARTIALLY CHANGED 

16963 ; 7679 BY THE MBUS WIRTE. 

16565 : 7681 4. REPORT A FATAL ERROR AND DROP THIS UNIT IF THE NIBBLES TESTED EQUALS 

16566 : 768 ! THE COUNT OF UNCHANGED NIBBLES. 

16568 : 7684 REPORT AN INTERMEDIATE DIAGNOSTIC MESSAGE IF AT LEAST SOME NIBBLES 

1669 3 7685 ! WERE CHANGED BY THE MBUS WRITE. 

16571 : 7687 i IMPLICIT INPUTS: 

16573 3 7689 A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND ACCESSED FROM. 

16575 : 7691 10_BUF: 

16576 : 7692 =! A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTIONS 

16577 : 7693 ARE FOUND. 

16578 : 7694 inn 

16579 : 7695 

16580 ; cone local 

16581 : 769 8G_PAT 'BACK GROUND PATTERN 

16582 : 7698 ? iSUM NIBBLE ARE 

16583 : 7699 NIB-TSTED, iNIBBLES TESTED 

16584 ; 00 < iALL NIBBLES ARE BAD 

16585 : 7701 RESOLT; iRESULTS OF XOR 

16586 ; 70 

16587 : 7703 CLR_MBUS;: 

16588 : 7704 8G PAT = ONES; ‘BACKGROUND EQL ONES 

16589 : 7705 MLB1 = .8G_PAT: iLOAD DATA DIAG REG WITH BG PAT 

16590 : 7706 MLD2 = .BG_PAT: 

16302 im. spe ee a ta 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
: y- 248: - ss- 

15398 Ht 13:05:08 Dae SNEALESINL Oe? 283) 


3 14-May-19 
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SEQ 0346 
16594 
16595 ; 7708 DAT_DM_XFER (); 'SET UP_A__DATA DIAG XFERR AT THE GOOD BLOCK 
19998 ; £708 MLCS1 = write; 'DO A WRITE FUNCTION 
16598 ; 7711 incr WD_CNT from 0 to 127 do 'WRITE BLOCK WITH BG PAT 
16599 ; 771 bea n 
16600 ; 771 DELAY (ONE_US); 
16601 ; 7714 DAT_CLK = ONE; 
Mb 3 7715 end; 
16605 ; 771 
16604 ; 7717 ~CLR_MBUS; 
16605 ; 7718 10_BUF = ZEROES; 'LOAD FIRST WORD OF I0_BUF 
16606 ; 7719 BAT = ONE; 'MAKE XFERR SET ON ONE ADRS 
16607 ; 7720 GD_BLK_XFER (); ‘SET UP A GOOD BLOCK XFERR 
16608 ; 7721 MLCS1 = write; 'DO A WRITE FUNCTION 
16609 ; 7722 TIME OUT_LOOP; 
16610 ; 7723 ®GNSOB; 
16611 ; 7724 CLR_MBUS; 
16612 : 7725 ALL_BAD = ZEROES; 
16613 ; 772 5 = 
16614 : 772? NIB_TSTED = ZEROES; 
16615 ; 7728 DAT_DM_XFER (); 'SET UP SAME DATA DIAG XFERR 
16616 ; 7729 MLCS1 = read; 'DO A READ FUNCTION 
16617 ; 77 DELAY (ONE_US); 
16618 ; 7731 
16619 ; 7732 incr WD_CNT from 0 to 112 do 'READ 113 LONG WORDS 
16620 ; 7733 begin 
16621 ; 7734 PD_TEMP = .MLPD; 'GET PROM DATA 
16622 ; 7735 DAT_CLK = ONE; ‘CLOCK OUT THE DATA WORD 
16623 ; 7736 DELAY (ONE_US); 
16626 ; o30 RD_LNG_WRD; 'READ THE DATA WORD 
166e8 3 4h incr NIB_PTR from 0 to 8 do 'LOOK AT 9 NIBBLES 
18658 ; 7741 if .PD_TEMP [.NIB_PTR] eql ZERO 'FIND GOOD NIBBLE 
16629 ; 774 then 
16630 ; 774 begin 
16631 ; 7744 NIB_TSTED = .NIB_TSTED + 1; 'INCREMENT COUNT OF NIBBLES TESTED 
16638 3 ores XORTLNG_WRD (.NIB_PTR, .BG_PAT, RESULT); § !XOR NIBBLE WITH BG PAT 
16634 ; 774 if .RESULT<O, 4> eql ZERO ‘SEE IF ALL BITS IN NIBBLE WERE BAD? 
16635 ; 7748 then 
16656 ; 7749 ALL_BAD = .ALL_BAD + 1 !INCREMENT COUNT IF ALL BAD 
16637 ; 7750 else 
16638 ; 7751 
16639 ; Ae if .RESULT<O, 4> neq %0'17" then SUM_BAD = .SUM_BAD + 1; 
16641 ; 7754 'SEE IF SOME BITS IN NIBBLE WERE BAD 
16648 : 7755 end; 'INCREMENT COUNT IF SOME BAD 
16643 ; 775 
16644 ; 775 end; 
16645 ; 7758 
16646 : 7759 ENDSUB; 
16647 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 V2(212) 
16668 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (83) 
16650 ; 7760 
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SEQ 0347 
16651 : 7761 if .NIB_TSTED eql .ALL_BAD WHERE ALL NIBBLES XFERR*ED ALL BAD? 
16658 : 7762 then iERROR IF ALL BAD 
16655 ; 776 begin 
16654 : 7764 ERRDF (84, SYNC, DUMPER); 
16655 : 7765 PRINTB (SEV FMT, WRD_22, PHR_4, WRD_9, WRD_12, WRD_23, FNC_5, WRD_19); 
16656 : £766 DODU (.ML_LON); 
16657 : 776 DOCLN; 
16658 ; 7768 end 
16659 ; 7769 else 
16660 : 7770 
16661 : 7771 if .SUM_BAD gtr ZERO 'SEE IF SEE NIBBLE WERE BAD? 
Mb er | : 777 then 
16663 : 777 begin 'SOME BAD IS OK SO GIVE INTERMEDIATE ERROR 
16664 : 777% ERRDF (85, INTER, DUMPER); 
16665 : 7775 PRINTB (SIX_FMT, PHR_4, WRD_9, WRD_12, WRD_23, FNC_5, WRD_19); 
16666 ;: 7776 end; 
16667 : 7777 
16668 : 7778 ENDTST: 
1667¢ 
1667 .SBTTL $133 
16677 057516 004167 124374 $133: JSR R1,$SAVES : 7654 
16678 057522 162706 000010 SUB #10,SP 
16679 057526 152777 000040 133460 BISB #40. aML.REG+40 : 7701 
16680 057534 016705 134042 MOV spur 
16681 057540 042705 177770 BIC #177770,R5 
16682 057544 142777 7 133442 BICB = #7, @ML.REG+40 
16683 057552 150577 1 BISB RS. aML.REG+40 
16684 057556 012766 177777 000002 MOV #~i,2(SP) : *,BG.PAT 7704 
16685 057564 012777 177777 133552 MOV -1. aML .REG+170 ; 7705 
16686 057572 016677 133554 MOV 2(SP) ,aML.REG+200 : BG.PAT,* 7706 
16687 057 016677 000002 133526 MOV 2(SP) . aML .REG+160 : BG.PAT.* 7707 
16688 057606 004767 134350 JSR PC.DAT.DM.XFER : 7708 
16689 057612 012777 000061 133334 MOV #61, aML.REG : 
16690 057 005000 CLR 0 + WD.CNT 7711 
16691 057622 012701 000001 1$: MOV #1,R1 + *,$$TMP2 7713 
16692 057626 001411 2s: BEQ 5 
16693 057630 016702 122262 MOV LSDLY,R2 : *,SSTMP1 
166% 057634 001404 BEQ 
16695 057636 005066 000006 3$ CLR 6(SP) : SSTMP 
16696 057642 005302 DEC R2 : $STMP1 
16697 057 001374 BNE 3$ 
16698 057646 005301 4$: DEC R1 : SSTMP2 
16900 p3r62 15 res 000020 133414 5$ BIsB $50 @ML .REG+120 7714 
16701 ees 008200 INC RO * + WD.CNT 7711 
1670¢ ML4 14-May-1981 13:48:54 TOPS 
lore? 3 14-May-1981 13:05: : 
16705 057662 020027 000177 c RO,#177 : WD.UNT,* 
16706 097666 003755 BLE 5 
16707 057670 152777 000040 133316 BISB #40,aML.REG+40 : 
16708 997676 016705 1337 MOV ML bur R5 
16709 057702 04 208 1777 BIC #177770,R5 
16710 09 4 133300 BICB #7 .@fil .REG*40 
ier) aay ares 1 1666 ee 5 + Fat 
eng 057724 003967 10 133262 BISB #10,aML.REG+40 : 
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SEQ 0348 

16714 057732 004767 136132 JSR PC,GD.BLK.XFER : 7720 
16715 0577 O12? 7 600061 133210 MOV #61 9A -REG : 7721 
16716 057744 105777 133254 6$: TST8 = AML. REG*5 
16717 057750 100375 BPL 
16718 057752 194402 7$: TRAP : 7722 
16719 057754 1527 133232 BISB #40,aML.REG+40 : 7723 
16720 057762 01670 13 14 MOV y 
16721 057766 042703 177770 BIC #177770,R3 
leree 057772 142777 000007 133214 BICB «=. #7, ML .REG+40 
16723 060000 150377 135210 BISB8 R3,aML.REG+40 
16724 060004 005004 CLR RG : ALL.BAD 7725 
16725 903016 CLR (SP) + SUM.BAD 7726 
16726 etd enti 00500 CLR R5 : NIB.TSTED 7727 
16727 060012 004767 134144 JSR PC ,DAT.DM.XFER : 7728 
16728 060016 012777 000071 133130 MOV #71, aML.REG : 7729 
16729 060024 012701 000001 MOV #1,R1 : *,$STMP2 7730 
16730 060030 001411 8$: BEQ 11$ 
16731 060032 016702 122060 MOV LSDLY,R2 : *,SSTMP1 
l673¢ 060036 001404 BEQ 10$ 
16733 060040 903066 000006 9$: CLR 6(SP) : SSTMP 
16734 060044 00530 DEC R2 : $STMP1 
16735 060046 001374 BNE 9$ 
16736 060050 005301 10$: DEC R1 : SSTMP2 
16737 060052 000766 BR gS 
16738 060054 00500 11$: CLR R3 : WD.CNT 7732 
16739 060056 017767 133322 133034 12$: MOV @ML .REG+230,PD. TEMP : 7734 
16740 060064 152777 000020 133202 BISB #20,aML.REG+120 : 7735 
16741 060072 012701 000001 MOV #1,R1 + *,$STMP2 7736 
16742 060076 001411 13$:  BEQ 16 
16743 060100 016702 122012 MOV LSDLY,R2 : *,SSTMP1 

16744 060104 001404 BEQ 15$ 
16745 960106 005066 000006 14$: CLR 6(SP) : SSTMP 

746 060112 005302 DEC R2 : $STMP1 

16747 060114 001374 BNE 14$ 
16748 060116 005301 15$: DEC R1 : SSTMP2 

16769 060120 900766 BR 13$ 
16750 060122 01776 133216 131022 16$: MOV @ML.REG+170,D1. TEMP 

16751 060130 017767 133220 131016 MOV @ML .REG+200.D2. TEMP 
16752 060136 017767 133172 131012 MOV @ML .REG*+160.E2. TEMP 
16753 060144 005001 CLR R1 : NIB.PTR 7739 
16754 060146 01010 17$: MOV R1,R2 : NIB.PTR,* 7741 
16755 060150 0 ASR R 

16756 060152 0 ASR R 

16757 ZML4 14-May-1981 1 :48:54 TOPS 
16738 : 14-May-1981 13:05:08 PA:< 
16760 060154 006. ASR R2 

16761 06015 £08388 013120 ADD #PD.TEMP.R2 

1676¢ 0601 10246 MOV R2,-(SP) 

16763 060164 010146 MOV R1 {$P) : NIB.PTR,* 

16764 960166 716 177770 BIC #177770, (SP) 

16765 060172 012746 000001 MOV #1,-(SP5 

Ise Heteee 88288 227m hate sor 

16768 060204 706 000010 ADD #10,SP 

16769 06021 RO 
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SEQ 0349 
16771 060214 005205 INC RS : NIB. TSTED 7764 
lore 060. 16 910146 MOV R1,=(SP) + NIB.PTR,* 7745 
16773 060. 16646 000004 MOV 4(§P) ,-(SP) * BG.PAT,* 
16774 060224 012746 000012 MOV #12,-(SP) 
16775 060 960616 ADD SP, (SP) : RESULT,* 
16776 060 004 13641 JSR PC; XOR.LNG.WRD 
1677 060 1 ; 00001 MOV 12(SP) .R2 : RESULT,* 7747 
16778 42 042702 177760 BIC #177760,R2 
16779 060246 001002 BNE 18$ 
16780 060250 005204 INC RG : ALL.BAD 7749 
16781 060252 000405 BR 19$ : 7747 
1678¢ 060254 020227 000017 18$: CMP R2,417 : 7752 
16783 060260 001402 BEQ 19$ 
16784 060262 003266 000006 INC 6(SP) : SUM.BAD 
16785 060266 062706 000006 19$: ADD #6,SP : 7763 
16786 060272 005201 20$: INC R1 + NIB.PTR 7739 
16787 060274 020127 000010 CMP R1,410 : NIB.PTR,* 
16788 060300 0037 BLE $ 
16789 060302 00520 INC R3 : WD.CNT 7732 
16790 060304 020327 000160 CMP R3,4160 : WD.CNT,* 
16791 060310 00 BLE 12$ 
16792 060312 104467 T 6 ; 7757 
16793 060314 ROR RO 
16794 060316 103615 BLO 7$ 
16795 060320 020504 CMP R5,R4 : NIB. TSTED,ALL.BAD 7761 
16796 060322 001037 BNE 1$ 
16797 060324 104455 TRAP 5 : 7764 
16798 060326 000124 «WORD 124 
16799 060330 010526 “WORD SYNC 
16800 060332 024060 "WORD D 
16801 060334 012746 506 MOV #WRD. 19,-(SP) : 7765 
16802 060340 012746 007774 MOV #FNC.5,-(SP) 
16803 060344 012746 544 MOV #WRD.23,-(SP) 
16804 060350 012746 006426 MOV MRD. 12.=(SP) 
16805 060354 012746 006374 MOV D.9,- 
16806 060360 012746 007454 MOV 34. =(SP) 
16807 060364 012746 530 MOV #WRD.22,-(SP) 
16808 060370 012746 006120 MOV #seV.FAT -(SP) 
16809 060374 012746 000010 MOV #10,-(SP5 
16810 060400 010600 . MOV SP, : SP,* 
16811 060402 104414 TRAP ‘(14 
16812 ZML4 14-May-1981 13: 
16815 : 14-May-1981 13: 
16815 060604 016700 133170 MOV ML.LUN,RO : 
16816 060410 104451 TRAP = ‘51 
16817 060412 104444 TRAP = & 
16818 060414 706 000022 ADD #22,SP : 
1ooI) peess posits ons: Fer fa > SUM.BAD 
18559 060424 3430 BLE $ 
“16828 060426 10445 T : 
16823 0604 185 «WORD 125 
16824 0604332 1 “WORD INTER 
i 3 ake $3 66 5 * OUD 9 (SP) 
1 $ 08278 B13 746 aaa MOV #FNC.5,-(SP) : 





CZMLACO ML-11 LOGIC TEST 
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16828 pepees 012746 
1oees 06045 4 746 
168 28 12746 
16831 012746 
168 $8 012746 
eth 060472 012746 
16834 060476 019600 
16835 060500 104414 
16837 060308 969706 
16838 O08 000207 
16839 

16840 

16841 

16846 

16847 

16851 

16852 

16856 060514 

16857 060514 004767 
16858 060520 104466 
16859 060522 

16860 060524 10377 

16861 060526 000207 
16862 

16863 

16864 

16872 

16873 

16874 ; 7779 


4_11 
MACRO M1113 18-MAY-81 08:17 PAGE 33205 


006544 MOV #URD.23,-(SP) 
456 MOV #WRD.12,-(SP) 
374 MOV #WRD.9,- 

007454 MOV #PHR.4,-(SP) 

006100 MOV #SIX.FAT,-(SP) 

000007 MOV #7,~-(SP) 

MOV SP ,RO 
TRAP 4 
000020 ADD #20,SP 
000010 22$: ADD #10,SP 
RTS PC 
3; Routine Size: 255 words 
; Maximum stack depth per invocation: 
-SBTTL 133 
T33:: 
176776 1$: JSR PC,$T33 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 
3; Routine Size: 6 words 
3; Maximum stack depth per invocation: 
' <BLF /PAGE> 


19 words 


0 words 


: SP,* 


SEQ 0350 


7773 
7654 


7776 


am 
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SEQ 0351 


16876 sML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
ye 744 3 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (84) 
16879 ; 7780 ! 

16880 ; 7781 =! 

16881 ; 7782 BGNTST; 

loaee : 778 

16883 ; 7784 S44 

16884 ; 7785 TEST NUMBER: TST 34 

16885 ; 7786 

16886 ; 7787 i TEST NAME: SYNC DATA BUS CONTINUITY TEST (WRITE PATH) 
16887 ; 7788 =! 

16888 ; 7789 i TEST DESCRIPTION: 

16889 ; 7790} 

16890 ; 7791_~ west THE CONTINUITY OF THE 

16891 ; 7792 «| YNCHRONOUS MODULE WRITE PATH 

16896 3 7793 BATA BUS BY: 

16893 ; 7794 | 

16894 ;: 7795 1. VIA DAT_DM MODE WRITE A 

16895 ; 7796 i BACKGROUND PATTERN OF ONES 

16896 ; 7797 INTO THE GOOD BLOCK. 

16897 ; 7798 

16898 ; 7799 «| 2. VIA MBUS WRITE FUNCTION 

16899 ; 7800 i WRITE A yvecd PATTERN INTO 

16900 ; 7801! THE GOOD BLOCK 

16901 ; 7802 =! 

16902 ;: 7803 : 3. VIA DAT_DM MODE READ GOOD 

16903 ; 7804 ! NIBBLES IN THE GOOD BLOCK FOR 

16904 ; 7805 | ZEROES. 

16905 ; 7806 

16906 ; 7807 i 4. REPEAT WITH COMPLIMENT 

16907 ; 7808 i DATA AND BACKGROUND PATTERNS. 

16908 ; 7809 

16909 ; 7810 i IMPLICIT INPUTS: 

16910 ; 7811 

16911 ; 7812 | PD_TEMP 

16912 ; 7813! 

16913 ; 7814 } A BIT VECTOR OF 16 BITS WHERE 

16914 ; 7815 | THE READ PROM DATA IS STORED 

16915 ; 7816 AND ACCESSED FROM. 

16916 ;: 7817 | 

16917 ;: 7818 } 10_BUF 

16918 ; 7819 | 

16919 ; 7820 ! A veCcTon OF 256 WORDS WHERE 

16920 ; 7821 } DATA FOR MBUS READS AND WRITE 

16921 ; 7822 =! PUNCTION ARE FOUND. 

16922 ; 7823 

169235 ; 7824} 

16924 ; 7825 in 

16925 ; 7826 

16926 ; 7827 local 

16927 ; 7828 DODU_FLG, ; DROP UNIT FLAG 
16928 ; 7829 BG_PAT, s BACKGROUND PATTERN 
16929 ; 7830 RESULT, ‘RESULTS FROM XOR 
16930 ;: 7831 TST_PAT; iTEST PATTERN 


wo 


er ML-11 LOGIC TEST 
133 


oa 
LeESssVesesVees 
WRISSHVSO Ree 
@ Be Be Be Ge Fe Ge Fe Be Ge Fe Ge Be Ge Fe Ge Ge Be Ge Fe Ge Ge Ge Fe Be Ge Ge Ge Se Ge Be Be Ge Ge Ge Ge Be Ge Se Ge Ge Se Be Fe Ge Ge Se Ge Se Ge Se Se 


ed ed dd 
LP PPOOSSOSS 


sML4 
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833 DODU_FLG ? ehoes: 
7834 BG_PAT = ZEROES; 


14-May- 
14-May- 


1981 13:08:08 


'BG_PAT EQL 0°S 


PA: <NEALE>ML4 .BL1. 


'SET UP A _DATA aon XFERR AT THE GOOD BLK 


ADRS 
EQL’S TST_PAT 


!SET UP_A DATA DIAG XFERR AT SAME BLOCK 


!XOR NIBBLE DATA WITH TST_PAT 


£8 5 TST_PAT = TENGS i7ST PAT EQL 1°S 

7837 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 

7838 begin 

7839 BGNSUB;: 

7840 CLR_MBUS; 

7841 MLDT = .BG_PAT: 'LOAD DATA DIAG REG WITH 8G PAT 

784 MLD2 = .BG_PAT: 

784 MLE2 = .BGPAT: 

7844 DAT_DM_XFER ():; 

7345 MLCS1 = write; iDO A WRITE FUNCTI 

7847 incr WD_CNT from 0 to 127 do ‘LOAD BLOCK WITH 8G PAT 

7848 opin 

7849 DELAY (ONE_US); 

7850 DAT_CLK = ONE: 

7851 end: 

785 

785 CLR_MBUS ; 

7854 BAI~= 'SET ON FIRST 10_BUF 

7855 10_BUF “lst PAT: {FIRST 10_BUF WORD 

7856 GD- BLK_X R (3; iSET UP A GOOD BLOCK XFERR 

7857 mLtsi = tee iDO A WRITE FUNCTION 

7858 TIME QUT _LOOP; 

7859 CLR_ 

7860 DAT—DM_ nFER 0; 

7861 MLCS1 = read iDO A READ FUNCTION 

786 DELAY (ONE *U8) 

Pees incr WD_CNT from 0 to 112 do 'READ 113 LONG WORDS 
egin 

7866 PD_TEMP = .MLPD; 'GET THE PROM DATA 

7867 DAT_CLK = ONE; iCLOCK OUT THE DATA WORD 

7868 DELAY (ONE_USS; 

7869 RD_LNG_WRD? 'READ THE DATA WORD 

ta incr NIB_PTR from 0 to 8 do 'LOOK AT 9 NIBBLES 

787 if .PD_TEMP [.NIB_PTR] IS_NOT_SET !FIND GOOD NIBBLES 

7874 then 

7875 begin 

787 XOR_LNG_WRD (.NIB_PTR, .TST_PAT, RESULT); 

7878 if. -RESULT<0, 4> neq ZERO 'SEE IF EQUAL 

7880 begin ‘ERROR IF NEQ 

7881 RRDF (86, SYNC, PUMPER) ; 

788 CRINGE (FIV_FMT, WRD 24, WRD 25, WRD.10, WRD_12, FNC_5); 

788 PRINTB (FMT~5, .TST_PAT. .RESULT, .NIB_PTR); 


TOPS-20 Bliss-16 V2(212) 
(84) 


SEQ 0352 


SACS ML-11 LOGIC TEST 
T33 


16988 ;ML4 

16989 ; 

16990 

16991 ; 7884 
16992 ; 7885 
16993 ; rene 
16994 ;: 788 

16995 ; 7888 
16996 ; 7889 
16997 ; 7890 
16998 ; 7891 
16999 ; 789, 

17000 ; 789 

17001 ; 7894 
17006 3 7895 
17003 ; 7896 
17004 ; 7897 
17005 ; 7898 
17006 ; 7899 
17007 ; 7900 
17008 ; 7901 
17009 ; 790. 

17010 ; 790. 

17011 ; 7904 
17012 ; 7905 
17016 

17017 

17021 060530 004167 
1706 060534 024646 
17023 060536 005046 
17024 060540 005001 
17025 060542 012702 
17026 060546 00504 

17027 060550 10440 

17028 once} 15277 

17029 0605 016705 
17030 060564 042705 
17031 060570 142777 
1708 060576 150577 
bee Sete i817 
Re 
Hae SSIe. 800 
17039 60632 012704 
17040 Deoess 1411 
17041 060640 016705 
17042 060644 001404 
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DODU_FLG = UNE; 
end 


end 
end; 
ENDSUB; 
if .DODU_FLG IS_SET 


then 


begin 
DODU (.ML_LUN); 
DOCLN; 
end; 


BG_PAT = not .BG_PAT; 
TST_PAT = not .TST_PAT; 


end; 
ENDTST; 


123362 


.SBTTL $134 
$734: JSR R1,$SAVES 
CMP - (SP) ,-(SP) 
CLR -(SP) 
CLR R1 
MOV #~-1,R2 
CLR -(SP) 
1$: TRAP 2 
132434 BISB #40,aML.REG+40 
MOV ML bur R5 
BIC #177770, R5 
132416 BICB = #7, @ML.REG+40 
B1SB RS, ar -REG+40 
MOV R1.aML .REG+170 
MOV 1. aML .REG+200 
RR Ws 
132324 MOV agi, RE 
CLR 
2s: MOV #1,R4 
$: BEQ 
MOV LSDLY.RS 
BEQ 4 


SEQ 0353 

14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 

14-May-1981 13:05:08 | PA:<NEALED>ML4.BL1.7 (84) 

'DROP THIS UNIT IF DODU IS_SET 

\AND EXITS TEST 

‘COMPLIMENT 8G_PAT 

' COMPLIMENT TST_PAT AND REPEAT 
: 7778 
: DODU.FLG 7833 
: BG.PAT 7834 
: *,TST.PAT 7835 
: TWICE 7837 
3 7838 
3 7839 
; BG.PAT,* 7841 
: BG.PAT.* 784 
: BG.PAT.* 784 
: 7844 
Sw. cnr re 
+ «,$$TMP2 7849 
: *,SSTMP1 


A & 


=~ 


SegSzaseseseearse 


MLA 

34 

7044 

7045 

7046 

7047 S6p606 
7048 06065 
7049 060654 
7050 060656 
7051 

Agr} 

7053 0606 
Bes Sse 
res Ses 
7057 060706 
7058 060712 
7059 060716 
7060 pene ee 
7061 st 
its beoves 
7064 060746 
7065 060754 
7066 060760 
7067 atk 3 
7068 06077 
7069 060774 
7070 061000 
7071 006 
Ae 012 
70 016 
7074 061024 
7075 061030 
ade | 032 
70 036 
7078 040 
7079 061044 
7080 061046 
7081 050 

052 


Nese 


Ss 
on 


SSNSSRVERS 


SESSSSEEEEESSSSSSSE EEE ESESESE 


eek eh kb ed ad th od a 


& 
& 


CO ML-11 LOGIC TEST 


SOKSReoS 
NGS Eas 


SNONNANWNS 
iS 


nO 
NN 


aS 


o=— 
J 


VOBESsseseseesa sees sesl say 
Noss Se US SUVONESS 
SNASSENSSSS=SVSNVSS VSS 


essses 
S3Ss= 
n= 


Pim Aad 
N“ 
& 


a et 
EERE 
PRERE 

NN 


132264 
000040 
i 


13 

17 
00000 
132202 
133144 
000071 
000001 
121060 


000006 


132322 
0000. 
121012 
000006 


Bis 
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132404 


132306 


132270 
132256 


132200 


132224 


132206 


132130 


—— = 
oo 


309 


ae TY 
MON 


oo 


7$: 


8$: 

9$: 

10$: 
11$: 
12$: 
13$: 
14$: 


15$: 
16$: 


6(SP) 
R5 
oh 
R4 
3$ 

- paaboaserter 


ata 
#40, aML .REG+40 


,10.BUF 
PC.GD.BLK.XFER 
#61, aML REG 
aL .REG+50 


E 
R5 QML .REG+40 
a ae 


471, @ML.REG 
#1,R4 

118 

heey RS 
6(SP) 

RS 


9% 
R4 


R3 
oD, -RES*E20 08 TENP 


#20, aML.REG+120 
#1,R4 

16$ 

LSDLY,RS 

15$ 

6(SP) 


14$ 
R4 


13$ 

@ML .REG+170,D1. TEMP 
oe RE ee DB - TEMP 
BA .RESS 60,E2. TEMP 


$$T 


MP 
; SSTMP1 


SSTMP2 


WD.CNT 
WD.CNT,* 


TST.PAT,* 


* ,SSTMP2 
*,SSTMP1 
SS7mP1 
SSTMP2 
WD.CNT 


* , SSTMP2 


SSTMP 
SSTMP1 
SSTMP2 


NIB.PTR 





14-May-1981 
14-May-1981 


SEQ 0354 


TOPS 
:08 PA:< 


7871 


CZMLACO ML-11 LOGIC TEST 
$134 


1 

1 

FB axa 

is tis 
71 152 
rts Sng 
Hes Site 
Hie Se 
Hit Sie 
a 176 
rie Sia 
71 $18 
71 1 

71 14 
71 16 
71 20 
ret Biss 


PRIPRINRIPIPIPIPIPIPININPININY 
Muss £ > x 
MmOALNO 


MORIARY 
SSNVSET 
o=—SQocoo0cocdoo 


Wie 


PEER RSRUN SSS 


SSFSAL 


S99 S299 III INI SN NINN 
RUNUSSEGRGROD AS Se USURORONUS sa woe NA SSRIRRRARSS 
SESSRRESSERERERESERESSREREREE RES SORES SSES SLES ASSESS 


SS 
On 


Se 


J NNON MINIT 
ore oocoo 


fo 
NAAM 


agreacree 


3 


S& 


3 ooo 
— a 
vse 

CoRR 

NAAR 


& 


So 
= 


Se 
Ra~N 
REEVE 
AAUWN 


MIMIMIMINININ LS 
ANN 
~ 
oa 


Sooooo 
= RS St 
& Rr no 


SERS 


tent 


AWS NN 
NN 


013120 
177770 
000001 


121734 
000010 
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000012 


000036 


18$: 
19$: 


R4,R5 
RS 
RS 


RS 
APD. TEMP,RS 
R5,-(SP) 
R4.=(SP) 
#177770, (SP) 
#1,-(SP5 
-(§p 

PC BL$GT2 
#10,SP 

RO 


SP, 
PC. XOR.LNG.WRD 
#17, 12(SP) 

18$ 


BRD. 25,~ (SP) 
MWRD.26,-(SP) 
#FIV.FMT,-(SP) 
#6,~(SP) 


R4, (SP) 
30(SP) ,-(SP) 
R2,-(SP) 
#FAT.5,~(SP) 
#4,-(SP) 


14 
#1,36(SP) 
#26 SP 


R4 #10 
178 


i 60 
126 

6 

RO 


NIB.PTR,* 


NIB.PTR,* 


NIB.PTR,* 
TST.PAT,* 


RESULT,* 
* ,RESULT 


SP,* 
NIB.PTR,* 
RESULT,* 
TST.PAT,* 
SP,* 

* ,DODU.FLG 
NIB.PTR 
NIB.PTR,* 


WD. CNT 
WD.CNT,* 


14-May-1981 1 
14-May-1981 1 


3: 


SEQ 0355 


48:54 
05:08 


TOPS 
PA:< 


7873 


7876 


7878 
7881 


7882 


7883 


C 

$ 
171 
aE 
17158 
17159 061400 
17160 bres 
17161 061406 
17168 061414 
1716 be 1638 
17164 poles 
17165 061424 
17166 pe lees 
17167 0614 
17168 061432 
17169 061434 
17170 061440 
17171 061442 
17172 061446 
17173 
17174 
17175 
17180 
17181 
17185 
17186 
17190 061450 
17191 061450 
17192 061454 
17193 061456 
17194 061460 
17195 061462 
17196 
17197 
17198 
17203 
17204 
17205 ; 


ZMLACO ML=11 LOGIC TEST 
134 


004767 


7906 
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000001 
000010 


177054 


! <BLF /PAGE> 


228: 


3; Routine Size: 
: Maximum stack 


T34:: 
1$: 


3; Routine Size: 


3; Maximum stack depth per invocation: 


¢ $ 

§ toa 
ML.LUN,RO 
51 

46 

R1 

R2 

(SP) 
(SP) #1 
#10,SP 
PC 


1 
$ 
( 
2 


232 word 


s 
depth per invocation: 24 words 


6 words 


DODU.FLG,* 


BG.PAT 
TST.PAT 
TWICE 

TWICE ,* 


14-May-1981 
14-May-1981 


wet 


SEQ 0356 


8:54 


7903 
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SEQ 0357 


17207 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss=16 V2(212) 
7 08 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1.7 (85) 
17210 : 7907 ! 
7 1 : £908 BGNTST; 
17 ig : 7910 !44 
17 14 ; 2911 i TEST NUMBER: TST 35 
7216 : 2913 TEST NAME: | SYNC DATA BUS CONIINUITY /READ PATH 
17218 : 7915 i‘ TEST DESCRIPTION: 
17219 : 7316 i TEST THE CONITNUITY OF THE SYNCHRONOUS MODULE READ 
17¢e0 3 ja at DATA BUS BY: 
7eee 5 1919 1. VIA MBUS WRITE FUNCTION WRITE ONES INTO THE GOOD BLOCK. 
720k ; 92 2. VIA MBUS READ FUNCTION READ THE GOOD BLOCK FOR ONES. 
17226 : 7923 3. REPEAT WITH COMPLIMENT DATA PATTERN. 
17227 : 7924 
17208 : 985 i IMPLICIT INPUTS: 
17230 : 7927 A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
17231 : 7928 FUNCTION ARE FOUND. 
19538 5380 
13536 toa Local ou FLG 'DROP UNIT FLAG 
17236 : 7938 TST PAT, iTEST PATTERN 
17237 3 7934 PAT: iBACKGROUND PATTERN 
17239 : 7936 DODU_FLG = ZERO; 
17240 ; 7937 TST_PAT = ONES; 
17241 : 1938 BG_PAT = ZEROES; 
17368 : ory iner TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
Py n 
17965 : 794 CLR. MBUS; , 
17246 : 794 BAI~= ONE; 'SET ON FIRST 10_BUF ADRS 
1724 : 794% O_BUF = .TST_PAT: iFIRST 10_BUF ADRS GET TST PAT 
17248 : 7945 GD-BLK_ (J; iSET UP AGOOD BLOCK XFERR 
17249 : 794 mLUS1 = write: DO A WRITE FUNCTION (WRITES THE TST_PAT) 
ip Fae Diego 
17252 : 7949 CLR_MBUS; 
17388 ree inet i O60 Gran 6 x 0 ‘LOAD 10_BUF WITH BG PAT 
3 ncr rom oO [¢] 3 
17533 ; ja: 10_BuF C.10_CNTJ = .BG_PAT; = 
17257 : 7954 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
17258 : 7955 mLUS1 = read: iDO A READ FUNCTION (READ THE TST PAT) 
17259 : 195 TIME_OUT_LOOP; 
1756 : 7958 incr I0_CNT from 0 to 255 do ‘READ THE 10_BUF FOR TEST PATTERN 


ee ML-11 LOGIC TEST 
T 


17263 :ML4 
17264 ; 
17265 

17266 ; 
17267 ; 
17268 ; 
17269 ; 
17270 ; 
Bn | 
15593 3 
17274 ; 
17275 : 
17276 : 
17277 : 
17278 ;: 
17279 ; 
17280 ; 
17281 ; 
17282 ; 
17283 ; 
17284 ; 
17285 ; 
17286 ; 
17287 ; 
17288 ; 
17289 ; 
17293 

17294 

17298 061464 
17299 061470 
17300 061472 
17301 061476 
He 061500 
17303 061502 
17304 061510 
17305 061514 
He) 061520 
1730 pol 368 
17308 0615 
17309 061540 
17310 061544 
34 p01 320 
17318 belees 
17318 061566 
17316 pe i8se 
17317 061600 


ssess 
z 


Stetteneecs 
SNS 
Ne 


= oe o=——= 0 0o— 
AESO= Slane =n 

~ ~N A 

NO ~N s 
—~PD ANNN NM 


4 
SSN 
oS 


So 


WIN 
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SEQ 0358 


if .10_BUF C.IO0_CNTJ] neq .TST_PAT 
then 


begin 
ERRDF (87 


PRINTS (SEV_FMT, WRD_24, WRD_25, WRD_10, WRD_12, WRD_23, FNC_6, WRD_19); 
PRINTB (FMT-2, .TST_PAT, .10-BUF C.IO_CNTJ, t.TST_PAT xor .10_UF [-10_CNTI)); 
DODU_FLG = OnE ; 

eng; 


ENDSUB; 


if .DODU_FLG IS_SET 
then 


pogia 
DOBU (.ML_LUN); 
DOCLN; 


end; 


TST_PAT = not .TST_PAT; 


e 
ENDTST; 


122426 
177777 


179770 
Shee0 
: 10 


131504 


131466 
131454 


131376 


131420 


$735: 


1$: 


2s: 
3$: 


BG _PAT = not .BG_PAT; 


SYNC, DUMPER); 


$135 
R1,$SAVE5 
=(SP) 
#-1,R1 

R 


R 
#40, QML .REG+40 


,10.8U 
PC. GD.BLK.XFER 
#61, @ML.REG 


@ML .REG+5 
$ 


#40 aA -REG+40 
wi ila 


14-May-1981 13:49:46 
14-May-1981 13:05:08 


'SEE IF IO_BUF WORD EQLS TST PAT 
'ERROR AND SET DODU_FLG IF NEQ 


!DROP THIS UNIT IF DODU_FLG IS SET 


'COMPLIMENT TST_PAT 
'COMPLIMENT BG_PAT AND REPEAT 


t DODU.FLG 


TST.PAT,* 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>ML4 .BLI. 
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$13 SEQ 0359 
17319 ZML4 14-May-1981 13:48:54 TOPS 
; : : 14-May-1981 13:05:08 PA:< 
1 ¢ 061604 142777 7? 131402 BICB =: #7, @ML.REG+4 
17323 061612 150377 131376 BISB R3.aML.REG+G 
17324 06161 005008 CLR R : 10.CNT 7951 
17325 061 10¢0 4$: MOV R2,R3 + 10.CNT,* 7952 
1 061622 ASL 
17327 061624 010463 011600 MOV RZ, 10.BUF (R3) : BG.PAT,* 

17328 061630 00520 INC R : 10.CNT 7951 
17329 0616 02022 000377 CMP R2,4377 + 10.CNT,* 

17330 0616 3 2 BLE 

17331 06164 767 1342246 JSR PC GD.BLK.XFER : 7954 
173 061644 012777 990971 131302 MOV #71, aML.REG : 7955 
17333 061652 105777 131346 5$: TSTB8 © @MIL.REG*50 

17334 061656 100375 BPL 54 

17335 061660 905002 CLR R2 : 10.CNT 7958 
17336 061662 01020 6S: MOV R2,R3 : 10.CNT,* 

17337 061664 006. ASL 

17338 061666 062703 011600 ADD #10.BUF ,R3 

17339 061672 021301 CMP (R3),R1 3 *,TST.PAT 

17340 061674 001454 BEQ 

17341 061676 104455 TRAP : 7963 
17349 061700 000127 WORD 7 

17343 061702 010526 “WORD SYNC 

17344 061704 024060 “WORD 

17345 061706 012746 006506 MOV #WRD. 19,-(SP) : 7964 
17346 061712 012746 01 MOV #FNC.6,-(SP) 

17347 061716 012746 006544 MOV MWRD. 23, -(SP) 

17348 061722 012746 006426 MOV MRD. 12,-(SP) 

17349 061726 012746 0064 MOV #uRd. 10,~(SP) 

17350 061732 012746 0065 MOV MRD. 25.-(SP) ; 

17351 061736 012746 006552 MOV #WRD.24.=(SP) 

1733¢ 061742 012746 006120 MOV #SEV.FMT,-(SP) 

1735 061746 012746 000010 MOV #10,-(SP5 

17354 061752 010600 MOV SP.RO : SP,* 

17355 061754 104414 TRAP ‘14 

17356 061756 011316 MOV (R3), (SP) : 7965 
17357 061760 010146 MOV R1,-(SP) + TST.PAT,* 

17358 061762 046616 00000. BIC 2(SP) , (SP) 

17359 061766 166 00000 BIC R1,2(SP) : TST.PAT,* 

17360 061 052616 BIS (SP) +, (SP) 

17361 061774 011 MOV (R3) ,- (SP) 

1736¢ 1776 010146 MOV R1,-(SP) : TST.PAT,* 

1 12746 004266 MOV #FMT.2,-<SP) 

17364 062004 012746 MOV #4,-(SP) 

17365 010 01 MOV SP_RO : SP,* 

17366 12 106414 TRAP —s_-'14 

1736 14 012766 000001 000032 MOV #1,32(SP) 3 *,DODU.FLG 7966 
17368 2 706 000032 ADD #32,SP : 796, 
17369 7$: INC R : 10.CNT 795 
17370 ee 9 2 000377 cn R2,4377 : 10.CNT,* 

17372 06 10446 67 ; 7967 
173 36 006000 ROR RO 
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—_ 
SoS 
<r} 
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= 
as 


r 

= 

wa 
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Be 


1 

1 

1 

1 

1 

' 

17384 oe50e2 
te. Oeo0es 
1s I 
17388 062074 
17389 062076 
17390 062100 
17391 

17392 

17393 

17398 

17399 

17403 

17404 

17408 062102 
17409 062102 
17410 062106 
17411 062110 
17412 062112 
17413 062114 
17414 

17415 

17416 

17421 

17422 

17423 ; 


004767 
104466 


103773 
000207 


7983 
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000001 
131522 


000001 


177356 


! <BLF /PAGE> 


sML4 


8$: COM 


3; Routine Size: 
3; Maximum stack 


T35:: 
1$: 


; Routine Size: 
3; Maximum stack 


135 word 


s 
depth per invocation: 


735 
PC,$T35 
66 
RO 
1% 
PC 
6 words 


depth per invocation: 


20 words 


0 words 


: DODU.FLG,* 


3 TST.PAT 
PAT 


14-May-1981 1 
14-May-1981 1 


3 


SEQ 0360 


2:48:54 
:05:08 


TOPS 
PA:< 


2 
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SEQ 0361 
17425 :ML4 14-May-1981 13: 48:54 TOPS-20 Bliss-16 V. (133 
1t : 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (86) 
17428 ;: 7984 ! 
17429 ; 7985 =! 
17430 ; reese BGNTST; 
17431 ; 798 
174 $ : 7988 =! 4+ 
17433 ; 7989 ' TEST NUMBER: TST 36 
17434 ; 7990 } 
ee é faa 4! TEST NAME: RAM BUS ADRS COUNTER TEST /WRITE PATH 
17437 ; 799 i TEST DESCRIPTION: 
17438 ; 7994 i 
17439 ; 7995 i TEST ABILITY OF THE RAM_BUS ADDRESS 
17440 ;: 7996 i COUNTERS TO LOAD/UNLOAD THE SKIP 
ieee) : aad RAM DURING WRITE FUNCTIONS BY: 
ees 5 7999 1. LOADING A REPEATING COUNT OF 0 
17444 ; 8000 i sh 63 INTO THE NIBBLES OF THE 
ieee 3 ia FIRST 64 WORDS OF THE I0_BUF. 
17447 : 800 i 2. VIA MBUS WRITE t~ Uy WRITE 
17448 ;: 8004 i THE CONTENTS OF THE I0_BUF 
17449 ;: 8005 INTO THE GOOD BLOCK. 
17450 ; 8006! 
17451 ; 8007 i 5 be DAT_DM READ GOOD NIBBLES IN 
17482 ; 8008 i THE GOOD BLOCK FOR THE UNBROKEN 
17453 ;: 8009 COUNT OF O TO 63. 
17454 ;: 8010 } 
17455 ; 8011! ONCE A BAD NIBBLE IS ENCOUNTERED 
17456 ;: 801 i MASK THAT NIBBLE FROM FURTHER 
17457 ;: 801 i READS. 
17458 ;: 8014! 
17459 : 8015! 4. ere READING NIBBLES UNTIL 
17460 ; 8016 i 113 WORDS ARE READ OR ALL 10 NIBBLES 
17461 ; 8017! " 
Fy 1 3 8018} 
17463 ; 8019 : IMPLICIT INPUTS: 
17464 ; 8020 : 
17465 ; 8021 i PD_TEMP 
17466 ; 8022 } 
17467 ; 802 i A BIT VECTOR OF 16 BITS WHERE 
17468 ; 8024 i THE READ PROM DATA IS STORED 
17469 ; 8025} AND ACCESSED FROM. 
17470 ; 8026 | 
17471 ; 80 i 
ees 3 8028 i ry TUECTOR OF 256 WORDS WHERE 
17473 : 8029 ! FOR MBUS READS AND WRITE 
17474 ; 80 i pUNCT ION ARE FOUND. 
17475 ; 8031! 
17476 ;: O36 i- 
17477 ; 03 
17478 ; 034 local 
17479 ;: 035 DODU_FLG, 'DROP UNIT FLAG 
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SEQ 0362 
17481 ;ML4 ym ams 2 13:48:54 TOPS=-20 Bliss-16 V a 
ees : 14-May-1981 13: 05:08 PA:<NEALE>ML4.BL1.7 (86) 
17484 ; 8036 WRD_CNT, 'WORD COUNT 
17485 ; 8037 NIB-IGNORE : bitvector [16], i ee IGNORE FLAGS 
oe 3 ; 8038 ERR_FLG, 1ERROR FLAG 
17487 ; 8039 BAD_NIB_CNT, inne NIBBLE COUNT 
7488 ; 8040 PASS_CNT, 
17489 ; 8041 NIB_PAT; iNIBBLE PATTERN 
7490 ; 804 
17491 ; 8045 DODU_FLG = ZERO; 
ie 3 opee WRD_CNT = ZERO; 
tbo} 3 94] incr CNT from 0 to 63 do !LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63 
1 3 oes mer CNT from -1 to 11 by 4 do 'LOAD NIBBLES IN WORD WITH REPEATING COUNTS OF 0-63 
17498 ; 8050 (10.8 BUF C.WRD_CNTJ)<0, £ = .PAT_CNT + 1; iLOAD FIRST NIBBLE IN WORD 
17499 ; 8051 (10_BUF C.WRD_ atNT <A = .PAT_CNT + ¢ 'LOAD SECOND NIBBLE IN WORD 
17500 ; 805 (10_BUF C.WRD_CNTJ)< = .PAT_CNT + 3; {LOAD THIRD NIBBLE IN WORD 
17501 ; 805 (10_BUF C.WRD DENT AS, a> = .PAT_CNT + 4; 'LOAD FORTH NIBBLE IN WORD 
17502 ; 8054 WRD_CNT = .WRD_CN ‘INCREMENT TO NEXT WORD 
17503 ; 8055 end; 
7504 ; 8056 
17505 ; 8057 BGNSUB; 
17506 ; 8058 CLR_MBUS; 
17507 ; 8059 GD_BLK_ XFER 0); 'SET UP A GOOD BLOCK XFERR 
17508 ; 8060 MLTS1 = write; !DO A WRITE FUNCTION 
17509 ; 8061 TIME _OUT_LOOP; 
17510 ; 8 BUS; 
17511 ; 806 E = ZEROES; 
17512 ; 8 PASS_CNT = ZEROES; 
17513 ; 8065 NIB_PAT = ZEROE 
17514 ; 8066 BAD_NIB_CNT = ZEROES; 
17515 ; 8067 DAT DM_RFER 0; 'SET UP A DATA DIAG MODE AT THE GOOD BLOCK 
17516 ; 8068 MLCS1 = read; 'DO A READ FUNCTION 
17517 ; 8069 DELAY (ONE_US); 
17518 ; 8070 
17519 ; 8071 do 'LOOP UNTIL THE BLOCK IS READ OR 9 BAD NIBBLES FOUND 
17520 ; o076 begin 
17521 ; 807 PD yy" = .MLPD; 'GET THE PROM DATA 
17366 $ 8074 DAT_CLK = ONE; 'CLOCK OUT THE DATA WORD 
17523 ; 8075 DELAY. CONE _US); 
Her 3 yA RD_LNG_WRD; 'READ THE DATA DIAG REGISTERS 
17526 ; 8078 incr NIB_PTR from 0 to 8 do 'LOOK AT 9 NIBBLES 
17527 ; 8079 begin 
17528 ; 8080 
he Fa 3 8081 if .PD_TEMP C.NIB_PTR] IS_NOT_SET 'FIND GOOD NIBBLES 
17530 ; e086 then —. 
ag: ~~ 
17835 ; 8085 if .NIB_IGNORE [.NIB_PTR] IS_NOT_SET 'SEE IF THIS NIBBLE FOUND BAD BEFORE 
17534 ; poe then 
17535 ; 808 begin 


“mom 
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99 
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ay 

Re 
= 
an 
N 
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ssesss 
Ss 


PASS_CNT = .PASS_CNT + 13 
en 
until (.PASS_CNT eql 113) or (.BAD_NIB_CNT eql 9); 


ENDSUB; 


if .DODU_FLG IS_SET 
then 
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SEQ 0363 


14-May-1981 13:48:54 
14-May-1981 13:05:08 


TST_LNG_WRD (.NIB_PTR, .NIB_PAT, ERR_FLG); 
if .ERR_FLG IS_SET 
then 


TOPS-20 Bliss-16 V2(212) 
PA:<MEALE>ML4.BL1.7 (86) 


'TEST THE NIS@LE IF NEVER FOUND BAD 
'SEE IF TEST FOUND AN ERROR 

peaio 'ERROR AND SET DODU_FLG IS SET 

ERRDF (88, ARR_DAT, DUMPER); 

PRINTB (SIX_FMT, FNC_18, WRD_50, WRD_10, WRD_12, FNC_5, WRD_19); 

DODU_FLG = ONE; 

end 
end 


end 
else 


in 
NIB, IGNORE C.NIB_PTR] = ONE; 
BAD_NIB_CNT = .BAD_NIB_CNT + 1; 
end; 
NIB_PAT = .NIB_PAT + 1; 
end; 


!THIS NIBBLE IS BAD 

'SET THIS NIBBLE NIB_IGNORE FLAG 
! INCREMENT BAD NIB COUNT 

! INCREMENT NIB PAT 

! INCREMENT PASS COUNT 

'REPEAT UNTIL COMPLETE 


!DROP THIS UNIT IF DODU_FLG SET 


poate 
DODU (.ML_LUN); 
DOCLN; 


end 


ENDTST; 


121774 
000006 


177777 


-SBTTL $136 
JSR 


$136: JS R1,$SAVES ; 7982 
LR 3) DODU.FLG 8043 
CLR R3 + WRD.CNT 8044 
CLR R2 : CN 8046 
1$: MOV #-1,R0 : *,PAT.CNT 8048 
2s: v4 ant ; WRD.CNT,* 8050 


am 
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SEQ 0364 

17593 ZML4 14-May-1981 13:48:54 TOPS 
17994 : 14-May-1981 13:05:08  PA:< 
1759 062144 062701 011600 ADD #10.BUF ,R1 
17597 062150 010005 MOV RO,RS : PAT.CNT,* 
17598 062152 005205 INC R 
17599 062154 042705 177760 BIC #177760,R5 
17600 062160 142711 000017 BICB =: #17, (R15 
17601 062164 150511 BISB RS, (R1) 
17602 062166 010005 MOV RO.R5 : PAT.CNT,* 8051 
17603 062170 062705 000002 ADD #2.R5 
17604 062174 006305 ASL RS 
17605 062176 006305 ASL R5 
17606 062200 006305 ASL R5 
17607 062202 006305 ASL RS 
17608 062204 042705 177417 BIC #177617,R5 
17609 062210 142711 000360 BICB #360, (R1) 
17610 062214 150511 BISB  —-R5,, (R1) 
17611 062216 010005 MOV RO.RS : PAT.CNT,* 8052 
ele 062220 062705 000003 ADD #3,R5 
17613 062224 000305 : SWAB sR 
17614 062226 042705 170377 BIC #170377,R5 
17615 062232 042711 007400 BIC #7400, (R1) 
17616 062236 050511 BIS RS, (Ri) 
17617 062240 010005 MOV RO.RS : PAT.CNT,* 8053 
17618 062242 062705 000004 ADD #4.R5 
17619 062246 000305 SWAB sR 
17620 062250 006305 ASL 5 
17621 062252 006305 ASL RS 
17622 062254 006305 ASL RS 
17623 062256 006305 ASL R 
17624 062260 042705 007777 BIC #7777, RS 
17625 062264 042711 170000 BIC #170000, (R1) 
17626 062270 050511 BIS R5,(R1) 
17627 062272 005203 INC R3 : WRD.CNT 8054 
17628 062274 062700 000004 ADD #%,RO t *,PAT.CNT 8048 
17629 062300 020027 000013 CMP RO.#13 : PAT.CNT,* 
17630 062304 003715 BLE 2$ 
17631 062306 00520 INC R2 : CNT 8046 
17632 062310 020227 000077 MP R2,H77 : CNT,* 
17633 062314 003707 ALE 1$ 

062316 10440; 3$: TRAP 2 : 8055 
17635 062320 152777 000040 130666 BISB #40,aML.REG+40 : 8057 
176 062326 91670 131250 MOV ML. ul R 
17637 0623 702 177770 BiC #177770,R2 
17638 062336 14277 7 130650 BICB = #7, AML. .REG+40 
17639 4 150277 130644 BISB R2.aML.REG+40 
17640 50 004 4 133514 JSR PC.GD.BLK.XFER ; 8059 
17641 062354 127 7 000061 130572 MOV #61, aML REG : 8060 
(red Sesteg N0oure Tweet: sim pare 
17644 062370 152777 0 130616 BISB #40,aML.REG+40 : 061 
17645 062376 01670 Libs MOV mi bur R2 ; : 7 
17646 062402 042702 177770 BIC #177770,R2 
17647 062406 142777 000007 130600 BICB = #7, AML .REG+40 





RY 
:17 PAGE 
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co M1 

$36" 





E 
. wi. 16NOR 
*ML4 ° ASS.CN 8068 
~ 2,aML .REG+40 ¢ NIB-PAT CNT 8069 
81SB aise) ; BAD.NIB. 
LR 4 : 
17649 Fi he R 
33 43 doses 06000 cLn R3 AT.DM.XFER + *,SSTMP2 
1765 " CLR PC .D L REG ; *,$STMP1 
17633 06c6¢0 ; son 47) anil 
7654 a. ; $STMP 
17658 é sis 131368 130510 _ wg SDLY,R2 : SSimP1 8075 
1s St fet S000 Re ; sm irs 
i ne a : 
16g “60 003068 7$: bet 55 tg ts Fag aa ; * SSTMP2 
17668 464 B03 ae : Rey #20, aML.REG+12 : *,$$TMP1 
17eee 466 005301 30416 8$: 81SB #1,R1 STMP 
17666 065472 or oees d00000 130S66 BF gs y.n2  SStme1 
17667 Oech ze 159977 0000 => = 118 tonne 
17669 069503 12761 bo000 OrR CSP) Jatat 
He mee gic SO m: gs 0 
17671 516 01 : 1 
17673 963320 005066 000006 DEC a 0.01. TEMP TR 
ret? desece 0 2 118: ol SA ; NIB.P 
17675. 062530 603374 mOV ant -REG +200: TEMP ; NIB.PTR,* 8085 
17 See boleh s 12$: v -REG+160, ; 
ere ee sar 130602 126400 Roy Ro 8081 
17680 65306 oi7rer 1 138s =  o ; NIB. 
17681 062562 b40900 ASR #4,R ; 
17682 0625646 006200 MOV SP“R PTR,* 
1768 062566 00 ADD RO : NIB. 
17684 062570 iret ADD RO,~(SP) (SP) 
Pee? esa? 013702 000006 MOV ap. TEMP, 
17686 574 ADD RI ,-(SP) P) 
17687 5 re Bt7 901s 8085 
17689 Gesee O62716 013120 ei #1 .5(sP 
19694 3 O10146 177770 CLR PC .BLSGT2 
1708) poses 716 1 a OwHOT RP : NIB.PTR,* 
17698 O6s6i4 Oi9746 — ae ; NIB. 
17098 SeSe5e 767 bapase BNE n2.-(SP) 
17696 O6s6 aera Sa ee 
es ISS Bis hv 
170 8D Ocdct> Weiee 
77770 
17509 Beoeta pig [errs 
17708 5ee8 12746 
17703 06 
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BSD ERRS 
DORRERSE 
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000001 


000026 


3ML4 


14$: 
15$: 


16$: 


17$: 


-(SP) 
PC BLS$GT2 
#10,SP 
RO 


16$ 
R1,-(SP) 
R3,=(SP) 
#16,-(SP) 


PC; TST.LNG.WRD 
10(SP) #1 


1 
#1,26(SP) 
#20,SP 
#6, SP 


1 
R2,~(SP) 
R1.-(SP) 
#177770, (SP) 
#1,-(SP 


(SP) ,=(SP) 
PC ,BLSPU2 


14-May-1981 
14-May-1981 


NIB.PTR,* 
NIB.PAT,* 


ERR.FLG,* 
ERR.FLG,* 


SP,* 
* ,DODU.FLG 


NIB.PTR,* 


; BAD.NIB.CNT 


NIB.PAT 
NIB.PTR 
NI8B.PTR,* 


PASS.CNT 
PASS.CNT,* 


BAD .NIB.CNT,* 


1 
1 


254 
:08 





se 


+3 


PRERERERARERER ES 
DBEASABUIN SOW UH AR oe 


e38333 


ee a ee ee ng ee ce ee ee ed ed ed ed nd ed ed ed ded od ed ed 
PP | 

S55 

tied. $V 
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3; Routine Size: 
3 Maximum stack 


; Routine Size: 
; Maximum stack depth per invocation: 


SEQ 0367 


14-May-1981 13:48:54 
14-May-1981 13:05:08 





TOPS 
PA:< 


8116 
8119 


7982 


8121 
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SEQ 0368 


= 
3 


3ML4 aaa $4 13:48:54 TOPS=20 Bliss-16 V2(212) 
3 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (87) 


| 

Gust: 

144 

! TEST NUMBER: TST 37 

TEST NAME: RAM BUS ADRS COUNTER TEST /READ PATH 
TEST DESCRIPTION: 


TEST ABILITY OF RAM/BUS ADRS 
COUNTERS TO LOAD/UNLOAD THE SKIP 
RAM DURING READ FUNCTIONS BY: 


1. LOADING A REPEATING COUNT OF 0 
TO 65 INTO THE NIBBLES OF THE 
FIRST 64 WORDS OF THE I0_BUF. 


2. VIA MBUS WRITE FUNCTION WRITE 
THE CONTENTS OF THE I0_BUF 


oee3 


N 
¥ 


Oe ek ed ed ed ad od ed 
MN 
CONAW 


OWONAOUSWN—O 


agaassadszas 


“ a ee | 

co oo co 3 
os stistetart et tists 
Ww CONAOULSWN = 


0.00 Co Gd Go On Gd Go Gd Co OP Cd Cd Od Go Go Go Gd Od 6d Cd Cd Cd Gd Go Cd OD Co Cd Cd Cd Gd Cd Gd Od Cd Od Gd Cd Cd C9 Cd Cd Co C9 Cd Cd OD GD GO Cd CD 
pea ate St Se eat er ea er er er eae er bee ee be ee ee ee ee hee ee ee ee he ee be ee ee ee er ee ee ee ee ee ee ee ee ee ee er ee er ee ee er er ee er Pe eer bes 


0 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
‘i 
2 
re; 
7829 46 INTO THE GOOD BLOCK. 
7830 47 
7831 48 3. CLEAR OUT THE 10_8UF 
7832 49 
50 4. VIA MBUS READ FUNCTION READ 
8 51 THE GOOD BLOCK FOR THE REPEATING 
7835 25 COUNT OF O TO 63. 
7836 5 
7837 54 IMPLICIT INPUTS: 
7838 55 
7839 56 10_BUF 
7840 57 
7841 58 A VECTOR OF 256 WORDS WHERE 
rote 59 DATA FOR MBUS READS AND WRITE 
784 60 FUNCTION ARE FOUND. 
7844 61 
7845 6¢ -—~ 
7846 6 
7847 64 local 
7848 65 DODU_FLG, 'DROP UNIT FLAG 
7849 66 WRD_CNT, ' OUNT 
7850 67 PAT_INC, 'PATTERN INCREMENT 
7651 68 SIZ_EXP, 'SIZE EXPRESSION 
Te34 69 POS _EXP, 'POSITIONAL EXPRESSION 
1833 a TEMP; 'TEMPORARY STORAGE LOCATION 
7855 a CLR_MBUS; 
rae 73 DODD_FLG = ZERO; 
A E14 WRD_TNT = ZERO; 
7859 76 incr COUNT from 0 to 63 do 'LOAD 64 WORDS WITH REPEATING COUNTS OF 0-63 
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ai SEQ 0369 

17861 ;ML4 14-May-1981 13°68:38 TOPS-20 Bliss-16 V2(212) 

17868 : 14-May-1981 13:05:08 PA:<NEALESML4.8SL1.7 (87) 

17864 ; 8177 

ree ; 3158 ner, PAT Cot from -1 to 11 by 4 do 'LOAD NIBBLES IN WORD WITH REPEATING COUNT OF 0-63 
: n 

17867 ;: 8180 (10, BUF -WRD_CNT])<O, 4> = .PAT_CNT * 1; 'LOAD FIRST NIBBLE IN WORD 

17868 ; 8181 (1O0_BUF C.WRD_CNTJ)<4, 4> = .PAT_CNT + $' : C NIBBLE IN WORD 

17869 ; ais (1O_BUF C.WRD_CNTJ)<8, 4> = .PAT_CNT + 3; 'LOAD THIRD NIBBLE IN WORD 

17870 ;: 818 (I0_BUF C.WRD CNTJ)<12, 4>= -PAT_CNT + 4; 'LOAD FORTH NIBBLE IN WORD 

17871 ;: 8184 WRD_CNT = -WRB_CNT + 1; ‘INCREMENT TO NEXT WORD 

a 1; 3 8185 end; 

17873 ;: 8186 

17874 ;: 8187 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 

17875 ; 8188 MLUS1 = write: 'DO A WRITE FUNCTION 

17876 ;: 8189 TIME _OUT_LOOP; 

17877 ;: 8190 ®8GNSOB; 

17878 ;: 8191 

17879 ; 8192 incr IO_CNT from 0 to 255 do 'CLEAR OUT 10_BUF 

17880 ; 8193 10_BurF C.10_CNTJ = ZEROES; 

17881 ; 8194 

17882 ; 8195 MBU 

17883 ; 8196 GD BLK_XFER 0; 'SET UP A GOOD BLOCK XFERR 

17884 ;: 8197 MLTS1 = read; 'DO A READ FUNCTION 

17885 ; 8198 TIME OUT_L ’ 

17886 ; 8199 BUS; 

17887 ; 8200 SIZ_EXP = 4; ‘FIELD SIZE FOR NIBBLES ALWAYS 4 BITS 

17888 ; 8201 _CNT = 0; 

17889 ; 820 

en : a507 incr COUNT from 0 to 63 do 'READ 64 WORDS IN I10_BUF 

17892 ;: 8205 incr PAT_CNT from -1 to 11 by 4 do 'READ REPEATING COUNTS OF 0-63 

17893 ; ase peat 

17894 ; 820 POS_EXP = ZERO; ‘FIELD SELECTOR SELECTS THE FOUR NIBBLES 

17895 ; 8208 PAT_INC = ONE; 

17e8 3 344 TEMP = -10_BUF C.WRD_CNTJ; !'GET A WORD OUT OF I0_BUF 

17898 ; 8211 incr CNT from 0 to 3 do 'READ THE FOUR NIBBLES IN WORD 

17899 ; esis begin 

17900 ; 821 

17901 ; 8214 if .TEMP<.POS_EXP, .SIZ_EXP> neq (.PAT_CNT + .PAT_INC) 

1S 3 8215 'COMPARE NIBBLE WITH RESPECTIVE 0 -63 CNT 

17903 ; $18 then 

17904 ; $| peata 'ERROR AND SET DODU_FLG IF NEQ 

17905 ;: 18 ERRDF (89, ARR_DAT, DUMPER); 

17906 ; 821 PRINTB (SIX FMT, FNC_18, WRD_5SO, WRD_10, WRD_12, FNC_6, WRD_19); 

17907 ; a550 DODU_FLG = ONE; 

17908 ; 8221 3 

17909 ; $555 

17910 ; POS_EXP = .POS_EXP + 4; ‘POINT TO THE NEXT NIBBLE IN WORD 

17911 ; 224 PAT-INC = .PAT~INC + 1: INCREMENT THE 0-63 COUNT 

Wee: Be = 

17914 : WRD_CNT = .WRD_CNT + 1; 'GET THE NEXT I10_ BUF WORD 

17915 ; 85 8 end; os i 
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ENDSUB; 
if .DODU_FLG IS_SET 
then 
pogin 
DODU (.ML_LUN); 
DOCLN; 
end; 
ENDTST; 
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MACRO M1113 18-MAY-81 08:17 PAGE $53 


TOPS=20 Bliss-16 V2(212) 


14-May-1981 13:69:38 
05:08 PA:<NEALE>ML4.BL1.7 (87) 


14-May-1981 13: 


!DROP THIS UNIT IF DODU_FLG SET 


$137 


; DODU.FLG 
; ot ed 


COUN 
#-1,R3 : *,PAT.CNT 
2(SP) RA : WRD.CNT,* 
#10.BUF ,R4 
RSA 

#177760,R5 
#17, (RAS 


; PAT.CNT,* 


; PAT.CNT,* 


R5 
#177617,R5 
#360, (R4) 
R5, (R4) 
R3,R5 
#3,R5 


#170377,R5 
#7400, (R4) 


; PAT.CNT,* 


SEQ 0370 
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SEQ 0371 

17973 ZML4 14-May-1981 13:48:54 TOPS 
1797% : 14-May-1981 13:05:08 PA:< 
17976 063332 050514 BIS RS, (R4) 
13909 06 010305 MOV R3.R5 : PAT.CNT,* 8183 
17978 06 062705 000004 ADD #4,R5 
17979 06 000305 SWAB RS. 
17980 063344 006305 ASL 5 
17981 06 006305 ASL RS 
1798 35 906308 ASL R5 
1798 35 5 ASL RS 
17984 06 354 042705 907777 BIC #7777, RS 
17985 063 042714 170000 BIC #170000, (R4) 
17986 063364 050514 BIS RS, (R4) 
17987 063366 005266 000002 INC 2(SP) : WRD.CNT 8184 
17988 063372 062703 000004 ADD #4,R3 + *,PAT.CNT 8178 
17989 063376 020327 000013 CMP R3.413 : PAT.CNT,* 
17990 063402 003713 BLE 23 
17991 063404 905202 INC Re : COUNT 8176 
17998 06. 0% 020227 000077 CMP R2,477 : COUNT,* 
1799 12 003705 BLE 
17994 063414 004767 132450 JSR PC,GD.BLK.XFER : 8187 
17995 063420 012777 000061 127526 MOV #61, aML REG : 8188 
17996 063426 105777 127572 3$: TSTB = @MIL.REG*+50 
17997 063432 100375 BPL 3$ 
17998 063434 10440 4$ T 2 : 8189 
17999 063436 00500 CLR R3 t 10.CNT 8192 
18000 063440 010304 58: MOV R3,R4 : 10.CNT,* 8193 
18001 063442 ASL R 
18002 063444 005064 011600 CLR 10..BUF (R4) 
18003 063450 005203 INC R3 : 10.CNT 8192 
18004 063452 02052 000377 CMP R3,4377 : 10.CNT,* 
18005 063456 003770 BLE 5 
18006 063460 152777 000060 127526 BISB #40,aML.REG+40 : 8193 
18007 063466 016704 130110 MOV ML bur RG 
18008 063472 042704 177770 BIC #177770,R4 
18009 063476 142777 000007 127510 BICB =: #7, AML .REG*+40 
18010 063504 150477 127504 BISB8 R4.aML.REG+40 
18011 063510 004767 132354 JSR PC GD.BLK.XFER : 8196 
18018 063514 o12777 000071 127432 MOV #71, aML.R : 8197 
18013 063522 105777 127476 6$: TSTB = @ML. REG*5 
18014 063526 100375 BPL 6$ 
18015 063530 152777 0 127456 BIS8 #£40,aML.REG+40 : 8198 
18016 063536 1 1 MOV AL bur RG 
1801 54 1 70 BIC #177770,R4 
18018 063546 1427 127440 BICB =: #7, @ML..REG+40 
18019 063554 150477 ke BISB R4,aML.REG+40 
18020 063560 012766 60004 000006 MOV #4.6(SP) : *,S1Z.ExP 
18021 063566 066 000002 CLR 2(SP) : WAD.CNT 1 
1802 5 905001 CLR R > COUNT 8203 
1802 574 01 05 177777 7$: MOV #-1,R3 + *,PAT.CNT 5 
18024 3600 90 8$: CLR : POS.EXP ? 
13058 063608 918608 Sopooe MOV CSP ERG S URD CNTs 

e e e. * 
13059 be3er> O0CS04 ASLO 
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SEQ 0372 
180 ZML4 14-May-1981 13:48:54 TOPS 
13 : : 14-May-1981 13:05:08 PA:< 
1 063614 01 011600 000004 MOV 10.BUF (R4) ,4(SP) : *, TEMP 
130 063622 atti CLR : CNT 8211 
18034 063624 016646 000004 9$: MOV 4(SP) ,=(SP) : TEMP,* 8214 
18035 06 010546 MOV 7, (SP + POS.EXP,* 
180 06 016646 000012 V 12(SP) ,-(SP) : SIZ.EXP,* 
1803 04 CLR -(SP) 
18038 063640 004767 117152 JSR PC,BLSGT1 
18039 062 ADD #10,SP 
18040 963690 10304 MOV R3,R4 : PAT.CNT,* 
18041 06365 1604 ADD (SP) RG : PAT.INC,* 
18048 063694 92 CMP RO,RS 
1804 56 001433 BEQ 10$ 
18044 063660 104455 T 55 : 8218 
18045 000131 .WORD 131 
18046 063664 010570 “WORD ARR.DAT 
18047 063666 024060 “WORD D''MPER 
18048 063670 012746 006506 MOV #WRD.19,-(SP) : 8219 
18049 063674 012746 010004 MOV #FNC.6,-(SP) 
18050 063700 oI 746 B06s56 MOV .12,-(SP) 
18051 063704 012746 006406 MOV #WRD.10,-(SP) 
1805¢ 063710 012746 007046 MOV #URD.50,-(SP) 
18053 063714 012746 010172 MOV #FNC.18,-(SP) 
18054 0637 012746 006100 MOV #SIX.FMT,-(SP) 
18055 063724 012746 000007 MOV #7,-(SP) 
18056 063 010600 MOV SP.RO : SP,* 
18057 063732 104414 TRAP _-'16 
18058 063734 012766 000001 000030 MOV #1,30(SP) : *,DODU.FLG 8220 
18059 063742 062706 000020 ADD #20,SP : 8217 
18060 063746 062705 000004 10$: ADD #4,R5 : *,POS.EXP 8223 
18061 063752 00521 INC Pp : PAT. INC 8224 
1806¢ 063754 005 INC : CNT 8211 
18063 063756 020227 000003 CMP R2,43 : CNT,* 
18064 063762 003720 BLE 
18065 063764 005 66 000002 INC 2(SP) : WRD.CNT 
18066 063770 062703 000004 ADD #4,R3 + *,PAT.CNT 
18067 063774 920327 000013 CMP R3.413 : PAT.CNT,* 
18068 064000 0036 BLE 84 
18069 064002 005201 INC R1 3 COUNT 
18070 064004 1¢7 000077 CMP R1,477 : COUNT,* 
18071 964019 3671 BLE 
18078 064012 104467 TRAP = 6 ; 
18073 064014 ROR RO 
18074 064016 0 BLO 
18075 0 926627 000010 000001 CAP 10(SP) ,#1 : DODU.FLG.* 
1sor? 062086 016700 127544 MOV ML.LUN,RO : 
18078 064054 104451 TRAP —s 51 
Ue GEARS 25963 oooore = tts: AH 
18081 064044 isa RTS PC 
15088 3; Routine Size: 221 words 
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Cz 
$73 SEQ 0373 
18085 3ML4 {e-feyn 130) 13:48:54 TOPS 
ie : 14-May-1981 13:05:08 PA:< 
inet 3; Maximum stack depth per invocation: 19 words 
1809 
18094 
18098 
18099 -SBTTL 137 
18103 064046 T37:: 
18104 064046 004767 177102 1$: JSR PC $137 s 8237 
18105 064052 104466 TRAP 66 
Isies 064054 ope ROR RO 
18107 064056 10377 BLO 1$ 
isis 064060 000207 RTS PC 
18110 ; Routine Size: 6 word 
Hy ab + Maximum Stack depth oor invocation: 0 words 
1811s 
18118 ; 8240 '!<BLF/PAGE> 
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SEQ 0374 


is\g0 sML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
isis) 3 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (88) 
18158 3 8241 ! 

18124 ; 8242 ! 

18125 ; 8243 BGNTST; 

1sis6 ; 8244 

18127 ; 8245 !++ 

18128 ; 8246 ! TEST NUMBER: TST 38 

a 3 3 8247 |! 

aE ; acts : TEST NAME: SYNC DATA BUS BIT UNIQUENESS TEST/WRITE PATH 
aE ; 8250 ! TEST DESCRIPTION: 

18133 ; 8251 ! 

18134 ; 825 ! TEST SYNCHRONOUS DATA BUS FOR 
18135 ; 825 ! DATA BIT UNIQUENESS BY: 

18136 ;: 8254! 

18137 ; 8255! 1. LOADING THE FIRST 16 WORDS IN 
18138 ; 8256 ! THE I10_BUF WITH A SHIFTING 
18139 ;: 8257 ! ZERO IR A FIELD OF ONES PATTERN. 
18140 ;: 8258 ! 

18141 ;: 8259 ! 2. VIA MBUS WRITE ag Sb WRITE 
18142 ;: 8260 ! SHIFTING PATTERN THROUGH THE 
18143 : 8261 ! DATA BUS AND INTO THE GOOD 
18144 ;: 8262 ! BLOCK. 

18145 ;: 82635! 

18146 ; 8264 =! 3. VIA DAT_DM MODE READ THE 
18147 ;: 8265 ! GOOD BLOCK AND SAVE ALL GOOD 
18148 ;: 8266 =! NIBBLE DATA, IN THEIR PROPER 
18149 ;: 8267 ! SEQUENCE INTO A STACK 

18150 : 8268 | STRUCTURE. 

18151 ; 8269 ! 

18152 ; 8270 ! 4. INTERRIGATE STACK STRUCTURE FOR 
18153 ;: 8271 ! SHIFTED DATA PATTERN. 

18154 ; 8272 ! 

18155 ;: 8273 ! 

18138 2 8274 |! IMPLICIT INPUTS: 

18157 ;: 8275 =! 

18158 ; 8276 =! PD_TEMP 

18159 ; 8277 ! A BIT VECTOR OF 16 BITS WHERE 
18160 ; 8278 =! THE READ PROM DATA IS STORED 
18161 ; 8279 ! AND ACCESSED FROM. 

18169 3 8280 ! 

18163 ; : 81 ! 

18164 ; ag : : “ECTOR OF 256 WORDS WHERE 

18165 ; 828 : FOR MBUS READS AND WRITE 
18166 ; 8284 ! DONC Ton ARE FOUND. 

18167 ; 8285 ! 

18168 ; 82. ! STACK 

18169 ; 828 4 A VECTOR OF 198 BYTE LOCATIONS 
18170 ;: 8288 ! WHERE GOOD NIBBLE DATA IS STORED 
18171 ; 8289 ! WHEN STRIPPING AWAY BAD NIBBLE 
13176 3 8290 ! LOCATIONS OF A BLOCK. 

18173 ; $59) ! 

18174 ;: 2 ! 


3 
re ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE bs} 


SEQ 0375 
18176 sML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
i Ag ; 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (88) 
18179 ; 8293 !-- 
18180 ; 8294 
18181 ; 8295 local 
ab 3 8296 SAV_NIB, ‘STORES THE SHIFTED BIT PATTERN 
18183 : 8297 poD0_FLG, 'DROP UNIT FLAG 
18184 ; 8298 NI6_BIT, 'NIBBLE PATTERN 
18185 ; 8299 TST_PAT, 'TEST PATTERN 
18186 ; 8300 ALL_ONES_1, 'HOW MANY ‘17° NIBBLE PATTERN POSITION TO READ 
18187 ; 8301 ALL_ONES_2, 'HOW MANY ‘17° NIBBLE PATTERN POSITION TO READ 
18188 ; 830. STK_PTR, 'STACK POINTER 
18189 ; 830 COUNT; ' COUNTER 
18190 ; 83 
18191 ; 8305 BGNSUB; 
+ ab 4 3 8306 CLR_MBUS; 
18193 ;: 8307 DODD_FLG = ZERO; 
Hh th 3 tid TST_PAT = ONE; 'ONE IN A FIELD OF ZEROES 
eis ; Beis incr CNT from 0 to 15 do 'WRITE 16 WORDS WITH SHIFTING 0 IN FIELD OF 1°S. 
; n 
18198 ; 8312 10 BUF C.CNT] = not .TST_PAT; 
18199 ;: 8313 TST_PAT = .TST_PAT“ONE; 
18200 ;: 8314 end; 
18201 ; 8315 
18202 ; 8316 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
18203 ; 8317 MLTS1 = write; 'WRITE SHIFTING PATTERN THROUGH SYNC BUS 
18204 ; 8318 TIME_OUT_LOOP; 
18205 ; 8319 STRIPPER” (21, 8); . CALL ROUTINE TO STRIP OUT BAD NIBBLE DATA FROM ARRAY WORDS 
18206 ; 8320 STK_PTR = -1; 'RESET THE STACK POINTER 
18207 ; 8321 NIB_BIT = OnE ; 'SHIFTING NIBBLE PAT OF 1 IN FIELD OF 0°S 
18208 ; 8322 ALL_ONES_1 = ZERO: 'READ NO ‘17° NIBBLE PATTERN ON FIRST PASS 
5344 3 S357 ALL_ONES_2 = 3; 'READ THREE ‘17° NIBBLE PATTERN ON FIRST PASS 
18211 ; 8325 incr BY_FOUR_WRDS from 0 to 3 do 'READ 4 GROUPS OF 4 WORDS 
1eci¢ : 8326 begin 
18213 ; 8327 
18214 ; 8328 incr BY_ONE_WRD from 0 to 3 do 'READ 4 GROUPS OF 1 WORD 
18215 ; 8329 ante 
esis : oeae COUNT = ZERO; 'CLEAR COUNT 
18218 ; 833 until .COUNT eql .ALL_ONES_1 do 'READ X NUMBER OF ‘17° NIBBLE PAT 
18219 ; 833. begin 
18220 ; 8334 COUNT = .COUNT + 1; ' INCREMENT COUNT 
Iss 3 S332 STK_PTR = .STK_PTR + 1; ‘INCREMENT STACK POINTER 
18555 3 $332 if (.stack C.STK_PTR]) neq %0'000017° 'COMPARE STACK WITH '17° 
18224 ; 338 then 
18225 ; 8339 begin 'ERROR AND SET DODU_FLG IF NEQ 
1Ss58 $ 8340 ERRDF (90, SYNC, peavey: 
18227 ; 8341 PRINTB (SIX_FMT, WRD_23, WRD_39, PHR_4, WRD 12, FNC_5, WRD_19); 
18228 ; B34¢ PRINTB (FMT-5, ONES,~.stack [.STK_PTRJ. .STR_PTR); 
18289 ; 834 DODU_FLG = ONE; 
18250 ; 8344 end; 


tA 
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18232 ;ML4 14-May-1981 13:48:54 TOPS=-20 Bliss-16 V2(212) 
Sse? : 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (88) 
ee: Bs ; 
$ end; 
18539 3 Saco 
18238 ; 8348 STK_PTR = .STK_PTR + 1; 'INCREMENT THE STACK POINTER 
Mb st $ teh SAV_NIB = ( not -NIB_BIT) and (%0°000017"); 'GENERATE THE SHIFTED BIT 
18241 ; 8351 if (.stack C.STK_PTR]) neq (.SAV_NIB) 'COMPARE STACK TO SHIFTED BIT 
1eseg 3 o328 then 
18243 ;: 835 poate 'ERROR AND SET DODU_FLG IF NEQ 
18244 ; 8354 ERRDF (91, SYNC, DUMPER); 
18245 : 8355 PRINTB (SIX_FMT, WRD_23, WRD_39, PHR_4, WRD_12, FNC_5, WRD_19); 
18246 ; 8356 PRINTB (FMT_15, .STK_PTR); 
18247 ; 8357 PRINTS (FMT-5, .SAV_NIB, .stack C.STK_PTR); 
18248 : 8358 DODU_FLG = ONE; 
18249 ; 8359 end; 
18250 ;: 8360 
18633 3 $36) COUNT = ZEROES; 'CLEAR COUNT 
18253 ;: 8363 until - COUNT eql eALL_ONES_2 do 'READ X NUMBER OF ‘17° NIBBLE PAT 
18254 ; 8364 ponte 
18255 ; 8365 C T = .COUNT + 1; ‘INCREMENT COUNT 
18536 é £366 STK_PTR = .STK_PTR + 1; ' INCREMENT STACK POINTER 
18258 ; 8368 if (.stack C.STK_PTR]) neq %0'000017' 'COMPARE STACK POINTER WITH ‘17° 
18259 ; 8369 then 
18260 ; 8370 ot hey 'ERROR AND SET DODU_FLG IF SET 
18261 ; 8371 ERRDF (92, SYNC, DUMPER): 
Hs) 3 8372 PRINTB (SIX_FMT, WRD_23, WRD_39, PHR_4, WRD 12, FNC_5, WRD_19); 
18263 ; 8373 PRINTB (FMT-5, ONES, .stack [.STK_PTRJ. .STR_PTR); 
18264 ; 8374 DODU_FLG = ONE; 
18265 ; 8375 end; 
18266 ; 8376 
18267 ; 8377 end; 
18268 ; 8378 
18269 ; 8379 NIB_BIT = .NIB_BIT*ONE; 'SHIFT THE SHIFTED NIBBLE BIT 
18270 ; 8380 end; 
18271 ; 8381 
18272 ;: 8382 NIB_BIT = ONE; 'RESET THE SHIFTED NIBBLE BIT 
18273 ; 8383 ALL_ONES_1 = .ALL_ONES_1 + 1; 'READ ONE MORE ‘17° PATTERN 
18274 ;: 8384 ALL_ONES_2 = .ALL_ONES_2 = 1; 'READ ONE LESS ‘17° PATTERN 
18275 : 8385 end; 
18276 ;: 8386 
18277 ; 8387 ENDSUB; 
18278 ; 8388 
18279 ; 8389 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 
18280 ; 8390 then 
18281 ; 8391 begin 
esas 3 839 DODU (.ML_LUN); 
18283 ; 839 DOCLN; 
18284 ; 8394 end; 
18285 ; 8395 
18286 ; 8396 ENDTST; 
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SEQ 0377 


18288 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
18289 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (88) 
18590 

18295 .SBTTL $138 

18299 064062 004167 120030 $138: JSR R1,$SAVE5 : 

18300 064066 162706 000012 UB #12,SP 

18301 064072 1 402 1$: TRAP = 2 : 

18302 064074 15277 0 127112 BISB #40,aML.REG+40 ; 

18303 064102 016705 127474 MOV a; 

18304 064106 042705 177770 BIC #177770,R5 

18305 064112 142777 000007 127074 BICB = #7, AML. REG+40 

18306 064120 150577 127070 BISB R5.aML.REG+40 

18307 064124 005001 CLR R1 : DODU.FLG 
18308 064126 012766 000001 000006 MOV #1,6(SP) : *,TST.PAT 
18309 064134 005004 CLR R4 : CNT 

18310 064136 010405 2$: MOV R4.RS : CNT,* 

18311 064140 006305 ASL 

18318 064142 016665 000006 011600 MOV 6(SP) ,10.BUF (R5) : TST.PAT,* 
18313 064150 005165 011600 COM 10. BuF (R5) 

18314 064154 006366 000006 ASL 6(SP) : TST.PAT 
18315 064160 005204 INC RG : CNT 

18316 064162 020427 000017 CMP R4,A17 : CNT,* 

18317 064166 003763 BLE $ 

18318 064170 004767 131674 JSR PC,GD.BLK.XFER : 

18319 064174 012777 000061 126752 MOV #61, aML REG : 

18320 064202 105777 127016 3$: TSTB  aML.REG*+50 

18321 064206 100375 BPL 3$ 

18322 064210 012746 000025 MOV #25,-(SP) : 

18323 064214 012746 000010 MOV #10.-(SP) 

18324 064220 004767 127770 JSR PC, STRIPPER 

18325 064224 012702 177777 MOV #~-1,R2 : *,STK.PTR 
18326 064230 012766 000001 000004 MOV #1,4(SP) : *,NIB.BIT 
18327 064236 005066 000010 CLR 10(SP) : ALL.ONES.1 
18328 064242 012766 000003 000006 MOV #3,6(SP) > *,ALL.ONES. 
18329 064250 005004 CLR RG > BY.FOUR.WRDS 
18330 064252 005005 4$: CLR RS + BY.ONE.WRD 
18331 064254 005003 5$: CLR R3 : COUN 

18332 064256 020366 000010 6$: CMP R3,10(SP) + COUNT,ALL.ONES.1 
18333 064262 001455 BEQ 7$ 

18334 064264 005203 INC R3 > COUN 

18335 064266 00520 INC R2 : §TK.PTR 
18336 064270 126227 012612 000017 CMPB ss STACK (R2) , #17 + #(STK.PTR),* 
18337 064276 17627 BEQ . 

18338 064 104455 TRAP : 

18339 064302 132 .WORD 132 

18340 064304 010526 “WORD SYNC 

18341 064306 024060 "WORD DUMPER 

18342 064310 012746 006506 MOV #WRD.19,-(SP) : 
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#FNC.5,<(SP) 
#URD. 12, “(SP) 


MRD. 39, -(SP) 
MRD. 23,-(SP) 
#SIX.FMT,=(SP) 
(SP) 

4 

R2, (SP) 

-(§P) 

STACK (R2), (SP) 
#-1,-(SP 
#FMT.5,-(SP) 
#4,-(SP) 

SP RO 

14 
#1,R 
#30,SP 
is 
#17,14(SP) 
4 (SP) 14(SP) 
STACK (R2) ,RO 
0,14(SP) 

Ss 

133 

SYNC 
DUMP 


SP) 

STACK (R2) , (SP) 
40(SP) ,-(SP) 
#FMT.5,-4SP) 
a 


Sete 


SP,* 
STK.PTR,* 
*(STK.PTR),* 


SP,* 
* ,DODU.FLG 


STK.PTR 
*,SAV.NIB 
NIB.BIT,SAV.NIB 
*(STK.PTR),* 
*,SAV.NIB 





SP,* 
STK.PTR,* 8356 
SP,* 

8357 
*(STK.PTR),* 
SAV.NIB,* 


SP,* 





Ti ated ML-11 LOGIC TEST 
$T 


18400 

18401 

eS 

1840 064 266 
18404 570 
18405 574 
18407 06460 
18408 064606 
18409 be78i8 
18411 Ossie 
eels beteee 
18413 064624 
18414 6 
18415 0646 
18416 064632 
18417 064634 
18418 064640 
18419 064644 
18420 064650 
iets) 064654 
18422 064660 
18423 064664 
18424 064670 
18425 064674 
18426 064676 
18427 064700 
18428 064702 
18429 064704 
18430 064710 
18431 064714 
18432 064720 
18433 064724 
18434 064768 
18435 064 
18436 064734 
18437 064740 
18438 064742 
18439 sates 
18440 06475 
18441 064754 
HF 064756 
1844 064 766 
18444 064 
18445 064774 
18446 065000 
18447 pe enne 
18448 2008 
18449 p68! 
18450 065014 
18451 B63 
9h} 50 
18453 0650 
18454 065024 


oF 
ix? 


o-GQoQooooooooo 
AAAS 


o=—-Ooo00— 
RaRouecee 
RET 3 


5 
3S 


$3 


S558 


177042 
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sML4 


. 
a 


000017 


10$: 


000004 11$: 


12$: 


14 
#1,R1 
#32,SP 
R3,6(SP) 
10$ 

R3 


R2 
ne eer 


STACK(R2), (SP) 
1,-(SP 


#-1,-(S 
#FMT.5,-(SP) 
#4,-(SP) 

SP 


4 
(SP)+, (SP)+ 
67 


13s 


1$ 


* ,DODU.FLG 


SP,* 
STK.PTR,* 


STK.PTR 
; *(STK.PTR),* 


*(STK.PTR),* 


SP,* 


; *,DODU.FLG 


SEQ 0379 


14-May-1981 13:48:54 
14-May-1981 13:05:08 


COUNT 
; COUNT ,ALL.ONES.2 








TOPS 
PA:< 


8358 
8353 
8361 
8363 
8365 
8366 
8368 
8371 


8372 
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SEQ 0380 
1 3ML4 14-May-1981 13:48:54 TOPS 
18437 : Varney 1981 13:08:08 | Pace 
9544 063030 005301 13$: DEC gf 3; DODU.FLG 8389 
18460 0650 001004 BNE 14$ 
18461 003878 INA 126540 MOV ML.LUN,RO 3 8392 
1 98 94 1 TRAP 51 
184635 065042 104444 TRAP 44 
18464 065044 0627 000012 14$: ADD #12,SP 5 8239 
by ep 4 065050 00020 RTS PC 
iscey : Routine Size: 252 words 
lee 3; Maximum stack depth per invocation: 26 words 
18474 
18478 
18479 -SBTTL 138 
18483 06505 T38:: 
18484 065052 004767 177004 1$: JSR PC,$738 F 8394 
18485 065056 104466 TRAP 66 
18486 065060 ROR RO 
18487 065062 103773 BLO 1$ 
18488 06 7 RTS PC 
18489 
18490 ; Routine Size: 6 words : 
H+ 94 3; Maximum stack depth per invocation: 0 words 
18497 
18498 ;: 8397 !<BLF/PAGE> 


. ML-11 LOGIC TEST 
T 


18500 


18501 ; 


1850. 


(G3 0d Cd CD CD: 

PUP PPP PAPA A APA AIA ATA 

er see 
DWDONAVUSWN—O wn 


w 


TSSSVERRUN AS SSVRARALLS 


@900 05 
way 
REE 


Bo Se Ge Se Be Se Se Ge Be Be Ge Se Be Ge Fe Ge Se Se Se Ge Ge Be Se Ge Seq Se Se Se Ge Ge Be Ge Be Be Be Ge Se Ge Ge Fe Se Se Se Se Ge Se Ge Se Ge Se Se Ge 


ee ek me ek ed ee etd ad et = 2g I 2 ot SS = 2 2 Sh SS I 2g) SS SS SS 2 SS SS nn SI SS SS 2 SS 2 2s SS 2 ot SS SS os St St SS 
w 
rs 


e-te-ty tw-te-te-ty-ty ty to-ty-ty4 
& 
oO 


MAA 
w 
Wn 


sML4 


oOo 
oo 


SBRBVERRAUNLSSOVAARUVASSRVRARAWVLOD 


wa 
w 


ONS 


SREP 


PRLLLLLARLKLLRAELKELLASKELLEKLARRKRL KERR ERE RR Ros 
Wwr—owo 


1 
BGNTST; 


IMPLIC 


C e 


254 TOPS-20 Bliss-16 V2(212) 


14-May-1981 13:4 
81 13:05:08 PA:<NEALE>ML4.8L1.7 (89) 


14-May-19 


'ee 
! TEST NUMBER: TST 39 
TEST NAME: SYNC DATA BUS BIT UNIQUENESS TEST/READ PATH 
TEST DESCRIPTION: 

TEST 


SYNCHRONOUS DATA BUS READ 


PATH FOR DATA BIT UNIQUENESS BY: 


Ve 


IT 


LOADING THE FIRST 16 WORDS IN THE IO_BUF WITH A SHIFTING 
ZERO IN A FIELD OF ONES PATTERN. 


VIA MBUS WRITE FUNCTION WRITE SHIFTING PATTERN INTO THE GOOD BLOCK. 
CLEAR THE I0_BUF. 


VIA MBUS READ FUNCTION READ THE SHIFTING PATTERN THROUGH THE 
READ PATH. 


INTERIGATE THE IO_BUF FOR THE SHIFTING PATTERN. 
INPUTS: 


BUF 
A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE FUNCTION ARD FOUND. 


local 
DODU_FLG, 'DROP UNIT FLAG 
TST_PAT; 'TEST PATTERN 
CLR_MBUS; 
DODD_FLG = ZERO; 
TST_PAT = ONE; 'ONE IN A FIELD OF ZEROES 


incr CNT from 0 to 15 do 


!'WRITE 16 WORDS WITH SHIFTED 0 IN A FIELD OF 1°S 
C.CNT] = not .TST_PAT; 


n 
10 BUF C. 

TST_PAT = .TST_PAT“ONE; 
end; 


GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
m.tS1 = write; 'WRITE SHIFTING PATTERN 
TIME _OUT_ ; 

BGNSOB; 


incr CNT from 0 to 15 do 
10_BUF [C.CNTJ = ZEROES; 


CLR_MBUS 


'CLEAR OUT THE 10_BUF 


SEQ 0381 


F 14 
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sML4 bm ans t+ 13°68:38 TOPS=20 Bliss-16 V2(212) 
3 14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (89) 


GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 

mLUS1 = read; iREAD SHIFTING PATTERN THROUGH SYNC BUS 

TIME_OUT_LOOP; 

TST_PAT = ONE: 'SHIFTING PATTERN 

incr CNT from 0 to 15 do 'READ 10_BUF FOR SHIFTING 0 IN FIELD OF 1°S 
gin 


aad 
2.09 09 00 09 C9 CD CD 
BEAD 
Ww 
—OwOoo 


Biegareess 


iy -10_BUF C.CNTJ neq ( not .TST_PAT) !COMPARE I0_BUF TO SHIFTED PAT 
en 
begin 'ERROR AND SET DODU_FLG IF NEQ 
ERRDF (93, SYNC, DUMPER); 


PRINTB (FIV_FMT, WRD_23, FNC_6, WRD_19, WRD 39, PHR_4); 
PRINTB (FMT 2. ( not~.TST_PAT), .107BUF C.CRTJ. ( not .TST_PAT xor .10_BUF [.CNTI)); 


end; 


== tone = .TST_PAT“ONE; !SHIFT THE PATTERN AND REPEAT 
end; 


ENDSUB; 
oT -DODU_FLG IS_SET !DROP THIS UNIT IF DODU_FLG IS_SET 
en 


3 
eprerrereree 


oa ee re re geen 4 
=—OOONOUSWN—O 


0 00 09 Op 00 C0 09 CD CD 
Ie 
oo 


wa) 
VN 


wiv 
Vous 


Vin 


{0 00 Go 00 Go 00 Go On G0 Oo 
Po 
ws 


poe 

DODU (.ML_LUN); 
DOCLN; 
end; 

ENDTST; 


Sun 


.SBTTL $139 
117024 $739: JSR R1,$SAVES 
126114 B #40, aML.REG+40 
MOV AL bur R5 
#177776,R5 
#7, @ML.REG+40 
R5 - GAL -REG+40 


= 


a Co Od Co Co Co Co 
WMANIMOMMNIAN 
ABINAST 


Ne 
nN 
o=— 
au 
~ 


126076 


Sark 
S 


; DODU.FLG 
; *,TST.PAT 
CNT 


; CNT,* 
; TST.PAT,* 
; TST.PAT 


So 

= 
S 
= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Seponecess 
SSEERESEESR ERE 
SiaRRERNS SES 

so 


oth 
Soas 
— 
Sao. 
eA eed ae 


& 
pty 
So 
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$159 


1861 
861 
BS wxsise cos 
ao}8 130 02002 
Seat Bans 
8619 065164 O13777 
172 105777 
176 100375 
104 
02 
04 


nN 


nN 
VERE 
So 
= 
ex 
o 
Ly) 


Ww 
MOMIRORD 
SSNNSSPUS 
32 = 
So 
nN 
t=] 
ad 


wits) 
a 

mm 
So 

Ss 
=n 
3S 
a) 


0526 
4060 
746 


1 
2 
1 
1 
1 
1 
1 
1 
1 
1 


==2 
WS 


0 


ce ed ee me cee cee ce ee em ed ee ee ce ny ce ce cee ced ee we ee ad ed ee ed ee ed ed ee ce ed ed nd ed ed ed ed ed nd ed eed et w= 6. wd = od 2d = 2 


SR OGERSEESE CEE GET ERETREETEGGEEaieeiaRiReieRt 


MAW 
PY py 
— 

So 
See 
am 
=e 





000017 
130704 
000061 
126026 
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ZML4 
INC RO 
CMP RO,A17 
BLE 
JSR PC,GD.BLK.XFER 
125762 MOV #61, aML.REG 
2s: TSTB  aML.REG+50 
BPL $ 
3$: TRAP 
CLR RO 
4$: MOV RO,R1 
ASL 
CLR 10. BUF (R1) 
INC R 
cme RO,M17 
125762 BISB8 #40,aML.REG+40 
MOV ML bur R 
BIC #177770,R3 
125744 BICB = #7, @ML..REG+40 
B1SB R3,aML.REG+40 
JSR PC.GD.BLK.XFER 
125666 MOV #71, @ML REG 
5$: TSTB  aML.REG+50 
BPL 5$ 
MOV #1,R4 
CLR R2 
6S: MOV R2,R1 
ASL R1 
MOV #10.BUF ,R3 
ADD R1,R3 
MOV R4.R1 
COM R1 
CMP (R3),R1 
BEQ 7$ 
TRAP = 55 
«WORD 135 
“WORD SYNC 
“WORD  DUMPER 
v #PHR.4,=(SP 
MOV MRD. 39,-(SP) 
MOV #WRD.19.-(SP) 
MOV gENC.G =(SP) 
MOV D.23,-(SP) 
MOV #FIV.FAT,-(SP) 
MOV #6,-(SP) 
MOY SP.RO 
TRAP ‘14 
MOV (R3), (SP) 
MOV R1,-(SP) 
BIC 2(SP), (SP) 
BIC R1,2(SP) 
BIS (SP) +, (SP) 


SEQ 0383 
14-May-1981 13:48:54 TOPS 
14-May-1981 13:05:08 PA:< 

; CNT 8435 
; CNT,* 

8441 

8442 
; 8443 
; CNT 8446 
; CNT,* 8447 
; CNT 8446 
; CNT,* 

8447 

8450 

8451 
; *, TST.PAT 8453 
; CNT 8455 
; CNT,* 8458 
; TST.PAT,* 

8461 

8462 
; SP,* 

8463 


CZMLACO ML-11 LOGIC TEST 


$13 
1S668 
1 
18670 
18671 065412 
eels peel? 
186 2738 
18674 0654 
18675 Sees 
1eere 54 
18677 0654 
18678 0654 
18679 06544 
18680 065444 
18681 tre] 
1eees 06545 
18683 065454 
18684 Rost28 
18685 065 
10686 065462 
18687 065464 
18688 263466 
18689 06547 
18690 065474 
18691 065476 
10038 
1869 
18694 
18699 
18700 
18704 
18705 
18709 065500 
18710 065500 
18711 065504 
orig 065506 
18713 065510 
18714 065512 
18715 
18716 
18717 
18722 ; 


SSS SSSss 
202234344 
23S 


004767 
104466 


10377 
000207 


8480 


rm 
MACRO M1113 18-MAY-81 08:17 PAGE 


126106 


177362 


! <BLF /PAGE> 


7$: 


; Routine Size: 
: Maximum stack 


139:: 
1$: 


; Routine Size: 
; Maximum stack depth per invocation: 


(R3) ,=(SP) 


= (SP 
#FAT.2,-(SP) 
7 (SP) 


133 word 


s 
depth per invocation: 


139 
PC $139 
66 


6 words 


17 words 


0 words 


Sete Se Gee 


. SP,* 
; *,DODU.FLG 


TST.PAT 
CNT 
CNT,* 


DODU.FLG 


14-May-198 
14-May-198 


113: 


SEQ 0384 


48:54 TOPS 
05:08 PA:< 


8396 


8477 


4 
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SEQ 0385 


18724 :ML4 14-May-1981 13: 48:54 TOPS-20 Bliss-16 V2(212) 
187 5; 14-May-1981 13:05:08 | PA:<NEALEDML4.B8L1.7 (90) 
187 : 8481! 

18728 : 848@ i 

18779 : 8483 BGNTST: 

18730 ;: 8484 

18731 ;: 8485 !++ 

18738 : 8486 | TEST NUMBER: TST 40 

18733 87 

18734 : 88 ‘i TEST NAME: ARRAY ADDRESS MUX TEST 

18735 : 489 | 

18736 : 8490 i‘ TEST DESCRIPTION: 

18737 : 8491 

18738 : 849¢ i TEST FOR UNIQUE MOS RAM ROW 

18739 : 8493 | AND COLUMN ADDRESSING BY: 

18740 : 8494} 

18741 : 8495 1. FIRST FINDING A ERROR FREE 

18742 : 8496! 6K OF MEMORY. 

18743 : 8497! THIS REPRESENTS ONE ROW OF 

18744 : 8498 EITHER 16K OR 64K MOS RAMS. 

18745 : 8499 

18746 : 8500 ! 2. WRITE A BACKGROUND OF ALL 

18747 : 8501! ONES INTO THE GOOD CHUNK 

18748 : 890¢ i 

18749 : 8503} 3. WRITE ZEROES INTO THE FIRST 

18750 : 8504 ! BLOCK OF THE GOOD CHUNK. 

18751 : 8505 

18752 : 8506! 4. READ REMAINING BLOCKS IN 

18753 : 8507 | GOOD CHUNK FOR ONES. 

18754 : 8508 : 

18755 : 8509 

18756 : 8510 i IMPLICIT INPUTS: 

18757 : 511 

18758 : B12 i 10_BUF 

18759 : 8513! 

18760 : 8514 A VECTOR OF 356 ‘WORDS 

18761 : 8515 WHERE DATA FOR MBUS 

1876 : 8916 i READ AND WRITE TRANSFERS 

18763 : 8517 CAN BE FOUND. 

18764 : 8518 i-- 

18765 : 8519 

18766 ; 520 local 

18767 : 3g DSA_ADRS, tDSA ADRS COUNTER 

18768 : 328 pa. ‘FOUND GOOD 16K/64K CHUNK FLAG 
18770 : 8524 10 BUF = ‘LOAD FIRST 10_BUF WORD WITH ONES 
18771 : 85 5 DSA_ADRS = - cen iAs INC; ‘REST DSA COUNT 

18772 : 5 5 FND-GD_CHK = ZERO; iCLEAR FLAG 

18773 ;: 852 

18774 : 528 do 'DO UNTIL FOUND GOOD CHUNK OR LBT 
18775 : 5 begin 

18776 : 530 CLR_MBUS; 

18777 : 8531 BAI~= ONE; ‘SET ON FIRST 10 BUF WORD 
18778 : 8532 ECC_DIS = ONE; iDISABLE ECC 
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peain 
ERRDF (111, INTER, DUMPER); 


SEQ 0386 
18780 ;ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 V. (218 
14.4 : 14-May-1981 13:05:08 PA: <NEALE>ML4.8L1. 
18768 8533 DSA veers Paty, ADRS + .RAS_INC; ; INCREMENT DSA ADRS COUNTER 
18784 8534 MLWC = C_ SIZE; '16K OR 64K WORDS 
18785 8535 oe 6 io BOF ; {LOAD Vel 
18786 8536 MLDA = .DSA ADRS: ‘LOAD DSA ADRS 
18787 8537 ML FUNC” = “Son” ip0 A WRITE FUNCTION 
18788 8538 TIRE OU 
18789 8539 
18790 8540 if .Sc IS SNOT SET 'DID XFERR CAUSE AN SC 
18791 8541 then 
1879 32%¢ poate 'XFERR WAS OK 
1879 854 MLWC = .W_C SIZE; 'LOAD WORD COUNT 
8544 MLBA = i0~ 'LOAD UBUS Pa 
18795 8545 LDA = -DSA ADRS: 'LOAD DSA ADRS 
1 8546 FUNC 7 a. CHK: 'DO A WRITE CHECK FUNCTION 
18 tat TIRE OU 
6348 if .SC 1 not as 'IS THIS CHUNK GOOD 
en 
8551 FND_GD_CHK = ONE; 'YES SET FLG 
8552 
8553 end 
8554 
8555 end 
8336 until (.FND_GD_CHK IS_SET ) or (.DSA_ADRS eql .LST_ARR + .ARR_INC); 
o338 'REPEAT UNTIL FOUND GOOD CHUNCK OR AT LBT 
8560 if .DSA_ADRS eql .LST_ARR + .ARR_INC 
8561 then 
$266 
856 
8564 
8565 
8566 
8567 
8568 


SERBS SR RERERRREERSSEEREESEESEEEESEESSSS¢5 


5 
5 PRINTS (FIV_FMT, FNC_13, FNC_17. WRD_50, WRD_60, WRD_5S6): 

5 PRINTB (THR-FMT, WRD_14, PHR10. Par C7355; 

5 DODU (.ML_LON); 

2 — 

8569 else 'A GOOD CHUNCK WAS FOUND CONTINUE TEST 
8570 begin 

8571 CLR_MBUS 

857 BAI = 3 

857 ECC_DIS = ONE: ‘DISABLE ECC 

8574 10 BUF = ZEROES; IFIRST BLOCK IN CHUNCK GETS ZEROES 
8575 MLBA = .DSA_ADRS; iLOAD DSA 

857 MLWC = not 255; 'LOAD WORD COUNT 

857 MLBA = 10_BUF; 1LOAD UBUS ADRS 

8578 ML_FUNC = write; ibo A WRITE FUNCTION 

8579 TIME_OUT_LOOP; 

8580 CLR_ABUS? 

8581 BAI~= ONE; 

898¢ 10 BUF = ONES; 'READ REMAINING BLOCKS FOR ONES 
858 ECT_DIS = ONE: 

8584 MLDA = .DSA_ADRS + 1; ‘LOAD DSA WITH NEXT DSA INCREMENT 


CEmLACO ML-11 LOGIC TEST 
139 


eae 
es 
ft. 


& 


eegeeeee 


33 


MAW 


secue 


8 
RLaSs 


SeSSeeeee 
ARANISSHS 


—— ee 
PAAAe 
OMNAAMUINMNOENVUIANMUAN 
“N N a 


RR SR 
JAN 


$3836 
No 


N 
NO 
Nn 


oo 
pod 


PaRSeSS 
Srizorn 


ge 
RRS 
SNSa 
SER 


~ 


a 
SSS 
pocssessssze 


; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 


& 
tot-3 
Wn 
NO 

r 
faa 
No 


509" 
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0_BUF ; 
W-C_SIZE + 256; 
="WRT_CHK; 


»WCE IS_SET 


NC, DUMPER) ; 


y ); 
T, FNC_17, WRD_50, WRD_60, 


(.MLDA -°1)); 


$740 
R1,$SAVE2 
#-1,10.BUF 
RAS. INC,R2 
R2 


124052 


RO 
125450 1$: #40 ,aML .REG+40 


#100000, aML .REG 

125276 
MOV RO aL REG+30 

125246 A5) nahi tec 


W.C.SIZE,@ML.REG+10 
125300 #10.BUF ,aML .REG+20 


14-May-1981 13: 
14-May-1981 13: 
!LOAD UBUS ADRS 

‘LOAD WORD COUNT WITH LESS ONE BLOCK 
!DO A WRITE CHECK FUNCTION 


48:54 TOPS-20 Bliss-16 V2(212) 
05:08 PA:<NEALE>ML4.BL1.7 (90) 


'WERE ANY BITS DISTURBED 
'ERROR IF WRITE CHECK FOUND BAD DATA 
WRD_14); 


; *,DSA.ADRS 
; DSA.ADRS 
; FND.GD.CHK 


; *,DSA.ADRS 


; DSA.ADRS,* 


; DSA.ADRS,* 


SEQ 0387 





"AO 
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SEQ 0388 

1889 ZML4 14-May-1981 13:48:54 TOPS 
ats : 14-May-1981 13:05:08 PA:< 
18895 065706 152777 000051 125240 BISB #51, aML.REG 
188% 065714 105777 125304 3$: TSTB. = @ML.REG+50 
18897 065720 100375 BPL 
18898 065722 032777 100000 125224 BIT #100000, aML .REG : 8549 
18899 065730 001002 BNE 4$ 
18900 065732 012700 000001 MOV #1,R0 : *,FND.GD.CHK 8551 
18901 065736 020027 000001 4$: CMP RO.A1 + FND.GD.CHK,* 8556 
1890¢ 065742 001406 BEQ 5$ 
18903 065744 016701 123626 MOV LST.ARR,R1 
18904 065750 066701 123606 ADD ARR. INC.R1 
18905 065754 920201 CMP , : DSA.ADRS,* 
18906 065756 001267 BNE 
18907 065760 016701 123612 5$: MOV LST.ARR,R1 : 8560 
18908 065764 701 123572 ADD ARR.INC.R1 
18909 065770 020201 CMP R2,R1 : DSA.ADRS,* 
18910 065772 001047 BNE 63 
18911 065774 104455 TRAP ‘55 : 8563 
18912 065776 000157 WORD 7 
18913 066000 010672 “WORD INTER 
18914 066002 024060 “WORD DUMPER 
18915 066004 012746 007122 MOV MRD. 56,-(SP) : 8564 
18916 066010 012746 007156 MOV MRD .60.-(SP) 
18917 066014 012746 007046 MOV D.50,-(SP) 
18918 066020 012746 010162 MOV #FNC.17.-(SP) 
18919 066024 012746 010112 MOV #FNC.13,=(SP) 
18920 066030 012746 006062 MOV #FIV.FMT,-(SP) 
18921 066034 018746 000006 MOV #6,-(SP) 
18922 066040 01 MOV SP.RO : SP,* 
18923 066042 104414 TRAP ‘(16 
18924 066044 012716 010136 MOV #FNC.15, (SP) : 8565 
18925 066050 012746 007564 MOV #PHR.10.-(SP) 
18926 066054 012746 006442 MOV #WRD.14.=(SP) 
18927 066060 012746 006034 MOV #THR.FMT,-(SP) 
18928 066064 012746 MOV #4,- 
18929 066070 010600 MOV SP. 7 SP,* 
18930 066072 104414 TRAP 
18931 066074 016700 125500 MOV ML.LUN,RO ; 
18932 066100 104451 TRAP 
18933 066102 104444 TRAP 4 
18934 066104 062706 000026 ADD #26,SP : 
18935 066110 00020 RTS PC ; 
18936 066112 152777 0000460 125074 6$: BISB #40,aML.REG+40 : 
18937 066120 016701 125456 MOV ML 
18938 066124 042701 177770 BIC #177770,R1 
18939 066130 142777 000007 125056 BICB = #7, AML. .REG+40 
18940 066136 150177 125038 BI1SB 1. aM .REG+40 
18941 066142 152777 10 125044 BI1SB8 #10, aML.REG+40 ; 
1894¢ 066150 138777 000002 125116 BISB =: #2, AML .REG*120 : 
rh $06128 STP 158616 abv 43 SAL REG+30 + DSA.ADRS 

e e oe * 
18945 066166 O12 77 159000 124770 MOV 4-400, aML .REG*+10 : 
18946 066174 012777 011600 124772 MOV #10.BUF ,aML .REG+20 ; 
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SEQ 0389 
18948 ZML4 14-May-1981 13:48:54 TOPS 
E30 3 14-May-1981 13:05:08 PA:< 
18951 06620 142777 000077 124744 BICB #77, @ML.REG ; 8578 
1895¢ 10 152777 000061 124736 B1SB #61. 98L -REG 
18953 066216 105777 125002 7$: TSTB «© AML. REG* 
18954 066222 100375 BPL 
18955 4 152777 990040 124762 BISB #40,aML.REG+40 : 8579 
18956 2 016701 125 MOV mL DUT 
18957 066236 042701 177770 BIC #177770,R1 
18958 42 142777 000007 124744 BICB = #7, AML .REG+40 
18959 066250 150177 124740 BISB 1. aML.REG+40 
18960 066254 152777 000010 124732 BI1SB #10, aML.REG+40 : 8581 
18961 066262 012767 177777 123310 MOV #~-1,10.BUF : 8582 
1896¢ 066270 152777 000002 124776 BISB #2,aML.REG+120 : 8583 
18 066276 010201 MOV R2,R1 + DSA.ADRS,* 8584 
18964 066 005201 INC R1 
18965 066302 019177 124676 MOV R1,a@ML.REG+30 
18966 066506 012777 011600 124660 MOV #10.BUF ,aML .REG+20 ; 8585 
18967 066314 016702 124602 MOV W.C.SIZE,Re : 8586 
18968 066320 062702 000400 ADD #400,R2 
18969 066524 0107 124634 MOV Re aL .REG+10 
18970 066330 142777 000077 124616 BICB «ss #77 , @ML.REG ; 8587 
18971 066336 152777 000051 124610 BISB #51.aML.REG 
18972 066344 105777 124654 8$: TSTB a@ML.REG+50 
18973 066350 100375 BPL $ 
18974 066352 032777 040000 124634 BIT #40000, aML.REG+40 : 8590 
8975 066360 001441 BEQ 9$ 
18976 066362 104455 TRAP «555 ; 8593 
8977 066364 160 .WORD 160 
18978 066366 070464 “WORD ASYNC 
18979 066370 024060 .WORD DUMPER 
18980 066372 012746 006442 MOV MURD.14,-(SP) : 8594 
18981 066376 012746 007156 MOV WWRD.60,-(SP) 
18982 066402 012746 007046 MOV #WRD.50.-(SP) 
1 066406 012746 010162 MOV #FNC.17,-(SP) 
18984 066412 012746 006046 MOV #FOR.FMT,-(SP) 
18985 066416 012746 000005 MOV #5,-(SP) 
18986 066422 010600 MOV SP.RO : SP,* 
18987 066424 104414 TRAP «14 
18988 066426 017716 124552 MOV @ML .REG+30, (SP) : 8595 
18989 066432 005316 DEC (SP) 
18990 066434 012746 004644 MOV #FMT.9,-(SP) 
18991 066440 012746 000002 MOV #2,-(SP) 
1899 066444 01 MOV SP,RO : SP,* 
1B RSS G0ES rasta Bun 5% 
18995 066454 104451 TRAP ey - 
18996 066456 104444 TRAP = 4 
18997 066460 062706 000020 ADD #20,SP F 8592 
18998 066464 00020 9$: RTS PC : 8479 
19000 : Routine Size: 245 words. 
19001 3; Maximum stack depth per invocation: 14 words 
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19010 

19011 

19015 

19016 -SBTTL 140 
19020 066466 T40:: 

4 066466 004767 177022 1$: JSR PC,$T40 
19022 066472 104466 TRAP 66 

19023 066474 006000 ROR RO 

19024 066476 10377 BLO 1$ 

1305e 066500 000207 RTS PC 

19027 ; Routine Size: 6 words 
Ie ; Maximum stack depth per invocation: 0 words 
19034 

19035 ; 8603 !<BLF/PAGE> 


SEQ 0390 


Ti 
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SEQ 0391 
19037 ;ML4 14-May-1981 13°68:3% TOPS-20 Bliss-16 V2(212) 
139 : : 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (91) 
19040 ; ' 
Ios 3 re: BGNTST; 
19008 3 B60P '+e 
19044 ; 8608 ! TEST NUMBER: TST 41 
19045 ;: 8609 ! 
Lb 9g 3 8610 ! TEST NAME: NIBBLE OFFSET TEST 
19047 ;: 8611! 
19048 ; sei¢ ! TEST DESCRIPTION: 
19049 ; 861 § TEST NIBBLE OFFSET COUNTERS TO OFFSET GOOD NIBBLE DATA A MAX 
120 3 sete OF 14 WORDS ON DETECTION OF ALL BAD NIBBLES BY: 
Hs £4 3 acts $ 1. LOADING FIRST 2 1/4 WORDS OF THE 10_BUF WITH ZEROES AND THE 
13032 b4 sole : REMAINING OF BUFFER WITH ONES. 
19055 ; 8619 ! 2. VIA DAT_DM MODE WRITE THE GOOD BLOCK WITH BACKGROUND 
19056 ; 8620 ! ON ONES. 
19057 ; 8621 ! 
1038 : S66 : 3. VIA PROM R/W MODE FORCE ALL ARRAY NIBBLES BAD. 
9 : sese : 4. VIA A MBUS WRITE FUNCTION LOAD I0_BUF INTO THE GOOD BLOCK. 
19062 ; 8626 =! VIA DAT_DM MODE READ FIRST 15 ARRAY WORDS FOR ZEROES AND THE 
19063 ; 8627 ! REMAINING WORDS FOR ONES. 
19064 ; 8628 ! 
19065 ; 8629 ! IMPLICIT INPUTS: 
19066 ; 8630 ! PD_TEMP 
19067 ; 8631 ! A BIT VECTOR OF 16 BITS WHERE THE READ PROM DATA IS STORED AND 
19068 ; 8632 ! ACCESSED FROM. 
19069 ; 8633! 
19070 ; 8634 ! 10_BUF 
19071 ; 8635 ! A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 
19072 ;: 8636 =! FUNCTIONS ARE FOUND. 
19073 ; 8637 !-- 
19074 ; 8638 
19075 ; 8639 local 
19076 : 8640 DODU_FLG, 'DROP UNIT FLAG 
19077 ; 8641 TST_PAT, 'TEST PATTERN 
19078 ; B6e6 START, 'STARTING WOR 
19079 ; 864 FINISH, ‘ENDING WORD 
19080 ; 8644 ERR_FLG; ‘ERROR FLAG 
19081 ; 8645 
IOs 5 see6 BGNSUB; 
19083 ; 8647 CLR_MBUS; 
19084 ; 8648 DODD_FLG = ZERO; 
19085 ; 8649 
19086 ; 8650 incr WD_CNT from 0 to 255 do !LOAD I0_BUF WITH ONES 
a's 34 ; $63] 10_BuF C.WD_CNT) = ONES; 
19089 ; ae 10_BUF [0] = ZEROES; 'LOAD FIRST 2 1/4 WORDS WITH ZEROES 
19090 ; 8654 10_BUF 33 = ZEROES 
19091 ;: 8655 I0~BUF [2] = %0'177760'; 
a4 MLS 14-May-1981 13:69:36 TOPS-20 Bliss-16 Vg (ele) 
19093 ; 14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (91) 
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SEQ 0392 
19094 
19095 : 8656 ML MLD1 = ONES: 'LOAD DATA DIAG REGISTERS WITH ONES 
19096 ; aoe nLbg = ONES; 
19097 : 38 = ONES; 
19098 : 865 DAT DM_XFER 0); 'SET UP A DATA DIAG MODE XFERR 
13099 : 8660 MAL MLCS1 = write: iDO A WRITE XFERR 
19101 ; Bese incr WD_CNT from 0 to 127 do 'LOAD BLOCK WITH 8G PAT 
19102 ; 866 asin 
19103 ; 8664 DELAY (ONE_US); 
19104 : 8665 DAT_CLK = ONE; 
19105 ; ¥99] end; 
19106 ; 866 
19107 : 8668 CLR_MBUS; 
19108 : 8669 WRT 7% (ONES, 19); 'FORCE ALL NIBBLES BAD 
19109 : 8670 PR = ONE; iSET PROM READ WRITE 
19110 : 8671 GD BCR. MFER (); iSET UP A GOOD BLOCK XFERR 
19111 : 8672 MLUS1 = write; WRITE ZEROES IN PIRST BLOCK WORD LOCATION 
19112 : 867 OFFSETS ine 14 NIBBLES WITH ZEROES ALSO. 
19113 : 8674 TIME ur. LOOP; 
19114 : 8675 
19115 ;: 8676 CHART = SbeRO: 'START AT THE FIRST BLOCK WORD 
19116 : 8677 FINISH = 14; ‘END AT THE 14°TH BLOCK WORD 
19117 : 8678 TST_PAT = ZEROES; iTEST FOR ZEROES IN FIRST 14 WORDS 
19118 : 8679 DAT-DM_XFER (); iSET UP A DATA DIAG MODE XFERR 
19119 : 8680 MLCS1 = read: iDO A READ FUNCTION 
19120 : 8681 DELAY (ONE_US); 
19128 : 8683 incr TWICE from 0 to 1 do 'READ WORDS 0-14 FOR 0°S AND 15-126 FOR 1°S 
ig: | hei 
19125 ; 8686 incr WRD_CNT from .START to .FINISH do 'READ BLOCK WORDS FORM START TO FINISH 
19126 : 8687 begin 
19127 : 8688 PD TEMP = .MLPD; 'GET PROM DATA 
19128 : 8689 DAT_CLK = ONE; iCLOCK OUT THE DATA WORD 
19129 : 8690 DELAY CONE _US); 
19130 : 8691 RD_LNG_WRD? 'READ THE DATA DIAG REGISTERS 
at 3 nea? incr NIB_PTR from 0 to 8 do ‘LOOK AT 9 NIBBLES 
19134 ;: 8695 if .PD_TEMP C.NIB_PTR] IS_NOT_SET !FIND GOOD NIBBLES 
19135 ; 8696 then 
19136 ;: 8697 begin 
19132 : 8699 TST_LNG_WRD (.NIB_PTR, .TST_PAT, ERR_FLG); ‘COMPARE NIBBLE WITH TST PAT 
19139 : 8700 if .ERR_FLG IS_SET 'SEE IF COMPARE FOUND AN ERROR 
19140 : 8701 then 
19141 : 70 begin ‘ERROR AND SET DODU_FLG IF ERROR FLG SET 
1914¢ : 70 ERRDF (9%4 ap RR DAT, DUMPER); 
19143 : 704 PRINTB (THR_FMT, WRD 41, WRD_46, WRD_10); 
19144 : 8705 PRINTB CEA 6, .NIB_PTRS; 
19145 : 706 DODU_FLG = ONE; 
ie : 870 end; 
19147 :ML4 14-May-1981 13:4 754  TOPS-20 Bliss-16 V2(212) 
19148 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (91) 
19150 ; 8708 
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0 SEQ 0393 
19151 ; 8709 end; 

19138 : 8710 

19153 ;: 148 end; 

19154 : AF 

19155 : 871 TST_PAT = not .TST_PAT; ‘NOW READ FOR ONES 

19136 : 8714 START = 15; iSTART A 15 

19157 : 8715 FINISH = 126; iEND AT 126 

19158 ; 8716 end 

19159 : 8717 

19160 ; 8718 ENDSUB; 

19161 : 8719 

I916¢ : 8720 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 

19163 ; 8721 then 

19164 ; 872 pogin 

19165 : 872 DODU (.ML_LUN); 

19166 : 8724 DOCLN; 

19167 : 8725 end; 

19168 : 8726 

19169 : 8727 ENDTST: 

19173 

19174 .SBTTL $141 

19178 066502 004167 115410 $141: JSR R1,$SAVES : 8602 
19179 066506 162706 000012 SUB #12,SP 

19180 066512 10440 1$: TRAP 2 ; 8644 
19181 066514 152777 000040 124472 BISB #40,aML.REG+40 : 8646 
1918¢ 066522 016704 125054 MOV mL DUT R4 

1918 066526 042704 177770 BIC #177770, R4 

19184 066532 142777 000007 124454 BICB =: #7, AML..REG+40 

19185 066540 150477 124450 BISB R46, aML.REG+40 

19186 066544 005066 000004 CLR 4(SP) : DODU.FLG 8648 
19187 066550 005002 CLR R2 * WD.CNT 8650 
19188 066552 010203 2$: MOV R2,R3 + WD.CNT,* 8651 
19189 066554 3 ASL R 

19190 066556 012763 177777 011600 MOV #=-1,10.BUF (R3) 

19191 066564 005202 INC gel : WD.CNT 8650 
19198 066566 020227 000377 CMP R2,4377 + WD.CNT,* 

19193 066572 003767 BLE 2$ 

19194 066574 005067 123000 CLR 10.BUF F 8653 
19195 066600 005067 122776 CLR 10.BUF +2 : 8654 
19196 066604 012767 177760 122772 MOV #-20, 10.BUF +4 : 8655 
19197 066612 012777 177777 124524 MOV 4-1, aML.REG+170 : 8656 
19198 O12 177777 126526 MOV #-1,aML .REG+200 : 8657 
19199 6 012777 177777 126500 MOV “1, 160 : 8658 
19200 06665 004767 125322 JSR PC, DAT.DM.XFER : 8659 
19201 0 012777 124306 MOV 1, amL. : 8660 
1920 ZML4 14-May-1981 13:48:54 TOPS 
19205 : 14-May-1981 13:05:08  PA:< 
19205 066646 005001 CLR R1 : WD.CNT 8662 
19206 066650 012702 000001 3$ MOV #1,R2 : *,$STMP2 8664 
19207 066654 001411 4$: BEQ 7$ 

19208 966696 16703 113234 MOV LSDLY,R3 7 *,$STMP1 

19209 1404 BEQ 6$ 

19210 3066 000010 5$: CLR 1O¢SP) : SSTMP 

19211 0 005 DEC R + $STMP1 

192i¢ 72 001374 BNE 5$ 

19213 066674 005302 6$: DEC R2 : SSTMP2 
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SEQ 0394 
19214 066676 0007 BR 4$ 
19015 066700 139077 000020 124366 7$: BISB #20,aML.REG*120 : 8665 
19 1 066706 005201 INC R1 + WD.CNT 8662 
19217 066710 020127 000177 CMP R1,4177 + WD.CNT,* 
19218 066714 003755 BLE 
19219 066716 152777 9 124270 BIS8 #40,aML.REG+40 : 8666 
19220 066724 016704 12465 MOV mL bur R4 
19221 066730 04 704 177770 BIC #177770, R4 
19028 066 14 000007 124252 BICB =: #7, AML .REG*+40 
19223 066742 150477 12424 BISB R4,aML.REG+40 
1928 066746 012746 17777 MOV 4-1 ,-(SP) : 8669 
19225 066752 012746 23 MOV #23,-(SP) 
19226 06675 004767 beri JSR PC,WRT.PD 
19227 066762 152777 100 124304 BIS8 #100,aML.REG+120 : 8670 
19228 066 004767 127074 JSR PC,GD.BLK.XFER : 8671 
19209 066774 012777 000061 124152 MOV #61, @ML REG : 8672 
19230 067002 105777 124216 8$: TSTB  aML.REG+50 
19231 067 100375 BPL 
19232 067010 152777 000040 124176 BISB8 #40,aML.REG+40 : 8674 
19233 067016 016704 124360 MOV ML ur R4 
19234 067022 042704 177770 BIC #177770,R4 
19235 067026 142777 000007 124160 BICB = #7, AML .REG+40 
19236 067034 150477 124154 B1SB 4, aML.REG+40 
19237 067040 005066 000006 CLR 6(SP) : START 8676 
1 067044 012766 000016 000004 MOV #16,4(SP) + *, FINISH 8677 
19239 067052 005005 CLR R : TST.PAT 8678 
19240 067054 004767 125102 JSR PC ,DAT.DM.XFER : 8679 
19241 067060 012777 000071 124066 MOV #71, aML.REG : 8680 
19242 067066 012702 000001 MOV #1,R2 : *,$STMP2 8681 
19243 067072 001411 9$: BEQ 12 
19244 067074 016703 113016 MOV LSDLY,R3 : *,$STMP1 
19265 067100 001404 BEQ 
19246 067102 005 006014 10$: CLR 14(SP) : SSTMP 
19247 067106 00530 DEC R3 : $STMP1 
19248 067110 001374 BNE 108 
19249 067112 005302 11$: DEC R2 : SSTMP2 
19250 067114 000766 BR 9$ 
19251 067116 005004 12$: CLR R4 : TWICE 8683 
1925¢ 067120 016601 000006 13$: MOV 6(SP),R1 > START,WRD.CNT 8686 
19253 067124 005301 DEC R1 + WRD.CNT 
19254 067126 000534 BR 2$ 
19255 067130 017767 124250 123762 14$: MOV @ML .REG+230,PD. TEMP : 
19256 067136 152777 000020 124130 BISB #20,aML.REG+120 : 8689 
1925 IML 14-May-1981 13:48:54 TOPS 
19628 : 14-May-1981 13:05:08 PA:< 
19260 067144 012702 000001 MOV #1,R2 : *,$STMP2 8690 
19261 067150 001411 15$:  BEQ 8 
19262 067152 016703 112740 MOV LSDLY,R3 > *,SSTMP1 
19263 067156 001404 BEQ $ 
19264 067160 005 000014 16$: CLR 14 (SP) : SSTMP 
19265 067164 005 DEC R3 : $STMP1 
19266 067166 001374 BNE 16$ 
19267 067170 005302 17$: DEC Re : SSTMP2 
19268 067172 0007 BR 15$ 
19269 067174 01776 124144 121750 18$: MOV @ML .REG+170,D1. TEMP 
19270 067202 017767 124146 121744 MOV @ML .REG+200,D2. TEMP 
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000001 


000034 


000006 
000004 


19$: 


223: 


@ML .REG+160,E2. TEMP 


R2.R3 

R 

R 

R3 
#PD.TEMP RS 
R3,~(SP) 


R2,-(SP) 
#177770, (SP) 
#1,-(SPS 


PC’ TST.LNG.WRD 
20(SP) .A1 


14 
#1,34(SP) 
#16,SP 


#6,SP 
R 


R2,410 
198 

R1 
R1,4(SP) 
148 


RS 
#17.6(SP) 
#176,4(SP) 


RG M1 
13$ 


SEQ 0395 
NIB.PTR 8693 
NIB.PTR,* 8695 
NIB.PTR,* 
NIB.PTR,* 8698 
TST.PAT,* 
ERR.FLG,* 
ERR.FLG,* 8700 
8703 
8704 
SP,* 
NIB.PTR,* 8705 
SP,* 
* ;DODU.FLG 8706 
8702 
14-May-1981 13:48:54 TOPS 
14-May-1981 13:05:08 PA:< 
8697 
NIB.PTR 8693 
NIB.PTR,* 
WRD.CNT 8686 
WRD.CNT FINISH 
TST.PAT 8713 
* START 8714 
Tee 8683 
TWICE ,* 
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177020 


000004 000001 


124072 


000012 


176756 


!<BLF /PAGE> 


23$: 


248: 


3; Routine Size: 
3; Maximum stack 


; Routine Size: 
3; Maximum stack depth per invocation: 


(SP)+, (SP)+ 
ef 

38s 

1$ 

4(SP) #1 


ML.LUN,RO 
51 


4G 
#12,SP 
PC 


263 word 


s 
depth per invocation: 


141 
PC,$141 
6 


6 words 


23 words 


0 words 


: DODU.FLG,* 





( 
SEQ 0396 | 
8644 
8716 


8720 
8723 


8602 


8725 
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! TEST NUMBER: TST 42 
TEST NAME: CS1 FUNCTION ABORT TEST 


TEST DESCRIPTION: 
TEST CS1 FUNCTION ABORTS ON DETECTION OF CLASS ‘A’ & 'B’ ERRORS BY: 


1. VIA_MBUS WRITE FUNCTION LOAD THE GOOD BLOCK WITH BACKGROUND 
PATTERN OF ONES. 


2. CLEAR THE I0_BUF 


3. DO A MBUS READ FUNCTION. WHILE THE READ IS IN PROGRESS WRITE TO 
MLDA (CLASS ‘A*® ERROR) READ THE IO_BUF FOR ONES. 


4. CLEAR THE 10_BUF 


5. VIA PROM R/W MODE FORCE UV ERROR TO THE UV ADRS ERROR PROM 
(CLASS *B’ ERROR). DO A MBUS READ. 


6. READ I0_BUF FOR ZEROES 
ares || INPUTS: 


BUF 
A_ VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND 
WRITE FUNCTION ARE FOUND. 


CLR_MBUS: 
BAI~= ONE; 'SET ON FIRST 10 BUF ADRS 
10_BUF = ONES; iLOAD FIRST 10_B0F ADRS 
GD-BLK_XFER (5; iSET UP A GOOD BLOCK XFERR 
mLtS1 = write: iWRITE BACKGROUND PATTERN 
TIME_OUT_LOOP: 
iner TWICE from 0 to 1 do 'FORCE CLASS "A* AND CLASS 'B" ERRORS 
n 
SUB; 
CLR_MBUS; 
incr CNT ire 0 fo 255 do 
10_BuF C.CNT) = ZEROES; 'CLEAR OUT 10_BUF 
if -TWICE eql 1 ‘IF 2ND PASS THEN FORCE "B® ERROR 
en 


BeBn RW = ONE: 
MiLPD~= to's; 


SEQ 0397 
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end; 


GD_BLK_XFER (); 
MLUS1 = read; 


if .TWICE eql 0 then MLDA = ONES; 
TIME_OUT_LOOP; 
if .TWICE eql 0 
then 
begin 
incr WRD_CNT from 0 to 64 do 
begin 


if .10_BUF C.WRD_CNT] neq ONES 
then 


peain 
ERRDF (95, SYNC, DUMPER); 


PRINTB (FOR_FMT, PHR_8, FNC_13, 
exitloop; 
end; 
end; 
end 
else — 
begin 


incr WRD_CNT from 0 to 64 do 
begin 
if .10_BUF C.WRD_CNT] neq ZEROES 
then 


begin 

ERADF (96, SYNC, DUMPER); 
PRINTB (FOR_FMT, PHR_9, FNC_13, 
exitloop 


end; 
end; 
end; 
if .SC IS_NOT_SET 
then 
peain 
ERRDF (104, SYNC, DUMP 


ER) 
PRINTB (FIV_FMT, WRD_59, PHR_1, WRD_11, 
end; 


SEQ 0398 


TOPS-20 Bliss-16 V2(212) 


14-May-1981 13:48:38 
81 13:05:08 PA:<NEALE>ML4.BL1.7 (92) 


14-May-19 


'SET UP_A GOOD BLOCK XFERR 
!DO A READ FUNCTION 


!IF FIRST PASS THEN FORCE AN ‘A ERROR 


!SEE WHICH PASS WE'RE ON 
!CLASS 'A* ERROR 
!SEE IF XFERR WAY ALLOWED TO CONTINUE 


'READ 10_BUF FOR BG PAT 
ERROR AND EXIT LOOP IF ZEROES 
WRD_19, WRD_10); 


!CLASS *B* ERROR 
'SEE IF XFERR WAS ABORTED 


'READ IO_BUF CLEARED DATA 
'ERRGR IF ONES AND EXIT LOOP 
WRD_19, WRD_10); 


'SEE IF SC BIT SET 
‘ERROR IF NOT SET 
WRD_19, FNC_13) 
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14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (92) 


ENDSUB; 
end; 


ENDTST; 
$142 


114320 R R1, $SAVE3 
123446 BI #46, aML.REG+40 
124030 MO R 


177770 

7? 123430 
123424 

10 123416 


177777 = 121774 
126260 


3 


YN 
Sono 
NWUWSN 


ad — = — 
BSARGRAALELR 


o-— — ay 


NENEVeN 
NOAONNS 
ANNNNN 


~10.BUF 
PC,GD.BLK.XFER 
123336 MOV #61, aML REG 

: aL -REG+50 
R3 : TWICE 
: RAP 2 : . 
123356 #40, aML.REG+40 

MOV 


000061 
123402 


— od SS 


000040 
123740 
177770 

007 


000 123340 
123334 


WINS CdONOUSWN—O 


MMMM 


; CNT 
+ Naan ; CNT,* 


011600 | aaatiaaat on 
000377 MP RO,4377 ; CNT,* 
000001 CMP rt tal ; TWICE,* 


000100 123356 #100, @ML .REG+120 
000777 123460 #777 ,@ML .REG+230 
126140 : 

000071 


PC,GD.BLK.XFER 
123216 ari aA REG 


abaala utah NN nen epee peepee 


Se 


BAS 
Se 


177777 +=123230 
123244 


PPPS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


s 
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K_15 
crm Ace ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 377 


19545 3ML4 14-May-198 
19546 ; 14-May-198 
19547 

19548 067764 103037 BCC 8$ 

19549 067766 005002 CLR Re 3 WRD.CNT 
19550 067770 010201 6$: MOV R2,R1 ; WRD.CNT,* 
19551 067772 006501 ASL R1 

19236 067774 026127 011600 177777 CMP 10.BUF (R1) ,#=1 

19553 07 001423 BEQ 7$ 

19554 070004 104455 T 55 3 

19555 0 000137 -WORD 137 

19556 070010 010526 eWORD SYNC 

19557 070012 024060 -WORD DUMPER 

19558 070014 012746 006406 MOV MWRD.10,-(SP) : 

19559 070020 012746 006506 MOV D.19,-(SP) 

19560 070024 012746 010112 MOV #FNC.13,-(SP) 

19561 070030 012746 007540 MOV -8,- 

1206 070034 012746 006046 MOV #FOR.FMT,-(SP) 

19563 070040 012746 000005 MOV #5,-(S 

19564 070044 010600 MOV SP RO 3: SP,* 
19565 070046 104414 TRAP 14 

19566 070050 000435 BR 10$ 3 

19567 070052 005202 7$: INC R2 3 WRD.CNT 

1 070054 020227 000100 CMP R2,4100 3; WRD.CNT,* 
19569 070060 003743 BLE 6$ 

19570 070062 000437 BR 12$ ; 

19571 070064 005002 8$: CLR R2 3 WRD.CNT 
19572 070066 010201 9$: MOV R2,R1 3; WRD.CNT,* 
19573 070070 30 ASL R 

19574 070072 005761 011600 TST 10. BUF (R1) 

19575 070076 001425 BEQ 

19576 070100 104455 TRAP 5 3 

19577 070102 000140 -WORD 140 

19578 070104 010526 -WORD SYNC 

19579 070106 4060 - WORD E 

19580 070110 012746 006406 MOV #WRD.10,-(SP) 3 

19581 070114 012746 006506 MOV #WRD.19,-(SP) 

19286 070120 oisree 010112 MOV #FNC.13,-(SP) 

19583 070124 012746 007552 MOV #PHR.9,=(S 

19584 070130 012746 006046 MOV #FOR. FAT, -(SP) 

19585 070134 012746 000005 MOV #5,-(S 

19586 070140 010600 MOV SP RO : SP,* 
19587 070142 104414 TRAP 14 

19588 070144 062706 000014 10$: ADD #14,SP 3 

19589 070150 000404 BR 12$ 

19590 070152 Bor e6 11$: INC + 3 WRD.CNT 
19591 070154 pe 0ce 000100 CMP R2,4100 3; WRD.CNT,* 
bea 070160 00374 BLE 9 

1959 oO iss 032 100000 122764 12$: BIT #100000 ,aML .REG $ 

19594 0701 3 BNE 138 

19595 070172 1044 TRAP 5 3 

19596 fade, 000150 eWORD 150 

19597 070176 010526 eWORD SYNC 

19598 070200 024060 -WORD DUMPER 

19599 070202 012746 010112 MOV #FNC.13,-(SP) g 
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177236 


! <BLF /PAGE> 


3ML4 


ae 
wise 
AA 
ee ee 
— 
2 
oO 


; Routine Size: 
3; Maximum stack 


: Routine Size: 
3; Maximum stack 


#WRD.19,=(SP) 


#WRD.11,=(SP) 
#PHR.1,-(SP) 
#WRD.59,-(SP) 
#FIV.FMT,-(SP) 
#6,-(SP) 
SP.R 
14 
#16,SP 
67 
RO 
15$ 
2$ 
un 
14$ 
PC 
175 words 


depth per invocation: 


6 words 


depth per invocation: 


11 words 


0 words 


: SP,* 


3; TWICE 
3; TWICE,* 


14-May-198 
14-May-198 


1 13:4 
1 13:0 


SEQ 0401 


8:54 TOPS 
5:08 PA:< 


8828 
8831 


8768 


8727 


8834 


m_15 
SPRLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 379 


42 SEQ 0402 
19655 :ML4 14-May-1981 13:48:54 | TOPS=-20 Bliss-16 V2(212) 
19656 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1.7 (93) 
19658 ; 8838 |! 
19659 : 8839 
19660 : 8840 BGNTST: 
19661 : 8841 
: ++ 
19008 : 8843 | TEST NUMBER: TST 43 
19664 : 8844 
19665 : 8845 | TEST NAME: LAST BLOCK TRANSFER TEST 
19666 : 8846 
19667 : 8847 | TEST DESCRIPTION: 
19668 ; 8848} 
19669 : 8849 TEST THE LAST BLOCK INDICATOR BIT 
19670 : 8850 } FOR SETTING/NOT SETTING AND THE 
19671 : 8851 DSA REGISTER FOR INCREMENTING BY: 
19078 : 8853 1. DOING MBUS TRANSFERRS AT EACH 
19674 : 8854 | BLOCK FROM BLOCK ZERO TO 
19675 : 8855 LAST BLOCK -1 AND TEST LBT 
19676 : 8556 CLEAR AND DSA ALGISTER TO BE 
19677 : 8857 | INCREMENTED. 
19678 : 8858 
19679 : 8859 2. DO A MBUS TRANSFERR AT 
19680 : 8860 } THE LAST BLOCK. 
19681 : 8861} TEST LaT 10 BE SET AND 
19682 : 8862 ' TEST FOR 
19683 : 8863 TEST DSA REG TO BE INCREMENTED. 
19684 : 8864 | 
19685 : 8865 | IMPLICIT INPUTS: 
19886 : 8866 I 
19687 : 8867! A VECTOR OF 256 WORDS WHERE 
19688 : 8868 DATA FOR MBUS READS AND WRITE 
19689 : 8869 | FUNCTION ARE FOUND. 
19690 : 8870 ' 
19691 : 8871 i- 
19692 : 887 
19693 ; 8873 local 
19694 : 8874 DODU_FLG; 'DROP UNIT FLAG 
19695 : 8875 
19696 : 8876 DODU_FLG = ZERO; 
19697 : 8877 
19698 : 8878 incr DSA_CNT from 0 to .LST_BLK - 1 do 'DO XFERRS UP TO THE LAST BLOCK 
19699 : 8879 begin : 
19700 : 8880 : 
19701 : 8881 CLR_MBUS; 
19702 : 888 ECC"DIS = ONE j ‘DISABLE ECC 
19703 : 888 MLW = not 255; 'LOAD WORD COUNT 
19704 : 8884 = 10 BUF; iLOAD UBUS ADRS 
19705 : 8885 MLDA = .DSA_CNT; iLOAD DSA WITH DSA_CNT 
19706 : 8886 MLCS1 = ur ite: iDO A WRITE FUNCTION 
19707 : 8887 TIME. OUT_L 
19708 : 8888 
19709 : 8889 if .LBT IS_SET 'SEE IF THE LAST BLOCK XFERR BIT SET 





“40 
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2 SEQ 0403 
19711 ;ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
Irie : 14-May-1981 13:68:08 PA:<NEALE>ML4.BL1.7 (93) 
19714 ; 8890 _ 
19715 : 8891 begin 'ERROR AND SET DODU_FLG IF SET 
19716 ; 889 RRDF (97, ASYNC, DUMPER); 

19717 ;: 889 BRINTB (THR_ FMT, WRD_27 PHR_ 5, WRD_29); 

19718 : 8894 PRINTS (FMT-7, .DSA_UNTS; 
19719 : 8895 DODU_FLG = ONE; 
19720 ; 8896 end; 
19721 ; 8897 
19722 ;: 8898 if .MLDA neq .DSA_CNT + 1 'SEE IF THE DSA REG INCREMENTED 
19723 ; 8899 then 
19726 ; 8900 "begin 'ERROR AND SET DODU_FLG IF NOT 
19725 ;: 3901 F (98, ASYNC, DUMPER); 
19726 ;: §90 PRINTB (THR_ FMT, RES 6 WRD 31, WRD_14); 
19727 ; 890 PRINTS (FMT~7, .DSA_CNT); 
19728 ; 8904 DODU_FLG = ONE; 
19729 ; 8905 end; 
19730 ; 8906 
19731 ; 8907 ENDSUB; 
19732 ;: 8908 end; 
19733 ; 8909 

9734: 8910 3 
19735 : 8911 CLR_MBUS; 

9736 : 891 ECC_DIS = ONE; ‘DISABLE ECC 

19737 ;: 891 LAST BLK_XFER (); 'SET UP A LAST BLOCK XFERR 
9738 ;: 8914 MLCST = write: 'DO A WRITE FUNCTION 

19739 ;: 8915 TIME_OUT_LOOP; 
19740 ;: 8916 
19741 ; 8917 if .MLDA neq .LST BLK + 1 'SEE IF DSA REGISTER INCREMENTED 
19742 ; 8918 then 
19743 ;: 8919 poate ERROR AND SET DODU_FLG IF NOT 
19744 ; 8920 ERRDF (101, ASYNC, DUMPER) 

19745 ; 8921 PRINTB THR FMT, REG 6, WRD 31, WRD_14); 

19746 ; 892 PRINTB (FMT_7, “LST T_BLK); 
19747 ; 892 DODU_FLG = TINE; 
19748 ;: 8924 end;~ 
19749 ; 8925 
19750 ; 8926 if .LBT IS_SET 'SEE IF LBT BIT SET 

19751 : 8927 then 
19752 : 8928 pogin 
19753 ; 8929 MLDA = ONES; ‘IF SET THEN TRY TO CLEAR IT 
19754 ;: 8930 
19755 : 8931 if .LBT IS_SET 'SEE IF BIT CLEARED 

19756 ;: 893. then 

19757 : y 893 pegin ‘ERROR IF NOT 

19758 ; . 934 ERRDF (99, ASYNC, DUMPER); 

19759 ; 935 PRINTB (Fiv FMT, WRD_27, PHR 2. WRD_11, WRD_17, REG_6); 

9760 ; oae6 DODU_FLG = ONE; 

19761 ; 893 end; 

19762 ; 8938 

19763 ; 8939 end 

9764 ; 8940 else | 'LBT NOT SET 

19765 ; 8941 begin 'ERROR AND SET DODU_FLG 
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SEQ 0404 


19767 :ML4 14-May-1981 1 :48:54 TOPS-20 Bliss-16 V2(212) 

19768 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (93) 

19790 : 894 ERRDF (100, ASYNC, DUMPER); 

19771 ; 894 PRINTB (FOR FMT, WRD_27, PHR_1, WRD_11, WRD_27); 

19776 : 8944 DODU_FLG = ONE; 

19773 : 8945 end: 

19774 ;: 8946 

19775 : 8947 ENDSUB; 

19776 : 8948 

19777 : 8949 if .DODU_FLG IS_SET 'DROP THIS UNIT IF DODU_FLG SET 

19778 ; 8950 then 

19779 : 8951 begin 

19780 : 895 DOBU (.ML_LUN); 

19781 ; 895 DOCLN; 

19782 : 8954 end: 

19783 : 8955 

19784 ; 8956 ENDTST: 

19788 

19789 .SBTTL $143 

19793 070306 004167 113564 $1743: JSR R1,S$SAVE4 ; 8836 
19794 070312 005001 CLR R + DODU.FLG 8876 
19795 070314 016704 121252 MOV LST.BLK,R4 : 8878 
1979 070320 005002 CLR R2 : DSA. CNT 

19797 070322 000541 BR 6$ 

19798 070324 010203 1$: MOV R2,R3 : DSA.CNT,* 8898 
19799 070326 005203 INC R3 

19800 070330 10440 2s: TRAP = 2 : 8879 
19801 070332 152777 000040 122654 BISB #40,aML.REG+40. . ; 8880 
19802 070340 016700 123236 MOV ML bur RO 

19803 070344 042700 177770 BIC #1777760,R0 

19804 070350 142777 000007 122636 BICB =: #7, ML. REG*40 

19808 070356 150077 122632 BISB RO. aML.REG+40 

19806 070362 152777 000002 122704 BI1S8 #2. aML.REG+120 : 8882 
19807 070370 012777 177400 122566 MOV 4-400, aM .REG+10 : 8883 
19808 070376 012777 011600 122570 MOV #10.BUF ,aML .REG+20 : 8884 
19809 070404 010277 122574 MOV R2, aL .REG+30 t DSA.CNT,* 8885 
19810 070410 012777 000061 122536 MOV #61, aML REG : 8886 
19811 070416 105777 122602 3$: TSTB = @ML. REG*+50 

1981¢ 070422 100375 BPL 3$ 

19813 070424 032777 002000 122572 BIT #2000, aML .REG+50 : 8889 
19814 070432 001433 BEQ 4$ 

19815 070434 104455 TRAP ‘55 F 8892 
19816 070436 000141 .WORD 161 

19817 070440 010464 [WORD ASYNC 

19818 070442 024060 -WORD  DUMPER 

19819 070444 012746 006610 MOV #URD 29.7 (SP) ; 8893 
19820 070450 012746 007472 MOV #PHR.5,-(SP) 

19821 070454 012746 006602 MOV MWRD.27,-(SP) 
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SEQ 0405 
19823 IML4 14-May-1981 13:48:54 TOPS 
19836 : 14-May-1981 13:05:08 PA:< 
19826 0 60 012746 006034 MOV #THR.FMT,-(SP) 
1 070464 012746 000004 MOV #4,-(SP) 
19828 970470 016600 MOV SP,RO : SP,* 
19829 70472 104414 TRAP 
19830 070474 01 216 MOV R2, (SP) : DSA.CNT,* 8894 
19831 070476 012746 004562 MOV #FAT.7,-(SP) 
19832 070502 012746 2 MOV #2,-(SP) 
19833 070506 010600 MOV SP,RO : SP,* 
19834 070510 104414 TRAP «14, 
19835 070512 012701 000001 MOV #1,R1 z *,DODU.FLG 8895 
19836 070516 062706 000016 ADD #16,SP : 8891 
19837 070522 027703 122456 4$: CMP @ML -REG+30,R3 : 8898 
19838 070526 001433 BEQ 5$ 
19839 070530 104455 TRAP «555 ; 8901 
19840 070532 000142 .WORD 142 
19841 070534 010464 ;WORD  ASYNC 
19842 070536 024060 “WORD DUMP 
19843 070540 012746 006442 MOV #WRD.14,-(SP) : 8902 
19844 070544 012746 2 MOV #WRD.31,-(SP) 
19845 070550 012746 010316 MOV WREG.6,-(SP 
19846 070554 012746 34 MOV #THR.FAT,~(SP) 
19847 070560 012746 000004 MOV #4, 
19848 070564 010600 MOV SP,RO : SP,* 
19849 070566 104414 TRAP ‘14 
19850 070570 010216 MOV R2, (SP) : DSA.CNT,* 8903 
19851 070572 012746 004562 MOV #FMT.7,-(SP) 
19852 070576 012746 2 MOV 2.- 
19853 070602 010600 MOV SP, : SP,* 
19854 070604 104414 TRAP ‘14 
19855 970606 012701 1 MOV #1,R1 : *,DODU.FLG 8904 
19856 070612 062706 000016 ADD #16,SP : 8900 
19857 970616 106467 5$: TRAP 67 : 8905 
19858 0 ROR RO 
19859 070622 10364 BLO 2$ 
19860 070624 005202 INC R2 : DSA.CNT 8878 
19861 070626 020204 6$: CMP R2,R4 : DSA.CNT,* 
1986 070630 002635 BLT 1$ 
19863 070632 10440 7$: TRAP = 2 : 8908 
19864 070634 152 0 122352 BISB #40,aML.REG+40 : 8910 
19865 070642 016704 122734 MOV mL SUT RG 
19866 7 0427 177770 BIC #177770,R4 
19867 070652 14 999007 122334 BICB = #7, AML. REG+40 
19868 07 150477 122330 B1SB R4 ail .REG*40 
19869 070664 152777 122402 BISB #2.aML.REG+120 ; 912 
19870 070672 004767 125224 JSR PC-LAST.BLK.XFER : 891 
19871 070676 012 1 122250 MOV #61 “AL REG i 8914 
1987¢ 070704 105777 10094 8$: TSTB © @ML.REG*5 
19874 OFOFI2 16702 120656 MOY LST.BLK,R2 8917 
19875 070716 005202 INC 
19876 070720 027702 122260 CMP aML .REG+30,R2 
19877 070724 001434 BEQ 9$ 
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19895 070776 
19896 071002 
19897 071004 
19898 071006 
19899 071012 
19900 071016 
19901 071024 
19902 071026 
19903 071034 
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19926 071142 
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sML4 


122200 9$: 


122150 
122162 


10$: 


LST.BLK, (SP) 
#EMT.7,-(SP) 
#2,~(SP) 
P,RO 


#1,R1 
#16,SP 
#2000, aML .REG+50 
10$ 


#-1,aML .REG+30 
#2000, ML .REG*50 


#WRD.27,-(SP) 
#FIV.FMT,-(SP) 
#6,-(SP) 

SP. 

14 
#1,R1 
#16,SP 

11$ 

55 

144 
ASYNC 

UMPER 
MRD. 27,-(SP) 
#WRD.11.=(SP) 
1,-(SP) 

MRD. 27,-(SP) 
#FOR.FMT,-(SP 
#5,-(SP) 

SP, 

14 

#1,R1 


; SP, 


SP,* 
* ,DODU.FLG 


SP,* 
* ,.DODU.FLG 


SP,* 
* ,DODU.FLG 


14-May-1981 13:48:54 


14-May-1981 13:05:08 


SEQ 0406 


TOPS 
PA:< 


8920 


8921 


8922 
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SEQ 0407 
19935 3ML4 14-May-1981 13:48:54 TOPS 
12338 ; 14-May-1981 13:68:08 PA:< 
19938 071176 0627 000014 ADD #14,SP : 8941 
19335 071202 tives 11$: TRAP 67 3 8945 
19940 071204 ROR RO 
19941 071206 103611 BLO 7$ 
Hh a4 origis 005301 DEC R1 3; DODU.FLG 8949 
19943 071212 001004 BNE 12$ 
19944 071214 016700 122360 MOV ML.LUN,RO 3 8952 
19945 071220 104451 TRAP 51 
19946 071222 104444 TRAP 44 
ee 071224 000207 12$: RTS PC 3 8836 
19949 3; Routine Size: 232 words 
138 : Maximum stack depth per invocation: 12 words 
19956 
19960 
19961 -SBTTL 743 
19965 071226 T43:: 
19966 071226 004767 177054 1$: JSR PC,$143 3 8954 
19967 071232 104466 TRAP 66 
19968 071234 000 ROR RO 
19969 071236 103773 BLO 1$ 
ba dA 071240 207 RTS PC 
19972 ; Routine Size: 6 words 
bade | Maximum stack depth per invocation: 0 words 
19979 
19980 ; 8957 '!<BLF/PAGE> 
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143 SEQ 0408 
1 ML 14-May-1981 13:48:54  TOPS-20 Bliss-16 V (212) 
19388 ; 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI. 
19985 ; 8958! 

1 : 8959 i 

19987 : 8960 BGNTST: 

19988 : 8961 

19989 ;: 8962 !++ 

19990 : 8963 | TEST NUMBER: TST 44 

19991 : 8964 

19998 ; 8965 TEST NAME: INVALID ADRS TEST 

19994 : 8967 | TEST DESCRIPTION: 

19995 : 8968 

19996 : 8969: TEST THE DETECTION OF ILLEGAL DSA 

19997 : 8970 | ADDRESSES BY: 

19998 : 8971 i 

19999 : 8972 | 1. DOING A MBUS WRITE FUNCTION 

20000 : 8973 i al Akt POSSIBLE ILLEGAL DSA 

20001 : 8974} DRESSES AND TEST THE 

20002 ; 8975} TRE BIT SET. 

20003 : 8976 i 

20004 : 8977 | IMPLICIT INPUTS: 

20005 : 8978 

20006 : 8979} 

20007 : 8980 | i COE TOR OF 256 WORDS WHERE 

20008 : 8981 | DATA FOR MBUS READS AND WRITE 

20009 : 8982 | FUNCTION ARE FOUND. 

20010 : 8983 | 

20011 : 8984 | 

20012 : 8985 i- 

20013 : 8986 

$0018 : S14 cat CNT 'INVLID ADRS COUNT 

$0019 $390 IAE oe - BLK sasmes AT LAST BLOCK + 1 
Py = . e - + 

Soo18 : $992 d : 2 'TEST FOR ALL INVALID ADDRESS 
e te] . 

nn ee ee INHERENT GAT 
e =. + 13 ; 

20022 ;: 8995 BGNSUB; - = 

$0054 : 5999 MLDA = Sia CNT 'LOAD DSA 

20025 : 8998 MLWC = not 255; iLOAD WORD COUNT 

eR Hee Ba Ate cro 
4 r e; . 

$0059 : 3002 if .IAE fet _NOT_SET ‘SET IF IAE SET 

20080 3004 —~ ieee IF NOT SET 

20032 : 9005 pear (102, ASYNC, DUMPER) ; 

20033 : 3006 BRINTB (FIV_FMT, WRD_30, PiR_ 1, WRD_11, WRD_30, WRD_10); 

34; 900 end; 
0035 : 9008 
20036 : 9009 ENDSUB; 









20053 ort rigse 


$0088 071 071250 
20056 071252 
20057 071254 


20071 071350 
sore 071352 
20073 071356 
20074 071362 
20075 071366 
20076 071372 
20077 071376 
20078 orate 


4 
20087 071432 
071434 


20091 
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143 


peavecsentens 
w 


g8 


=-Ooooco So 
g YS 
LS) = 


NA NNW 


end 
until .IAE_CNT eql %0'177777'; 
ENDTST; 


120322 


000016 


177777 
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TOPS-20 Bliss-16 V 9 
PA: <NEALE>ML4.BL1. 


'REPEAT UNTIL ALL 


Bete Se 


5 
#40, aML .REG+40 


00, aML .REG+1 
#10. BUF ,aML .REG+20 

@ML -REG 
#2000,0AL-REG*6O 


Bee Fe Ge Be 


on bes stack depth a invocation: 












9004 
9007 
9011 
8956 


6 
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SEQ 0410 
sp 100 
30 
196 -SBTTL 144 
110 071436 T44:: 
111 0714 004767 177600 1$: JSR PC, $744 3 9011 
Ng 071442 104466 TRAP 66 
20113 071444 ROR RO 
20114 071446 10377 BLO 1$ 
spite 071450 000207 RTS PC 
20117 ; Routine Size: 6 words 
soles 3; Maximum stack depth per invocation: 0 words 
20124 
20125 ; 9014 !<BLF/PAGE> 
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SEQ 0411 
20127 IMLS 14-May-1981 13:48:54 | TOPS-20 Bliss-16 v2(212) 
14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (95) 

$0190 ; : 9015! 
20131 : 9016 BGNTST; 
201 : : 901 
201 : 9018 !++ 
0134 : 9019 i TEST NUMAER: TST 45 
20135 : 9020 
20136 : 9021 | TEST NAME: ADRS OVERFLOW BIT TEST 
20137 : 9022 
20138 : 9023 ' TEST DESCRIPTION: 
20139 3 9024 TEST THE DETECTION OF ADDRESS OVERFLOWS BY: 
20141 : 9026 | 1. STARTING AT THE LAST BLOCK DO A TWO BLOCK TRANSFER. 
20142 : 9027: 
20143 : 9028 | 2. READ THE AOE BIT SET. 
20144 : 9029 i 
20145 : 9030 | IMPLICIT INPUTS: 

146 : 9031} 10_ BUF 
20147 : 9032 A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITE 

148 : 9033} FUNCTIONS ARE FOUND. 
20149 : 9034 i-- 
20150 : 9035 

151: 9036 CLR_MBUS;: 
20152 : 9037 MLWC = not 511; !DO TWO BLOCK XFERR 
20153 : 9038 MLBA = 10 BUF: iLOAD UBUS ADRS 
20154 : 9039 MLDA = .LST BLK; i START AT LAST BLOCK 
20155 : 9040 MLCS1 = write: iDO A WRITE FUNCTION 
20156 : 9041 TIME_OUT_L 
20157 : 904 
20158 : 9043 if .AOE IS_NOT_SET 'SEE IF AOE SET 
20159 : 9044 then 
20160 ; 9045 begin 'ERROR IF NOT SET 
20161 : 9046 ERRDF (103, SYNC, DUMPER); 
20162 : 9047 PRINTB (FOR_FMT, WRD_26, PHR_1, WRD_11, FNC_19); 
20163 ;: 9048 end; 
20164 : 9049 
20165 : 9050 ENDTST; 
20169 
20170 .SBTTL $145 
20174 071452 152777 0 121534 $145: BISB #40, @ML.REG+40 : 9016 
20175 071 016700 11 MOV 
20176 071464 042700 17777 BIC #177776,R0 
20177 071470 1427 7 121516 BICB = #7, AML .REG*40 
20178 071476 150077 121512 BSB RO. aM .REG+40 
20179 071502 012777 177000 121454 #1000. am. REG*10 ; 9037 
20180 071510 012777 011600 121456 MOV #10.BU G20 : 9033 
20181 071516 016777 120050 121460 MOV LST. BUF -ahi REGe 0 : 9039 
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SEQ 0412 
20183 3ML4 14-May-1981 13:48:54 TOPS 
spies : 14-May-1981 13:05:08 PA:< 
20186 Or 3e8 012777 000061 121422 MOV #61, QML .REG $ 9040 
20187 071532 105777 121466 1$: TST8 aM .REG+50 
20188 071536 100375 BPL 1$ 
20189 071540 032777 001000 121466 BIT #1000, aML .REG+60 ; 9043 
20190 071546 001024 BNE $3 
20191 071550 104455 TRAP 5 é 9046 
20192 071552 000147 -WORD 147 
20193 071554 010526 -WORD SYNC 
20194 071556 024060 -WORD DUMPER 
20195 071560 012746 010204 #FNC.19,-(SP) : 9047 
20196 0715 012746 16 MOV #WRD.11,-(SP) 
20197 071570 012746 007366 MOV #PHR.1,°(SP P 
20198 071574 012746 006574 MOV D.26,-(SP) 
20199 071600 012746 006046 MOV #FOR. FMT ,-(SP) 
20200 071604 012746 5 MOV #5,- 
20201 071610 01 MOV ‘ : SP,* 
20202 071612 104414 TRAP 
20203 071614 062706 000014 ADD #14,SP 3 9045 
04 07 000207 2s: RTS PC : 9013 
20206 ; Routine Size: 52 words | 
SO505 3; Maximum stack depth per invocation: 6 words 
2021 
2021 
20218 -SBTTL 145 
20222 071622 T45:: 
20223 071622 004767 177624 1$: JSR PC,$T45 3 9048 
20224 071626 104466 TRAP 66 
20225 071630 006000 ROR RO 
20226 071632 103773 BLO 1$ 
20227 071634 000207 RTS PC 
20228 ‘ 7 
20229 : Routine Size: 6 words 
202 ; Maximum stack depth per invocation: 0 words 
20235 
20236 


20237 ; 9051 !<BLF/PAGE> 
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20239 :ML4 14-May-1981 13: 2:48:54 TOPS-20 Bliss-16 V2(212) 
A 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (96) 
20242 ; 9058 ! 
20243 ; 9053 BGNTST; 
20244 ;: 9054 
20245 ; 9055 !++ 
See 3 9056 i TEST NUMBER: TST 46 
20247 ;: 9057: 
248 ;: 9058! TEST NAME: SYNC BUS PARITY TEST 
20249 ; 9059: 
20250 : 9060 i TEST DESCRIPTION: 
20251 ; 9061 TEST ave OF SYNC BUS TO DETECT AND GENERATE 
s0e2 3 o068 GOOD PARITY BY: 
20254 ;: 9064 i 1. VIA MBUS WRITE FUNCTION WRITE ALTERNATING ONES AND ZEROES TO THE 
sosee 3 epee DEVICE AND READ THE DPAR BIT CLEARED. 
sose0 ; sit 2. REPEAT WITH SHIFTED DATA 
$520 $ pais 14 3. VIA MBUS READ FUNCTION READ THE ALTERNATING PATTERN AND MDPE CLEARED. 
261 ; 9071 IMPLICIT INPUTS: 
20262 ; 9072 ! 10_BUF 
20263 : 9073: A VECTOR OF 256 WORDS WHERE DATA FOR MBUS READS AND WRITES 
202 2 9074 ! FUNCTIONS ARE FOUND. 
20265 : 9075 i-- 
20266 ;: 9076 
20267 ; 9077 if .PAR_DIS IS_SET 'SEE IF PARITY IS DISABLED 
20268 ;: 9078 then 
20269 : 9079 p04 Wa 'PRINT MESSAGE AND EXIT TST IF YES 
20270 ; 9080 PR ig (THR. FMT, FNC_3, WRD_7, WRD_37); 
20271 ;: 9081 EXIT 
20272 ;: 9082 end; 
20273 : 9083 
20274 ;: 9084 CLR BUS: 
20275 : 9085 BAI = 'SET ON First I0_BUF ADRS 
20276 : 908 10_BUF = aad 125252": iALTERNATE 1, 0 PATTERN 
20278 ;: 9088 incr TWICE from 0 to 1 do 'REPEAT LOOP TWICE 
26279 ;: 9089 begin 
20280 ; BGNSUB; 
20281 ; 9091 GD_BLK_XFER (); 'SET UP A GOOD BLOCK XFERR 
20282 ; 909 MLtS1 = wr ae: 'DO A WRITE FUNCTION 
20283 ; 909 TIME_OUT_L 
Att : 3098 if .DPAR IS_SET 'SEE IF DPAR GOT SET 
20286 ; 9096 then 
20287 ; 9097 _™ cate ‘ERROR IF SET 
20288 ; 9098 ERRDF (105, SYNC, DUMPER); 
20289 ; 9099 PRINTB (FOR_ FMT, WRD_23, WRD_ 6, WRD_7, WRD_9); 
20290 ; 9100 end; 
20291 ; 9101 
20292 ;: 910 10_ BUF = .10 BUF“ONE; 'SHIFT THE I0 BUF & REPE 


20293 ; 9103. MLER = ZEROES; 'CLEAR OUT ERROR REG & REPEAT 
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344 071702 
20345 071706 
20346 071712 
20347 071720 
20348 071724 
20349 071730 


es 0s ts 3 on Ss SS SS SS SS GH Se 


012746 


a= 


Wwe 
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ENDSUB; 
end; 


incr TWICE from 0 to 1 do 
begin 


BGNSUB:. 
CLR_MBUS ; 


BAI = ONE; 
GD_BLK_XFER (); 
MLTS1 = read; 
TIME_OUT_LOOP; 


if .MDPE IS_SET 
then 


PRRDE (106, SYNC, DUMPER) 


14-May-1981 13:48:54 
14-May-1981 13:05:08 


!REPEATE LOOP TWICE 


'SET ON FIRST IO BUF ADRS 

'SET UP_A GOOD BLOCK XFERR 

!DO A READ XFERR 

!SEE IF READ GENERATED BAD PARITY 


'ERROR IF MDPE SET 


PRINTB (FOR_ FMT, WRD_23, urD_ 6, WRD_7, WRD_8); 


end; 


NDSUB; 
+t = rear _ 


10_B 
GD- BLK 
MLtS1 = pn Ae 
TIME _OUT_LOOP: 
end; 

ENDTST; 


117722 000001 
006700 


000012 


000402 
000040 121274 
121656 


177770 
000007 121256 


-SBTTL $146 
MOV R1,-(SP) 

CMP PAR. DIS,#1 
BNE 1$ 
MOV WWRD . 37,-(SP) 
MOV #WRD.7,-(SP) 
MOV #FENC.3,-(SP) 
MOV #THR.FMT,-(SP) 
MOV #4,~-(SP) 
MOV SP. 

TRAP 14 

TRAP 63 
ADD #12,SP 

JMP 
BISB #40,aML.REG+40 
MOV 

IC #177770,R1 
BICB #7,aML.REG+40 


; MAKE DATA oop dan — ONE LESS ONE 
!SET UP A GOOD FE 
CHANGE THE BACKGROUND IN MEMORY 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>ML4.BL1.7 ( 


a4 


SEQ 0414 | 


9050 


9077 
9079 
9082 
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2035 
20354 071736 


20 
20370 072026 
20371 072032 


o-— 
Nu 
MNNO 


s 
S 


g2gee28s 


g 
™ 
et 
& 


012746 


000001 


a1 
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121160 


121224 


121072 


121054 
121042 
120770 


121014 


3ML4 


2$: 


3$: 


4$: 


5$: 


6$: 


R1,aML .REG+40 
#10, aML.REG+40 
#52526, 10.BUF 


2 
PC,GD.BLK.XFER 
#61 ,aML REG 
aML .REG+50 


$ 
#40, aML.REG+60 
4$ 


#10, aML. 0 
PC 6D.BLK.XFER 
#71, aM REG 

aM .REG+50 
#400, QML .REG+40 


DUMPER 
#WRD.8,-(SP) 
#WRD.7,-(SP) 


SP,* 


TWICE 
TWICE ,* 


TWICE 


14-May-198 
14-May-198 


11 
1 13: 


SEQ 0415 
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BEPRERRESE 
FESO 


wis 
eon 


NN 
Mnonorononononoronony 


MPONMIMNININPNoPonory 


SERER 
rmnronny 
WN SO VONOULSWN—O 
SsssesssessssSsss 
w 
o 


aus 


9131 
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006336 
006544 
006046 
000005 


000014 


117314 
123600 
000061 
120722 


120656 


000001 


177312 


! <BLF /PAGE> 


3ML4 


7$: TRAP 


MOV 
8$: TSTB 


9S: 
RTS 


: Routine Size: 
3; Maximum stack 


: Routine Size: 
3; Maximum stack 


Nel6 


wuRD .6 -(SP) 
$ =(SP) 
aFOR: “FAT = (SP) 
P*R 
14 

#14,SP 

67 

RO 

5$ 

10. BUF 

PC, GD.BLK.XFER 
#61, aML REG 
@ML .REG+50 
8$ 

R1 

R1,41 


(SP)+,R1 
PC 


153 words 


depth per invocation: 


6 words 


depth per invocation: 


7 words 


0 words 


; TWICE 
3 TWICE,* 


14-May-1981 
14-May-1981 1 


SEQ 0416 


13:48:54 
13:05:08 


TOPS 
PA:< 


9128 
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20463 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss=16 V2(212) 

20464 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BLI.7 (97) 
66 ; 91 4 ! 

20467 : 91 i 

0468 ; 9134 ®GNTST: 
69 : 9135 

30470 : 9136 144 

0471 : 9137 | TEST NUMBER: TST 47 

20472 : 9138 
73: 9139 i TEST NAME: WRITE READ ML11 
74: 9140 / 

20475 : 9141 | TEST DESCRIPTION: 

20476 : 9142 | 

20477 : 9143 i PROVIDES A MBUS READ/WRITE 

20478 : 9144 | DATA TRANSFER TROUBLE SHOOTING 

20479 : 9145 LOOP BY: 

20480 : 9146 

20481 : 9147 1. LOAD APPROPRIATE RH REGISTERS. 

20482 ; 9148 DO A WRITE FUNCTION. 

20483 : 9149 

20484 : 9150 2. LOAD APPROPRIATE RH REGISTERS 

20485 : 9151 DO A WRITE CHECK FUNCTION. 

20486 : gi3¢ i 

20487 : 9153 i 3. COMPLIMENT DATA AND 

20488 : 9154 REPEAT. 

20489 : 9155} 

20490 : 9156 | IMPLICIT INPUTS: 

20491 : 9157 

20492 : 9158 10_BUF 

20493 : 9159 i A VECTOR OF 256 WORDS WHERE 

20494 : 9160 : DATA FOR MBUS READ AND WRITE 

20495 : 9161 FUNCTIONS IS FOUND. 

20496 : 9162 ! 

20497 : 9163 ine 

20498 : 9164 

20499 ; 9165 local 

20500 : 9166 TST_PAT; 'TEST PATTERN 

20501 : 9167 

20502 : 9168 TST_PAT = %0'052525'; 

Bieta : 3190 incr TWICE from 0 to 1d 'WRITE READ 1°S AND 0°S ON MBUS 

: ner rom 0 to fe) ! ’ P 

20505 : 9171 begin 

20506 : 917 CLR_MBUS: 

20507 : 917 BAI~= ONE; 'SET ON FIRST I0_BUF ADRS 

20508 : 9 10_BUF = .TST_PAT; iLOAD FIRST I10_B0F ADRS 
509 : 9175 GD-BLK_XFER (73; iSET UP A GOOD BLOCK XFERR 
510 : 9176 MLUS1 = write: iDO A WRITE FUNCTION 
511: 9177 TIME_OUT_LOOP: 
312 : 9178 CLR_ABUS; 
513: 9179 BAI~= ONE: 'SET ON FIRST 10_BUF AD 
514 : 3180 GD_BLK_XFER (); iSceT UP A GOOD BLOCK XFERR 
515 : 9181 MLTS1 = WRT CHK; iDO A WRITE CHECK FUNCTION 

0516 : 9i8¢ TIME_OUT_LOOP; 


1 
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e 


14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (97) 


eWCE IS_SET 'SEE IF WRITE CHECK ERROR SET 
en 

begin 'ERROR IF SET 

ERRDF (109, TRBLE_LOOP, DUMPER); 

— (SIX_FMT, FNC_4, WRD_10, WRD_12, FNC_5, FNC_6, FNC_3); 

end; 
a nel = not .TST_PAT; !COMPLIMENT TST_PAT AND REPEAT 


mr 
oo 


WOODODOOOO0O0O 


— to ts as Ss os —) os 
RANSLSSSLEAS 


ichtet 


+ *,TST.PAT 
: TWICE 
120640 : 


FLa 


120622 
120610 


o-oo = 
UIs 


; TST.PAT,* 


3 


120532 


Wino 


@ML .REG+50 
BP 2s 

120556 #40, aML .REG+40 
MOV 


o— 


’ 
152 
0 


= 

MNO 
YVYNW 
SSN 


120540 
120526 
120454 


Aare 
S 
~ 
N 


Sx 


oo 
Sheen 


BPL 
120500 720008, .RES*48 


155 

TRBLE .LOOP 
DUMPER 
#FNC.3,-(SP) 


phn Sao bo 
#FNC.5,-(SP) 
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SEQ 0419 
20575 sML4 14-May-1981 13:48:54 TOPS 
$0228 3 14-May-1981 13:05:08 PA:< 
20578 072542 012746 006426 MOV #WRD.12,-(SP) 
20579 072546 012746 006406 MOV #WRD.10,=(SP) 
20580 072552 012746 007756 MOV #FNC.4,-(SP) 
20581 072556 012746 100 MOV #SIX.FMT,=(SP) 
20582 072562 012746 000007 MOV #7,-(S 
20583 072566 010600 MOV SP,RO 3 SP,* 
20584 072570 104414 TRAP 1 
20585 072572 062706 000020 ADD #20,SP 5 9186 
20586 072576 005101 4$: COM R1 3: TST.PAT 9191 
20587 072690 005202 INC R2 3; TWICE 9170 
20588 072602 020227 000001 CMP R2,41 ; TWICE,* 
20589 072606 003657 BLE 1$ 
$3200 072610 000207 RTS PC 3 9130 
spans ; Routine Size: 87 words — 
2059 3; Maximum stack depth per invocation: 11 words 
20598 
20599 
20603 
20604 -SBTTL 147 
20608 072612 T47:: 
20609 072612 004767 177516 1$: JSR PC,$147 : 9192 
20610 072616 104466 TRAP 66 
20611 072620 006 ROR RO 
spele 072622 103773 BLO 1$ 
20613 072624 207 RTS PC 
20614 
20615 ; Routine Size: 6 words 
spots ; Maximum stack depth per invocation: 0 words 
20622 
20623 ; 9195 !<BLF/PAGE> 
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7 SEQ 0420 
5 :ML4 14-May-1981 TOPS=20 Bliss-16 V2(212) 
0636 ; 14-May-1981 3 ‘38 PA:<NEALEDML4.8L1.7 (98) 
S58: B88 deusr 
20630 ; 9198 
20631 : 9199 !+4 
20652 : 9200 i TEST NUMBER: TST 48 
20633 : 9201 
20634 : 9202 ‘| TEST NAME: CRC DATA BUS TEST 
20635 : 9203 
20636 : 9204 i TEST DESCRIPTION: 
20637 : 9205 i TEST THE CRC DATA Bus BETWEEN THE CRC 
20638 : 9206 GENERATORS AND THE CRC/MBUS DATA 
20639 : 9207 MUX FOR CONTINUITY AND SIT UNIQUENESS 
20640 : 9208 BY: 
20641 : 9209 | 
e642 : 9210 } 1. WHILE IN ECC DIAGNOSTIC MODE DO 
20643 : 9211 i GOOD BLOCK TRANSFERS WITH VARIOUS 
20644 : 9212 ! CRC_A,CRC_B AND PAR_CRC_WRD WHICH 
20645 : 9213 wILt Ae TERCISE BUS CONTIRUITY AND 
20646 : 9214 UNIQUENESS. 
20647 : 9215 i 
20648 : 9216 2. THEN IN DATA DIAGNOSTEC MODE READ 
20649 : 9217} THE CRC NIBBLES FROM ONE CRC GROUP 
20650 : 9218 FOR CORRECT CRC_A,CRC_B AND PAR_CRC_WRD 
20651 : 9219 i DATA PATTERNS. 
20652 : 9220 } 
20653 : 9221 | IMPLICIT INPUTS: 
20654 : 9222 i PD_TEMP 
20655 : 9223 A BIT VECTOR OF 16 BITS WHERE THE READ 
20656 : 9224 | PROM DATA IS STORED OAND ACCESSED FROM. 
20657 : 9225 i 
20658 : 9226 
20659 : 9227 i- 
20660 : 9228 
20661 ; 544 local 
20662 : 92 CRC_NIB ‘POINTER TO THe yoke NIBBLE 
20663 : 9231 CRC~TSTED, iSTORES HOW MANY CRC NIBBLES WE HAVE TESTED 
20664 : 93¢ ERR-FLG, ‘ERROR FLAG 
20665 : 9233 NIB“PAT: iTEST DATA FOR THE CRC NIBBLE 
itt, : 9235 CRC_NIB = 9; 'SET CRC NIBBLE POINTER 
spees : 9237 incr LOOP from 0 to 4 do ‘REPEAT THE TEST WITH FIVE NIBBLE PATTERNS 
mn: 3538 Hee ‘START OF THE SCOPE LOOP 
: : ! L 
20672 ; 9240 CLR_MBUS; 
20675 : 3241 ECC"DM = ONE; 'SET ECC DIAG MOD 
75 3 924 case .LOOP from 0 to 4 of ‘SELECT ONE OF THE FIVE NIBBLE PATTERNS 
20676 ;: 9244 set 
20678 : ote (0) ‘PATTERN 0 
79 : 924 NIB_PAT = %b'110"; 
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20684 ; 9248 
20685 ; 9249 
20686 ; 9250 
20687 ; 9251 
20688 ; 925 
20689 ; 925 
20690 ; 9254 
20691 ; 9255 
20692 ;: 925 
20693 ; 925 
20694 ; 9258 
20695 ;: 9259 
20696 ; 9260 
20697 ; 9261 
20698 ; 9262 
20699 ; 9263 
20700 ;: 9264 
20701 ; 9265 
20702 ; 9266 
20703 ;: 9267 
20704 ;: 9268 
20705 : 9269 
20706 ;: 9270 
20707 ;: 9271 
20708 ;: 927 
; 927. 
20710 ; 9274 
20711 ; 9275 
20712 ; 927 
20713 ; 927 
20714 ; 9278 
20715 ;: 9279 
20716 ;: 9280 
20717 ; 9281 
20718 ;: 928 
20719 : 928 
20720 ; 9284 
20721 ; 9285 
20722 ; 9286 
207235 ; 9287 
20724 ; 9288 
20725 ;: 9289 
20726 ;: 9290 
20727 ; 9291 
20728 ; 929 
soe : 929 
730 ; 9294 
207% 3 53-44 
733 ; 3599 
20734 : 9298 
20735 ; 9299 
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(1) : 
begin = ONES; 


MLE2 = ONES 
NIB_PAT = 26001"; 
end; 


C2) 


(3) : 
begin cRC .WRD = ONES; 
CRC_B = S: 
NIB-PAT = %b'011'; 
end; 

(4] : 
begin CRC_WRD = ONES; 


CRC“A = ONES; 
NIB-PAT = %b'101"; 


end; 
tes; 
GD_BLK_XFER (); 
mLtS1 = ath 
TIME OUT_L 
DAT_Dm = “ONE. 
GD_BLK_ = 0: 


mLtsi = 
CRC TSTED = 2 feRO: 
DELAY (ONE_US); 


do 


if .PD_TEMP C.CRC_NIB) IS_NOT_SET 
then 


Ret TSTED = .CRC_TSTED + 
TSTLNG_WRD ( 


(.CRU_NIB, ‘yl. PAT, ERR_FLG); 


14-May-1981 13:6 754 
14-May-1981 13:05:08 


!PATTERN 1 


!PATTERN 2 


!PATTERN 3 


!PATTERN 4 


'SET UP A a 0 oe TRANSFER 
!DO A WRITE TRANSFER 

'WAIT UNTIL DRIVE READY 

: SET ayn DIAG MODE 

'SET UP _A GOOD BLOCK TRANSFER 
DO A READ TRANSFER 


!TEST ONE CRC GROUP °6 CRC NIBBLES’ 


‘READ THE PROM DATA FOR THIS ARRAY WORD 
CLOCK OUT AN ARRAY WORD INTO THE DATA DIAG REG'S 


‘DELAY ONE MIC 


RO SECOND 
!READ THE DATA DIAG REG'S INTO MEMORY 


!TEST THIS CRC NIBBLE IF GOOD 


! INCREMENT 
'TEST THE CRC NIBBLE 


THE GOOD NIBBLE COUNTER 


TOPS=20 Bliss-16 veeie 
PA:<NEALE>ML4.6L1.7 (98) 


SEQ 0421 
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14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
4 08:08 $ (28) 


14-May-1981 1 PA: <NEALEDML4.BLI. 
if -ERR_FLG IS_SET 'SEE IF THE TEST FOUND AN ERROR 
en 
begin ‘REPORT ERROR IF FLAG IS SET 
ERRDF (131, SYNC, DUMPER);: 
PRINTB (FOR_FMT, WRD_64, WRD_24, WRD_73, WRD_10); 
PRINTS (FMT_5, .NIB_PAT, .NIB_SAVE (R1B.9), 8); 
end; 
end; 
end 
until .CRC_TSTED eql 6; 'REPEAT UNTIL ONE CRC GROUP HAS BEEN TESTED 
ENDSUB; ‘END OF SCOPE LOOP 
end; 
ENDTST: 
.SBTTL $148 
111264 $1748: JSR R1,$SAVES : 
000006 SUB #6 
000011 MOV #11,R5 : *,CRC.NIB 
MOV R5,-(SP) > CRC.NIB,* 
ASR (SP) 
ASR 
ASR (SP) 
013120 ADD #PD. TEMP, (SP) 
CLR R1 3 LOOP 
1$: TRAP = 2 : 
00040 120324 B18 #40, AML -REG*40 : 
139706 BIC P7776 Re 
000007 120306 BICB =: #7, AML. REG+40 
120302 BISB R4.aML.REG+40 
000001 120354 BI1SB #1.aML.REG+120 : 
MOV R1.R4 + LOOP,* 
ASL R4 
072730 ADD g$.(R4) .PC 
2s: WORD $-2$ 
“WORD 4$-2$ 
‘ D 5$- $ 
- WORD $ $$ 


WOR - 
000006 3$: MOV #6,R2 


H +3 * ,NIB.PAT 
177777 120346 4$: MOV #-1,@ML .REG*+150 : 


SEQ 0422 
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SEQ 0423 
793 ZML4 14-May-1981 13:48:54 TOPS 
794 3 14-May-1981 13:05:08 PA:< 
20796 072756 012777 177777 120350 MOV #-1, aM .REG+160 ; 925 
20797 072764 012702 000001 MOV #1,R2 t *,NIB.PAT 925 
20798 072770 6 BR : 9243 
20799 072772 152777 000077 120324 5$: BISB #77,aML.REG+150 : 9258 
20800 07 152777 000077 120326 BI1SB #77,aML.REG+160 : 9259 
20801 073006 005002 CLR R2 t NIB.PAT 9260 
20802 073010 00041 BR AS : 9243 
2080 073012 052777 037400 120304 6$: BIS #37400, aML .REG+150 : 9265 
20804 0 20 152777 000077 120306 BIS8 #77,aML.REG+160 : 9266 
20805 073026 012702 MOV #3,R2 : *,NIB.PAT 9267 
20806 073032 000405 BR 88 : 9243 
20807 073034 056777 177777 120262 7$: BIS #177777 ,@ML .REG+150 : 9272 
20808 073042 01 202 000005 MOV #5,R + *,NIB.PAT 9274 
20809 073046 004767 123016 8$: JSR PC. GD.BLK.XFER : 9278 
20810 073052 012777 000061 120074 MOV #61, aML.REG : 9279 
20811 073060 105777 120140 9$: TSTB  aML.REG+50 
20812 073064 100375 BPL 9$ 
20813 073066 152777 000010 120200 BISB8 #10,aML.REG+120 ; 9281 
20814 073074 004767 122770 JSR PC 6D .BLK.XFER : 9282 
20815 073100 012777 (000071 120046 MOV #71 aM .REG : 9283 
20816 073106 903066 000002 CLR 2(SP) : CRC. TSTED 9284 
20817 073112 012703 000001 MOV #1,R3 : *,S$TMP2 9285 
20818 073116 001411 10$:  BEQ 13 
20819 073120 016704 106772 MOV LSDLY,R4 > *,SSTMPI 
20820 073124 001404 BEQ 12$ 
20821 073126 005 000006 11$: CLR 6(SP) : SSTMP 
20822 073132 005 DEC R4 + $S$TMP1 
20823 073134 001374 BNE 11$ 
20824 073136 005303 12$: DEC R3 : SSTMP2 
20825 073140 000766 BR 10$ 
20826 073142 017767 120236 117750 13$: MOV @ML .REG+230,PD. TEMP : 9289 
20827 073150 152777 000020 120116 BISB #20,aML.REG+120 : 9290 
20828 073156 012703 000001 MOV #1,R3 : *,SSTMP2 9291 
073162 001411 14$:  BEQ 17$ 
20830 073164 016704 106726 MOV LSDLY.R4 3 *,SSTMPI 
20831 073170 001404 BEQ 16$ 
32 073172 005066 000006 15$: CLR 6(SP) > SSTMP 
20833 073176 005304 DEC R4 : $STMP1 
3 973200 001374 BNE 15$ 
20835 073202 005503 16$: DEC RS : SSTMP2 
20837 073206 01 766 120132 115736 17$: MOV @ML .REG+170,D1. TEMP 
20838 073214 017767 120134 115732 MOV aM .REG+200,D2. TEMP 
20839 07 @2 017767 120106 115726 MOV @ML .REG+160.E2. TEMP 
20840 073230 011646 MOV (SP) ,=(SP) F 9296 
20841 073232 010546 MOV R {sP) > CRC.NIB,* 
20842 073234 042716 177770 BIC #177770, (SP) 
20843 073240 012746 000001 MOV #1,-(SP5 
Speee Or 85c6 posses 107666 Tope Bi S6r2 
20846 073252 062706 000010 ADD #10,SP 


a 


. 
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$148 SEQ 0424 
20848 ZML4 14-May-1981 13:48:54 TOPS 
alee : 14-May-1981 13:68:36 PA:< 
20851 073256 005700 TST RO 
20852 073260 001066 BNE 19$ 
262 905 66 000002 INC : CRC.TSTED 9297 
54 073266 010546 MOV R5,-(SP) : CRC.NIB,* 9298 
20855 073270 010246 MOV R2,=(SP) : NIB.PAT,* 
3272 O12 000012 MOV #12,-(SP) 
20857 073276 06061 ADD (S$ z ERR.FLG,* 
73 004767 122659 JSR PC. TST.LNG.WRD 
9 073304 02667 000012 000001 CMP 12(SP) #1 : ERR.FLG,* 9300 
073312 001047 BNE 18$ 
20861 073314 104455 TRAP =.‘ 55 : 9303 
073316 .WORD 203 
20863 073320 010526 <WORD SYNC 
20864 073322 024 “WORD  DUMPE 
073504 012746 006406 V #URD.10,-(SP) ; 9304 
20866 073330 012746 007310 MOV #URD.73.-(SP) 
20867 073334 012746 006552 MOV MRD. 24,-(SP) 
073340 012746 007224 MOV MURD.64,-(SP) 
073344 012746 006046 MOV #FOR. FMT, (SP) 
20870 073350 012746 000005 MOV #5,-(S 
20871 073354 010600 MOV SP.RO : SP. 
20872 073356 1044°% TRAP ‘14 
073360 012716 000010 MOV #10, (SP) : 9305 
073364 016704 115566 MOV NIB. SAVE +4 ,R4 
20875 073370 04 ASR R4 
20876 073372 006204 ASR R4 
073374 006204 ASR R4 
20878 073376 006204 ASR R4 
20879 073400 000304 SWAB RG 
20880 073402 042704 177770 BIC #177770,R4 
20881 073406 010446 MOV R4,-(SP) 
20882 073410 010246 MOV R2,-(SP) : NIB.PAT,* 
073412 012746 004430 MOV #FAT.5,-(SP) 
20884 073416 012746 000004 MOV #4,-(SP) 
20885 073422 010600 MOV RO : SP,* 
20886 073424 104414 TRAP 
20887 073426 062706 000024 ADD #24,SP : 
20888 073432 062706 18$ ADD . ; 
20889 073436 026627 000002 000006 19$ CMP 2(SP) #6 t CRC.TSTED,* 
073444 0012 BNE 3s 
1 073446 104467 TRAP 6 
¢ 0734 ROR 
20893 073452 10300 BHIS 218 
54 000167 177200 208:  JMP 1 
20895 073460 005201 21$: INC R1 3 LOOP 
30896 073462 020127 000004 CMP R144 * LOOP,* 
97 073466 003772 BLE 208 
20898 073470 062706 000010 ADD #10,SP : 
20899 073474 000207 RTS PC 
Bia 3; Routine Size: 215 word 


s 
20902 3; Maximum stack depth per invocation: 23 words 
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$14 SEQ 0425 


3ML4 14-May-1981 13:48: % TOPS 
14-May-1981 13:05:08 PA:< 


-SBTTL 148 
073476 T48:: 
73476 004767 177124 1$: JSR PC,$T48 ; 9314 
073502 104466 TRAP 66 
0735 006000 ROR RO 
0735 103773 BLO 1$ 
207 RTS PC 


soase 073510 000 


; Routine Size: 6 words — 
; Maximum stack depth per invocation: 0 words 


SSses 
ae BS 


36 ;: 9317 !<BLF/PAGE> 
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1 
BGNTST 
lee 
TEST NUMBER: TST 49 
TEST NAME: | UNIQUE NIBBLE CRC GENERATION TEST 
i TEST DESCRIPTION: 
i Test CRC CODES GENERATED FOR ONE CRC 
(52 UNIQUE UNIBUS NIBBLES) BY: 
1. DOING MASS BUS WRITE TRANSFERSS WITH THE 
i FIRST I0 BUF CRC GROUP HAVING 51 NIBBL 
i OF %B°0000' PATTERN AND THE REMAINING NIBBLE 
WITH PATTERNS OF %8°0000' TO %B'1111'. 
i 2. THEN IN DATA DIAGNOSTIC MODE CALCULATE 
i THE CRC ¢ CODE FOR THE FIRST CRC 
i GROUP AND COMPARE IT AGAINST THE 
HARDWARE GENERATED CRC CODE. 
i 3. REPEAT PATTERN OF %8'0000' TO %B'1111° 
FOR EACH OF THE 52 NIBBLES. 
IMPLICIT INPUTS: 
i A “VECTOR OF 256 WORDS WHERE DATA 
i FOR MBUS READS AND WRITES TRANSFERS 
1S FOUND. 
1 
_ 
local 
DODU_FLG , 
EMP 


NIB SEL; 
DODD_FLG = ZEROES; 


incr CNT ine 0 ie 
10_BUF C.CNTJ = TERGES: 


incr WRD_CNT from 0 to 12 do 
in 
NIB. SEL z« 


incr NIB_TST from 0 to 3 do 
begin 


if (.WRD_CNT eql 12) and (.NIB_TST eql 2) then exitloop; 


SEQ 0426 


1 13: 748:54 TOPS=20 Bliss-16 i Wa 
:05:08 99) 


PA:<NEALE>ML4.BL1.7 ( 


LAG 

ARY Y st ORAGE LOCATION 
iSELECTS 4 BITS 
‘CLEAR THE DROP UNIT FLAG 


iCLEAR THE FIRST 14 I0_BUF WORDS 


"ONE NIBBLE* FROM THE I0_BUF 


!DO THIS TEST ON 13 I0_BUF WORDS 
‘RESET THE NIBBLE SELECTOR 
!DO THIS TEST ON 4 NIBBLES PER WORD 


!THE LAST 2 NIBBLES ARE NOT TESTED 


tL 1 
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SEQ 0427 
sae 3ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 i Sat 
5 3 14-May-1981 13:05:08 PA:<NEALE>ML4.BL1.7 (99) 
0997 ;: 9370 NIB_SEL = -NIB_ SEL + 4; 1 INCREMENT THE “tat SELECTED 
3 930) TEMP = ZER OES; 'CLEAR TEMP LOCA 
$1000 : oae7 ~— , PAT from %b'0000° to %b°1111° by %b°0001° do '!RUN PATTERNS ON THEIS NIBBLE 
: n 
$1006 ; 9375 BGNSUB; 'START OF SCOPE LOOP 
21003 ; 9376 TEMP<.NIB SEL, 4> = .NIB_PAT; tend PATTERN INTO TEMP AT THIS NIBBLE 
21004 ; 9377 9 BUF C.QRD_CNT] = .TEMP; OAD THE GENERATED PATTERN INTO THE IO_BUF 
21005 ; 9378 MBUS; 
21006 ; 9379 &D BLK_. XFER 0; 'SET UP A 0 BLOCK TRANSFER 
21007 ; 9380 MLtS1 = write; 1DO A wit RANSFE 
21008 ; 9381 TIME_OUT_LOOP; WAIT FOR THE TRANSFER TO COMPLETE 
21009 ; 9382 A_GEN = ZEROES; i CLEAR THE GEN & CAL STORAGE LOCATIONS 
21010 ; 9383 B_GEN = ZEROES; 
21011 ; 9384 P_GEN = ZEROES; 
21012 ; 9385 A_CAL = ZEROES; 
21013 ; 9386 B_CAL = ZEROES; 
21014 ; 9387 P_CAL = ZEROES; 
$igt2 3 a4 CAL_CRC (); 'CALL ROUTINE TO CALCULATE THE CRC CODE FOR THIS PATTERN 
21017 ; 9390 if ERR_CHK_CRC () 'NOW SEE IF THE GEN CRC IS SAME AS CAL CRC 
21018 ; 9391 then 
21019 ; 9392 begin 'REPORT THE ERROR IF NOT THE SAME 
21020 ; 9393 ERRDF (132, SYNC, DUMPER); 
21021 ; 9394 PRINTB (THR_F FMT, WRD_S, WRD 64, WRD_8); 
21022 ; 9395 PRINTB (FMT_19, .B_GEN. .A_GEN, .P_GEN); 
21023 ; 9396 PRINTB (FMT. 20, .B_CAL, .A_ “CAL. -P_CAL); 
21024 ; 9397 DODU_FLG = ONE; 
21025 ; 9398 end; 
21026 ; 9399 
21027 ; 9400 ENDSUB; 'END OF SCOPE LOOP 
21028 ; 9401 end; 
21029 ; 9402 
21030 ; 9403 10_BUF C.WRD_CNT] = ZEROES; 'CLEAR THIS !0_BUF WORD FO NEXT NIBBLE 
21031 ; 9404 end; 
21032 ; 9405 
21033 ; 9406 end; 
$1038 : ryt if .DODU_FLG IS_SET ‘DROP THIS UNIT IF THE DODU FLAG GOT SET 
5 oT «a « al : ' U FL 
21036 ; 9409 then | 
21037 ; 9410 begin 
21038 ; 9411 DODU (.ML_LUN); 
21039 ;: aie DOCLN; 
21040 ; 941 end; 
21041 ; 9414 
21042 ; 9415 ENDTST; 
21046 
21047 -SBTTL $149 
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117350 


117332 


117254 


$149: 


1$: 


2s: 


3$: 


4$: 


5$: 


JSR 


R1,$SAVE5 
=(SP) ,-(SP) 
2(SP) 

RO 

RO,R1 
10.BUF (R1) 
RO,#15 

1$ 

R2 

#~-4, (SP) 
R2.R1 

R4 

R2 A114 

43 

R4 #2 


R5.10.BUF (R1) 
#40, aML .REG+40 


0. aM .REG+40 
PC. GD.BLK.XFER 
#61, aML REG 
ail .REG+50 


PC,CAL.CRC 
RO 
7$ 
55 


DODU.FLG 
CNT 


; CNT,* 


CNT 
; CNT,* 


: WRD.CNT 
: *,NIB.SEL 
: WRD.CNT,* 


NIB. TST 
WRD.CNT,* 


NIB. TST,* 

* NIB.SEL 
MP 

NIB.PAT 


TEMP ,* 
NIB.SEL,* 


NIB.PAT,* 


*, TEMP 
TEMP, * 
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000044 


000001 


7$: ADD 


8$: INC 


9$: CMP 


10$: CMP 


3; Routine Size: 


3; Maximum stack depth per invocation: 





#1,44(SP) 
#32,SP 


e 


S (alae 
R4 #3 

3$ 

Re 

R2,W14 

9$ 

2s 

2(SP) #1 


ML.LUN,RO 
51 


a4 
(SP)+,(SP)+ 
PC 


156 words 


25 words 


SP,* 


SP,* 


SP,* 
* ,.DODU.FLG 


; NIB.PAT 
; NIB.PAT,* 


; NIB.TST 
; NIB.TST,* 


WRD.CNT 
WRD.CNT,* 


DODU.FLG,* 


14-May-1981 
14-May-1981 


13 
13 


SEQ 0429 


48:54 
:05:08 





TOPS 
PA:< 


9395 


9316 





a 


B 2 
+ ae ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 407 


SEQ 0430 
1168 
1169 
1173 
1174 -SBTTL 149 
1178 ort OS T49:: 
1179 074 004767 177304 1$: JSR PC, $T49 : 9413 
1180 074 104466 TRAP 66 
1181 074210 ROR 
1156 ora 1037 BLO 1$ 
Be 074214 000207 RTS PC 
$1183 3; Routine Size: 6 word 
A + Maximum stack depth per invocation: 0 words 
$1192 
21193 ; 9416 ! 
21194 ; 9417 '<BLF/PAGE> 


C 2 
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14 SEQ 0431 


14-May-1981 13: : TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05: PA:<NEALE>ML4.BL1.7 (100) 


BGNTST; 


'4¢ 
: TEST NUMBER: TST 50 
TEST NAME: UNIQUE WORD CRC GENERATION TEST 
TEST DESCRIPTION: 
TEST CRC CODES GENERATED FOR ONE 
CRC GROUP (15 UNIBUS WORDS) BY: 


1. DOING MASS BUS WRITE TRANSFERS 
USING VARIOUS WORD DATA PATTERENS. 


2. THEN IN DATA DIAGNOSTIC MODE 
CALCULATE THE CRC CODE FOR THE 
FIRST CRC GROUP TO 


AND COMPARE IT 
THE HARDWARE GENERATED CRC CODE. 
states | oe 
A “VECTOR OF 256 WORDS WHERE DATA 


FOR MBUS READS AND WRITES TRANSFERS 
IS FOUND. 
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local 
DODU_FLG, 'DROP UNIT FLAG 
TST_PAT; 'TEST PATTERN SAVE LOCATION 


DODU_FLG = ZEROES; !CLEAR THE DROP UNIT FLAG 
ner PAY SEL from 0 to 3 do 'RUN THE TEST ON 4 PATTERNS 
n 


BGNSUB; !START OF SCOPE LOOP 
CLR_MBUS; 


case Pat SEL from 0 to 3 of 'SELECT ONE OF THE 4 PATTERNS 
Se 


VUMIMMIMA A 
WONAUSWN—OO 


J: 
TST_PAT = ONES: 


Peeeeeeeesersceer 


FARIS 


3: 
TST_PAT = %0'052525'; 


[2] : 
TST_PAT = %0'125252'; 


(3] : 


SOONOM 
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9 
2 
: 
2 
2 
2 
r4 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
r4 
; 
; 
2 
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14-May-1981 13:48:54 TOPS-20 Blis 
14-May-1981 13:05:08 PA: <NEALE>ML 
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9 SEQ 0432 
1253 
1254 ; 9470 TST_PAT = %0'070707'; 

mi. $20 = 

31937 : 947 incr CNT from 0 to 255.4 !LOAD THE FIRST 13 I0_BUF WORDS WITH TST_PAT 
1258 : 9474 10_BUF C.CNT ast PAT; 

21259 : 9475 

21260 ; 9476 GD_BLK_XFER (); 'SET UP A GOOD BLOCK TRANSFER 
1261 : 9477 mutes! = = write; iDO A WRITE TRANSFER 
1262 : 9478 TIME_OUT_LOOP: iWAIT FOR THE TRANSFER TO COMPLETE 
1263 : 9479 GER = ZEROES; iCLEAR THE GEN & CAL SAVE LOCATIONS 

21264 : 9480 87 cEN = ZEROES: 

21265 : 9481 P-GEN = ZEROES: 

21266 : 948 A-CAL = ZEROES; 

21267 : 948 B-CAL = ZEROES; 

21268 : 9484 P-CAL = ZEROES: 

31269 : 3485 CAL_CRC ©; 'CALCULATE WHAT THE CRC CODE SHOULD BE 

e127) : 3487 ite ERR_CHK_CRC () ‘NOW SEE IF THE GENERATED CRC CODE IS THE SAME 

21273 : 9489 begin 'REPORT THE ERROR IF NOT THE SAME 

21276 : 9490 ERRDF (133 SYNC, pDUMpER? 

21275 : 9491 PRINTB (THR_FM wp 64, WRD_8); 

21276 : 949 PRINTB (FMT 1749." .B Seen. -A_GEN, .P_GEN); 

21277 : 949 PRINTB (FMT@ 20. :B-CAL. .A_CAL. .P™CAL);: 

21278 : 9494 DODU_FL = ONE: 

21279 ;: 9495 end; 

21280 ; 9496 

21281 ; 9497 ENDSUB; ‘END OF SCOPE LOOP 

21282 ; 9498 end; 

21283 : 9499 

21284 : 9500 if .DODU_FLG IS_SET ‘DROP THIS UNIT IF THE DODU FLAG GOT SET 

sist? 3 9501 then 
1286 ; 950 begin 

21287 : 950 DODU (.ML_LUN); 

21288 ; 9504 DOCLN; 

21289 ; 9505 end; 

21290 : 9506 
1291 : 9507 ENDTST: 
1295 
1296 .SBTTL $750 
1300 074216 004167 107674 $750: JSR R1,$SAVES ; 9415 
1301 074222 005005 CLR RS > DODU.FLG 9450 
130 074224 005004 CLR RG : PAT.SEL ode 
1302 990588 1S5h9 9 16rse 3 «= bse $0, am.negeso : PET 
1308 074236 016703 tart MOV ML. DUT ,R3 
1306 ZML4 14-May-1981 13:48:54 TOPS 
Ht 24 : 14-May-1981 13:05:08 PA:< 
1309 074242 0427 3 177770 BIC #177770 R3 
1310 074246 1427 7 116740 BICB afl .RE G+40 
1311 074254 150377 116734 B1SB RS ant REG*40 
131¢ 7% 91040 MOV Ra Rae : PAT.SEL,* 9457 
132 Lb, 30 074270 ADD BF «R3) PC 
1315 ore % 868590 2s: . WORD $533 
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SEQ 0433 
1 tiie “WORD S598 
1 ‘ - 
“WORD  6$-2$ 
1 O12 i 177777 3$: OV #21.R1 ; *, TST.PAT 9461 
1 912701 052525 4$: MOV #32525,R1 ; *,TST.PAT 9464 
1 019703 125252 S$: MOV #-52526,R1 ; *,TST.PAT 3467 
1 O12701 070707 6$: MOV #707071 ; * TST.PAT 3470 
1 010208 8$: nov R2,R3 : CNT,* 9474 
1 . 
1 74334 01016 011600 mov R1 .10.BUF (R3) TST.PAT.# eens 
213 1 Ore see 09622 000377 CM R2,4377 : CNT,* 
1335 074350 p02 767 121514 JSR PC «GD. BLK. XFER : 9476 
1 % 074354 012777 1 116572 MOV #6 -@AL -REG ; 
ree Grease Nees" ae 
1337 Ore3ro 005067 116552 CLR A.GEN F 94679 
1338 074374 005067 116550 CLR B.G ; 948¢ 
1g G7eese BERS? HES48 an | se 
: : 9483 
1341 074410 005067 116526 CLR B. CAL F 
31342 074414 005067 11e858 CLR P. CAL ; 9484 
21343 074420 004767 120166 JSR PC, CAL.CRC ne ; 9685 
91344 074406 004767 120562 JSR PCCERR. CHK .C : 
1346 074432 103054 BCC 10$ aes 
1348 096436 000008 TSoRD 305 ' 
1349 074440 010526 “WORD SYNC 
1350 074442 024060 “WORD  DUMPE oat 
1351 074444 012746 006360 MOV #WRD.8.-(SP) F 
135¢ 074450 012746 007224 MOV MURD.64,-(SP) 
1353 074454 012746 006 MOV #WRD.5,~(SP 
1354 07 012746 006034 MOV #THR.FAT,=(SP) 
1386 Ore — MOV SPCRO® ia 
74472 106414 TRAP «14° 
1388 074474 016716 11645 MOV P. GEN, (SP) : 9492 
1359 0745 16746 11644 MOV A. GEN, =(SP) 
1366 bre bree 11644 jy MOV B.GEN,-(SP) +p aie 15:48:54 aes 
: 14-May-1981 13:05:08 PA:< 
1 ; 
136 
1 74510 012746 005412 MOV #FMT.19,-(SP) 
1365 074514 91 746 000004 MOV #4,-(SP5 
1366 Me 2 Woeete TRAP ated + 8 
We tse Slee ie my Cee, : “ 
745 16746 11 MOV B.CAL.-(SP) 
1371 74540 i 005469 MOV HEMT 20.=(SP) 
1372 074544 012746 MOV #4,-(SP 
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; Routine Size: 
: Maximum stack 


; Routine Size: 
; Maximum stack depth per invocation: 


129 word 


s 
depth per invocation: 


6 words 


19 words 


0 words 
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1426 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
16 ri Jena) 1981 13:05:08 em 5A ey ae (101) 
1429 ;: 9509 ! 

1430 ; 9510 BGNTST; 

1431 : 9511 

1432 ; g2i¢ 'e¢ 

14 ; 9913 i TEST NUMBER: TST 51 

1435 ; 9319 i TEST NAME: CORRECTABLE ERROR SYNDRONE DECODE TEST 
1437 : 3319 i TEST DESCRIPTION: 

1438 : 9518 i TEST SYNDRONE DECODE AND ERROR 

1439 : 9519} CORRECTION TO DECODE AND CORRECT 

1440 : 9520 } SINGLE BIT AND MULTIPLE BIT 

144) ; 9321 CHANNEL ERRORS BY: 

zices : 9598 i 1. VIA ECC DIAG MODE FORCE SYNDRONE 
1464 : 9524 } BITS TO DECODE SINGLE BIT AND 

g14s ; 9969 MULTIPLE BIT CHANNEL ERRORS. 

g1e47 : 99¢7 i 2. THEN DO A MASS BUS READ TRANSFER 
1648 : 9528 | AND EXAM THE 10 BUF FOR CORRECT 

e449 : 9529 i BIT COMPLIMENTING. 

1450 : 9530 | 

31451 : 9531 | IMPLICIT INPUTS: 
145¢ 3 993¢ i a 

21453 : 9533! A “VECTOR OF 256 WORDS WHERE DATA 

21454 : 9534! FOR MBUS READS AND WRITES TRANSFERS 

21455 : 9535} IS FOUND. 

$1636 3 9536 =! 

1457 : 9537} 

21458 : 9538 i-- 

21459 : 9539 

21460 ; 9540 local 

21461 : 9541 BITS_XFERED; ‘POINTS TO THE CHANNEL BEING TESTED 

sees : 9543 BAI = ONE; 'BEFORE WE START LETS CLEAR OUT THE ML11°S 

21464 : 9544 I0_BUF = ZEROES: iGOOD BLOCK BY WRITTING ZEROES TO IT 

31469 : 9545 GD-BLK_XFER (); 

1466 : 9546 MLUS1 = write: 

1467 : 9547 TIME_OUT_LOOP: 

1468 : 9948 BITS-XFERED = -1; 'RESET THE CHANNEL POINTER 

1470 : 9550 incr PLOG from 0 to 5 do 'TEST ONE CRC GROUP '6 ARRAY WORDS’ 
1233 | geqp—s«éegi= 

1258 : 955 incr CHANNEL from 0 to 35 do 'TEST 36 BITS IN EACH ARRAY WORD 
1474 ; 9554 begin 

1475 : 9555 BGNSUB; 'START OF SCOPE LOOP 

1476 : 955 CLR_MBUS; iCLEAR THE DRIVE 

1677 : 9597 BITS_XFERED = .BITS_XFERED + 1; i INCREMENT THE CHANNEL POINTER 
1479 : 9559 incr CNT from 0 to 255 do 'CLEAR THE FIRST CRC GROUP IN THE 10_BUF 
1480 ; 9560 10_BuF C.CNT) = ZEROES; 
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SEQ 0436 

1482 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
148 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BL1.7 (101) 
1485 ; 9561 

1486 ; 956 FORCE_REM (. PLOG, . CHANNEL) ; 'FORCE THIS BIT IN THIS WORD IN ERROR 

1487 : 956 GD_BLR_XFER (); ‘SET UP A GOOD BLOCK TRANSFER 

1488 ; 9564 ECt_DIS = ZERO: 'CLEAR ECC DISABL 

1489 ; 9565 MLCS1 = read; 'DO A READ TRANSFER 

1490 : 9966 TIME_OUT_LOOP; iWAIT FOR THE TRANSFER TO COMPLETE 

1498 ; 9368 if no not FIND_COMP_BIT (.BITS_XFERED) 'SEARCH THE I0_BUF FOR THE COMP BIT 

° en 

149% : 9570 begin 'REPORT AN ERROR IF THIS BIT IS NOT COMP 

1495 : 9571 ER DF (134, SYNC. DUMPER); 

14% ;: 957 PRINTB (THR_FMT, WRD_74, WRD_75, PHR_1); 

1497 : 957 PRINTB CMT “21, .PLOG, . CHANNELS; 

1498 : 9574 end; 
31499 : 9575 

21300 : 9376 incr WRD_CNT from 0 to 12 do 'SEE IF ANY OTHER BITS GOT COMP'ED 

3130 ; 9378 it .10_BUF C.WRD_CNTJ neq ZEROES !TEST THE I0_BUF FOR ZEROES 

21504 : 9580 begin 'REPORT AN ERROR IF ANY OTHERS ARE SET 

21505 : 9581 ERRDF (135, SYNC, DUMPER); 

31506 : 958 PRINTS (FOR_FMT, WRD_61, WRD 74, WRD_75, PHR_S); 

1507 : 958 PRINTB (FMT_21, .PLOG, .CHANREL); 

1508 : 9584 end; 

1509 : 9585 

31310 ; 9586 ENDSUB: 'END OF SCOPE LOOP 

1511 ; 9587 end; 

siaig 3 9588 

1513 : 9589 end: 

1514 ; 9590 

1515 : 9991 BITS_XFERED = -1; 'RESET THE CHANNEL POINTER 

1319 : 9593 incr CHANNEL from 0 to 35 do 'TEST 36 CHANNELS FOR MULTIPLE BIT ERRORS 

1518 ;: 9594 poate 

1519 : 9595 BGNSUB; ‘START OF SCOPE LOOP 

1520 : 95 CLR_MBUS; iCLEAR THE DRIVE 

13 1: 9997 BITS_XFERED = .BITS_XFERED + 1; ‘INCREMENT THE CHANNEL POINTER 

15 g : 9599 incr CNT from 0 go _20 'CLEAR THE FIRST CRC GROUP IN THE 10_BUF 

13 : : 9600 10_BUF C{.CNT) = TEROES; 

1526 : 9608 FORCE REM (58, .CHANNEL); {FORCE ALL 6 BITS IN THIS CHANNEL IN ERROR 

1527 ; 960 BLR_XFER (5; iSET UP A GOOD BLOCK TRANSFER 

1528 : 9604 ect b DIS = ZERO; iCLEAR ECC DISABLE 

1399 : 9605 mcs! = read ‘DO A READ TRANSFER 

1330 : 9606 ME_OUT T LOOP; iWAIT FOR THE TRANSFER TO CMOPLETE 

133 : 9608 incr BIT_OFFSET from 0 to 180 by 36 do 'SEE IF EVERY 36TH BIT GOT COMP’ED 

1% : 9610 if not FIND_COMP_BIT (.BITS_XFERED + .B1T_OFFSET) 'SEARCH THE I10_BUF FOR THE COMP'ED BITS 

e en 
1536 : 9612 begin ‘REPORT AN ERROR IF ANY OF THE BITS ARE NOT COMP°ED 
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; SEQ 0437 


sML4 14-May-1981 13:48: TOPS=20 Bliss-16 V2(212) 
3 14-May-1981 13:05: PA: <NEALE>ML4.BL1.7 (101) 


a ai aM SRTe Ure 7e~ ORD 75, PHR_1) 
PRINTB (FMT-21, 58, .CHANNEL); ~ — 
end; 
incr WRD_CNT from 0 to 12 do 'ALSO SEE IF ANY OTHER BIT GOT COMP*ED 
it .10_BUF C.WRD_CNT) neq ZEROES 'TEST THE I0_BUF FOR ALL ZEROES 
en 
begin 'REPORT AN ERROR IF ANY OTHERS ARE COMP"ED 
ERRDF (135, SYNC. DUMPER);: 
PRINTB (FIV_FMT, WRD_61, WRD_74, WRD_75, WRD_12, WRD_67); 
PRINTB (FMT~21, 58, .CHANNELY; 
end; 


ENDSUB; 'END OF SCOPE LOOP 
end; 
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ENDTST; 
.SBTTL $151 
107256 JSR R1,$SAVES 
000010 #10, aM .REG+40 
11472 BUF 
12121 PC. GD.BLK.XFER 
MOV #61, aML REG 
116 : aM. -REG+50 
177777 MOV #=1,R5 : *, BITS. XFERED 
RG : PLOG 
r ; CHANNEL 
#40, aML .REG+40 
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BIVOAS AS 


T1664 
177770 
000007 


116260 


i 


; BITS. XFERED 
R1 ; CNT 
Ri Re ; CNT,* 
10. BUF (R2) 

; CNT 
R1,4377 ; CNT,* 
R4,-(SP) ; PLOG,* 
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SEQ 0438 

59% ZML4 14-May-1981 13:48:54 TOPS 
395 : 14-May-1981 13:05:08  PA:< 
29 074762 010346 MOV R3,-(SP) : CHANNEL, * 
598 074764 004767 120612 JSR PC. FORCE .REM 
599 0747 004767 121074 JSR PC, GD.BLK.XFER : 9563 
600 074774 142777 002 116272 BICB #2. aML.REG+120 : 9564 
601 979002 012777 71 116144 MOV a7i -afi REG ; 9565 
602 075010 105777 116210 5$ TSTB = @ML. REG*5 
603 075014 100375 BPL 5$ 
604 375016 010346 MOV R5,-(SP) : BITS. XFERED,* 9568 
605 075020 90476 120404 JSR PC. FIND.COMP.BIT 
606 075024 005726 TST (SP) + 
607 075026 RO 
608 075030 103432 BLO 
609 075032 104455 T 5 : 9571 
610 075034 000206 . WORD 
611 075036 010526 ;WORD SYNC 
612 075040 024 “WORD DUMPER 
613 075042 012746 007366 MOV #PHR.1,-(SP) : 9572 
614 075046 012746 007330 MOV #WRD.75,-(SP) 
615 075052 012746 007316 MOV #WRD.74.=(SP) 
616 075056 012746 034 MOV ATHR.FMT,-(SP 
617 075062 012746 MOV #4,-(S 
618 075066 010600 MOV SP,RO : SP,* 
619 075070 104414 TRAP 4 
620 075072 010316 MOV R3. (SP) : CHANNEL, * 9573 
621 075074 010446 MOV R4,-(SP) + PLOG,* 
622 075076 012746 005534 MOV #FMT.21,-(SP) 
623 075102 012746 MOV #3,-(SP) 
624 075106 010600 MOV ‘ 3 SP,* 
625 075110 104414 TRAP 
626 07511 062706 000020 ADD #20,SP ; 9570 
62 075116 005001 6$: CLR R1 t WRD.CNT 9576 

8 075120 01010 7$: MOV R1,R2 + WRD.CNT,* 9578 
629 075122 00630. ASL 2 
6 075124 005762 011600 TST 10. BUF (R2) 
631 075130 0014 BEQ 8 
632 075132 104455 TRAP 5 : 9581 
633 075134 207 «WORD 207 
634 075136 010526 “WORD SYNC 
635 075140 024060 “WORD DUMPER 
636 075142 01 007472 MOV #PHR. 5 -(SP) : 9582 
65 075146 01 007330 MOV #WRD.75,-(SP) 
638 075152 01 007316 MOV #WRD.74.-(SP) 
639 075156 1 007174 MOV #WRD.61.-(SP) 
640 0751 1 006046 MOV #FOR.FMT,=(SP) 
641 075166 12746 00000 MOV #5,-(S 
64e 075172 01 MOV SP.RO : SP,* 
643 075174 104414 TRAP ‘14 
644 075176 010316 MOV R3, (SP) : CHANNEL, * 9583 
645 073 10446 MOV : PLOG,* 
646 075202 012746 005554 MOV #FAT.21,-(SP) 
647 075 12746 3 MOV 3,-(SP5 
648 075212 01 MOV ‘ : SP,* 
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14 

#22,SP 
R1,414 
(SP)+,(SP)+ 


#7 ,@ML .REG+40 
05 GA. .ES*KO 


R1 
R] oR2 


10.BuF (R2) 
R1 #26 
10$ 


: 
R?,-(SP) 
(SP) 
R 


13$ 
55 


206 

SYNC 

DUMPER 

#PHR. 1,-(SP) 
#WRD.75,-(SP) 





(SP) 
FIND .COMP.B1T 





14-May-1198 
14-May-198 


as 


WRD.CNT 
WRD.CNT,* 


; CHANNEL 
; CHANNEL ,* 


; PLOG 
3; PLOG,* 


; *,BITS.XFERED 
CHANNEL 


; BITS. XFERED 
; CNT 
; CNT,* 


3 CNT 
3; CNT,* 


+ CHANNEL, * 


.OFF 
“OFFSET, * 
S.XFERED,*® 
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sML4 


13$: 


14$: 


15$: 


#URD.74,-(SP) 
#THR.FMT,=(SP) 
#4,-(SP) 


1 

R3, (SP) 

#72,-(SP 

#EMT.21 
SP 


) 
-(SP) 
#3,-(SP5 
SP;>RO 


14 
#20,SP 
#44.R2 
R2, 4264 
12$ 

R 

R1,R2 


R 
12,0UF (ne) 


#WRD.61,-(SP) 
#FIV.EMT,~(SP) 
#6.=(SP) 


P) 
1,-(SP) 
(SPS 
4s 
#24,SP 
R1,414 
14 
(SP)+, (SP)+ 
67 


RO 
9$ 


‘ 
R3 443 
oS 
PC 


; SP,* 


CHANNEL , * 


SP,* 


* .BIT.OFFSET 
BIT.OFFSET,* 


3: WRD.CNT 
; WRD.CNT,* 


SP,* 


CHANNEL , * 


SP,* 


WRD.CNT 
WRD.CNT,* 


CHANNEL 
CHANNEL , * 





SEQ 0440 


48:54 TOPS 
7:05:08 PA:< 


9615 


9593 


9507 


C 
$15 


BS 
iH 
us 


roe 
76 
764 
765 
7 
771 
772 


2 075672 


85 0753702 


NNN NN 
— 


32 


1 
1 
176 
1 
1 
1 
1 
1 
17% 
1 a4 075672 
178 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


2 
2 
2 
2 
2 
2 
2 
2 
2 


3 


783 075676 
757 


TRLACO ML-11 LOGIC TEST 


MACRO 1113 


004767 176736 
104466 


006000 
103773 
000207 


9632 


! <BLF /PAGE> 


a 
18-MAY-81 08:17 PAGE 15° 


3ML4 


; Routine Size: 271 wo 


+ Maximum stack depth — ” tewecation: 


-SBTTL 151 
T51:: 
1$: JSR PC,$T51 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 


> Maximum stack depth per invocation: 


14-May-1981 13:48:54 TOPS 
14-May-1981 13:05:08 PA:< 
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14-May-19 $ 


81 13:4 TOPS-20 Bliss-16 V2(21 
14-May-1981 13:0 


54 2) 
:08 PA:<NEALE>ML4.BL1.7 (102) 
1 

BGNTST: 


'e¢ 
! TEST NUMBER: TST 52 
TEST NAME: UNCORRECTABLE ERROR SYNDRONE DECODE TEST AT CHANNELS > 35 


TEST DESCRIPTION: 
TEST SYNDRONE DECODE TO DETECT BUT 
NOT CORRECT UNCORRECTABLE CHANNEL 
ERRORS BY: 


1. VIA_ECC DIAG MODE FORCE SYNDRONE 
BITS TO INDICATE CHANNEL ERRORS 
AT WORDS OF A_CRC GROUP BUT AT CHANNELS 
GREATER THAN 35. 

2. DO A MASS BUS READ TRANSFER 

3. THEN EXAMIN THE IO BUF FOR NO 
BITS COMPLIMENTED AND ECH AND 
BITS SET 

IMPLICIT INPUTS: 


10_BUF 
A “VECTOR OF 256 WORDS WHERE DATA 
6 ghee READS AND WRITES TRANSFERS 


local 
0G; !INDEX INTO REMAINDER TABLE ‘REM_TBL* 
BAI = ONE; 'FIRST LETS CLEAR THE ML11°S GOOD BLOCK 
10_BUF = ZEROES: 'BY WRITING ZEROES TO IT 
GD-BLK_XFER (); 
MLUS1 = write; 
TIME_OUT_LOOP; 
saoed ~~ sn from 0 to 6 do 'TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES 
cane L0G _SEL from 0 to 6 of 'SELECT A PLOG VALUE 
[0] : ‘POINTS TO WORD O IN THE CRC GR 
PLOG = 0; — 
os 1ooMay 19R1 Tee oB see TOpS—SO et iss=16 ¥2(212) 
ay- 248: - iss- 
14-May-1981 13:08:08 PRC SNEALESML Loe 9 (102) 


Safes EE, 
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SEQ 0443 
1855 
1856 : 9685 PLOG = 1; 
1857 ; se] 
1858 : 9687 (2) : 'POINTS TO WORD 2 IN THE CRC GROUP 
1859 : 96 PLOG = 2; 
1860 ; 9689 
1861 : 9690 (3) : 'POINTS TO WORD 3 IN THE CRC GROUP 
1908 3 9691 PLOG = 3; 
1863 : 969 
1864 ; 969 (4) : ‘POINTS TO WORD 4 IN THE CRC GROUP 
1865 : 9694 PLOG = 4; 
1866 ; 9695 
1867 : 9696 (5) : ‘POINTS TO WORD 5S IN THE CRC GROUP 
1868 ; 9697 PLOG = 5; 
1869 : 9698 
1870 : 9699 (6) : 'POINTS TO ALL 6 WORDS IN THE CRC GROUP 
1871 : 9700 PLOG = 58; 
$1898 3903 mes 
21874 : 970 incr CHANNEL from 36 to 62 do 'TEST AT CHANNELS > 35 TO FORCE UNCORRECTABLE ERROR 
21875 : 9704 begin 
21876 : 9705 BGNSUB; ‘START OF SCOPE LOOP 
g1877 : 9706 CLR_MBUS; iCLEAR THE DRIVE 
21879 : 9708 incr COUNT from 0 to 255 do 'CLEAR THE FIRST CRC GROUP IN THE I0_BUF 
31880 ; 9709 10_BUF {.COUNT) = ZEROES; 
21882 : 9711 FORCE_REM (.PLOG, .CHANNEL); 'FORCE UNCORRECTABLE ERROR AT THIS WORD AND CHANNEL 
21883 : 971 GD_BLR_XFER (); iSET UP A GOOD BLOCK TRANSFER 
21884 : 971 Ect_DIS = ZERO: iCLEAR ECC DISABLE 
21885 : 9714 MLCS1 = read; iDO A READ TRANSFER 
$1880 ; 9715 TIME_OUT_LOOP; iWAIT FOR THE TRANSFER TO COMPLETE 
1888 ; 9717 if mot ((.ECH_ERR) and (.UNC_ERR)) 'SEE IF THE ERROR WAS DETECTED 
21889 : 9718 then 
1890 : 9719 begin ‘ERROR IF NOT DECTECTED 
1891 : 9720 ERRDF (136, SYNC, BUMPER) : 
1892 : 9721 PRINTB (FOR_FMT, WRD_67, WRD_10, WRD_76, WRD_9); 
189 : 972 PRINTB (FMT—21, .PLOG, .CHANNELS; 
1894 ; 972 end; 
31895 : 9724 
sie 3 4044 incr CNT from 0 to 12 do 'SEE IF ANY CORRECTION WAS DONE 
$1898 ; 97 , if .10_BUF C.CNT] neq ZEROES ‘SEARCH THE IO_BUF FOR ALL ZEROES 
2 en 
1900 ; 9729 begin ‘REPORT AN ERROR IF ANY CORRECTION WAS DONE 
31901 : 9730 ERRDF (137, SYNC, DUMPER): 
1908 : 9731 PRINTB (FIV_FMT, WRD_61, WRD 74, WRD_75, WRD_12, WRD_67): 
1903 : 9730 PRINTS (FMT~21, .PLOG, .CHANNELS; 
1904 ; 97 end; 
1905 : 97 
1906 : 9735 ENDSUB; ‘END OF SCOPE LOOP 
1907 ; 9736 end; 
1908 :ML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v3 (212) 
1908 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (102) 
1911 ; 9737 
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ENDTST; 
106204 
pede 
113654 
120140 
000061 
115262 


075756 


000001 
000002 
000003 
000004 
000005 


000072 
000044 


000040 
115520 
177770 
000007 
115114 
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115274 


115216 


115136 


115120 


$752: 


2$: 


- SBTTL 
JSR 


$752 

R1,$SAVES 

wi aL .REG+40 
PC, GD.BLK.XFER 
#61, aML.REG 
@ML -REG+50 


R 
= 
Ze (96) -PC 


1 
#72,R3 
#44 ,R4 


pga seen 
mi BUT Re, 

#7, @ML .REG+40 
Real .REG*40 


R1 oR2 


R2 

10.BUF (R2) 
R1,4377 

13$ 

R3,-(SP) 
R4.=(SP) 

PC: FORCE .REM 
PC.GD.BLK.XFER 


See Ge Se Fe Fe Be Fe Be Be Be Be Fe Be Be Be 


PLOG.SEL 
PLOG.SEL,* 


PLOG 

* ,PLOG 
* ,PLOG 
*,PLOG 
*,PLOG 
* ,PLOG 


* ,PLOG 
* , CHANNEL 


COUNT 
COUNT ,* 


COUNT 
COUNT ,* 


PLOG,* 
CHANNE 


L.* 


as 


SEQ 0444 
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SEQ 0445 
1975 076136 142777 900002 115130 BICB #2 @ML .REG+120 : 9713 
1976 O76 144 012777 071 115002 MOV 471, aML.REG : 9714 
1977 076152 105777 115046 148:  TSTB *REG+S 
1978 97615 1 3 BPL 
1979 076160 132777 000100 115046 BITB #100, aML.REG+60 : 9717 
1980 0761 1403 BEQ 15$ 
1981 076170 005777 115170 TST @ML .REG+210 
198¢ 76176 1004334 BMI 16$ 
1 76176 104455 15$: TRAP 5 : 9720 
1984 07 900210 «WORD 210 
1985 076202 010526 [WORD SYNC 
1986 07 024060 “WORD DUMPER 
1987 07 012746 006374 MOV #WRD.9,=(SP) : 9721 
1988 07621 012746 007340 MOV MRD. 76,-(SP) 
21989 076216 012746 0064 MOV #WRD.10,-(SP) 
21990 076222 012746 007240 MOV #WRD.67,-(SP) 
1991 076226 012746 006046 MOV #FOR.FMT,-(SP) 
2199 0762 > 012746 000 MOV #5,-( 
2199 76636 010600 MOV SP.RO : SP,* 
21994 076240 104414 TRAP ‘14 
21995 076242 010416 MOV R4, (SP) : CHANNEL, * 9722 
21996 076244 010346 MOV R3,-(SP) : PLOG,* 
21997 076246 012746 005534 MOV #FAT.21,-(SP) 
21998 076252 012746 000003 MOV #3,-(SP5 
1999 076256 010600 MOV SP.RO : SP,* 
22000 076260 104414 TRAP ‘14 
22001 076262 062706 000022 ADD #22,SP : 9719 
2 076266 005001 16$: CLR 1 + CNT 9725 
22003 076270 010102 17$: MOV R1,R2 : CNT,* 9727 
22004 076272 006302 ASL 2 
22005 076274 005762 011600 TST 10. BUF (R2) 
22006 076 001456 BEQ 18$ 
22007 076302 10445 TRAP = 55 : 9730 
22008 076304 000211 .WORD 211 
22009 076306 010526 “WORD SYNC 
22010 076310 024060 “WORD DUMPER 
22011 076312 012746 007240 MOV MWRD.67,-(SP) ; 9731 
22012 076316 012766 26 MOV #WRD.12,-(SP) 
22013 076322 012746 007330 MOV MWRD.75,-(SP) 
22014 076326 012746 007316 MOV MRD. 74,-(SP) 
S501e 76836 O15746  NomdeS MOV MFIVIEME,-¢SP) 
$5019 076342 oi5e8 MOV #6,-(SP)° 
22018 ZML4 14-May-1981 13:48:54 TOPS 
22020 3 14-May-1981 13:05:08 PA:< 
1 076346 010600 MOV SP RO : SP,* 
22088 976330 104414 TRAP ‘14 
2023 076352 010416 MOV R4, (SP) : CHANNEL, * 9732 
2024 076354 10346 MOV R3 = ($P) + PLOG,* 
3 076 56 012746 005534 MOV #FAT.21,-(SP) 
Boe 16668 . mov P’RO SP 
e e -* 
$0 $ oats Hest 000024 MDD $36 sP 9729 
20 076376 isa 18$: INC ‘ CNT 9725 
2031 076400 020127 000014 CMP R1,414 : CNT,* 


CZMLACO ML-11 LOGIC TEST 
$152 


2032 076404 
0335 0764 
07641 
22035 07641 
20 


mo—r 


Be 


9741 
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17$ 
CMP (SP)+,(SP)+ 
67 


R4 
000076 CMP Rs #76 


R5 
000006 CMP & a6 


177304 JMP 
19$: RTS PC 


3; Routine Size: 175 word 


s 
3; Maximum stack depth per invocation: 


152 -SBTTL T52 
177236 1$: JSR PC,$T52 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


; Routine Size: 6 words 


3; Maximum stack depth per invocation: 


! <BLF /PAGE> 


18 words 


0 words 


3 CHANNEL 
; CHANNEL, * 


3 PLOG.SEL 
: PLOG.SEL,* 


SEQ 0446 


9704 
9733 


9703 


9675 


9631 


9738 
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1 
9743 BGNTST; 


9745 S++ 
9746 |! TEST NUMBER: TST 53 


TEST NAME: MULTIPLE CHANNEL ERROR SYNDRONE DECODE TEST 


TEST DESCRIPTION: 
TEST SYNDRONE DECODE TO DETECT BUT NOT 
—-— MULTIPLE CHANNEL 


1. VIA_ECC DIAGNOSTIC MODE FORCE SYNDRONE 
BITS TO INDICATE MULTIPLE CHANNEL ERRORS 
BY ASSIGNING CRC_A EQUAL 10 CRC_B 


DO A MASS BUS READ TRANSFER 


3. THEN EXAMIN THE I0_ BUF FOR NO BITS 
COMPLIMENTED AND ETH AND UNC BITS SET 


IT INPUTS: 

10_BUF 

A_ VECTOR OF 256 WORDS WHERE DATA 
+ a MBUS READS AND WRITES TRANSFERS 


SEQ 0447 


MMMM FO 


Sea eeeseseee 


Be De Se Se Se Be Ge Fe Be Be Se Se Ge Fe Be Se Se Ge Se Be Ge Fe Fe Be Ge Ge Ge Ge Ge Be Se Be Ge Se Se Ge Se Ge Ge Ge Se Se Se Go Se Ss Fe Se Ge Ge Ge Se Se Ge 
Ss 
on 
oO 


MOMINUNRoRoforoTnnornnn 


33 


BUSERFUNSLSVOVRARAVLSSaVSARUVs2sSSVKARASLS 


IMPLIC 


so 


9774 PLOG; !INDEX INTO REMAINDER TABLE ‘REM_TBL* 


9776 BAI = ONE; 'FIRST LETS CLEAR THE ML11°S GOOD 
9777 10_BUF = ZEROES; 'BLOCK BY WRITING ZEROES TO IT 
9778 GD _BLK_XFER (); 

9779 mLtS1 = wr fog: 


POPIPOPOPIPOPOPOPOPOPaPOMONGNONoNONOPONONPONPONofoNononoNoNononongnofonofory 
ENA NTT AT TNT NEAT ENTE TNT NT ANT DEEN ET ETT 
me me mek mk a mk ag a as a me a ak ag nd wd at ot = ot 2 et SS Ss SS 2 es SI SS 


a TIME _OUT_L 
3S a ae from 0 to 6 do !TEST SYNDRONE DECODE AT 7 DIFFERENT PLOG VALUES 
97; 
is case ee from 0 to 6 of 'SELECT A PLOG VALUE 
se 
978 
9788 (0) : !POINTS TO CR 
9789 bL0G = 0: POINTS TO CRC WORD 0 
9791 {1} : !POINTS TO CRC WORD 1 
fa PLOG = 1; 
MLS 14-May-1981 13:48:54 TOPS-20 Bliss-16 V2(212) 
22 1e-may=1981 13:05:08 PAT SNEALESMLLSBL I 9 t108) 
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139 
140 ; 9794 (2): 'POINTS TO CRC WORD 2 
141; 9795 PLOG = 2; 
16e : 9796 
143; 979 (3) : 'POINTS TO CRC WORD 3 
144: 9798 PLOG = 3; 
145 ; 9799 
146 ; 9800 (4) : ‘POINTS TO CRC WORD 4 
147 ; 9801 PLOG = 4; 
22148 : 9808 
149 : 980 (5) : 'POINTS TO CRC WORD 5 
150 : 9804 PLOG = 5; 
151: 9805 
158 ; 9806 (6) : 'POINTS TO ALL 6 WORDS IN CRC GROUP 
153; 9807 PLOG = 58; 
22154 : 9808 tes; 
2155 : 9809 
2156 : 9810 incr CHANNEL from 1 to 35 do 'TEST 35 CHANNELS STARTING AT CHANNEL 1 
187 ; 9811 peain 
22158 : 9B1¢ BGNSUB; ‘START OF SCOPE LOOP 
22199 ; 9813 CLR_MBUS; iCLEAR THE DRIVE 
22161 : 9815 incr COUNT from 0 to 255 do !CLEAR FIRST CRC GROUP IN THE I0_BUF 
$269 : 9816 10_BUF C.COUNT) = ZEROES; 
2164 : 9818 FORCE_REM (.PLOG, .CHANNEL); ‘FORCE ERR AT THIS WORD AND CHANNEL 
2165 : 9819 C_A-= .CRC_B; 'CRC_A EQL TO CRC_B CAUSES THE UNC ERROR 
2166 : 9820 GD _BLK_XFER 7): iSET“UP A GOOD BLOCK TRANSFER 
2167 : 9821 ct_DIS = ZERO: iCLEAR ECC DISABLE 
2168 : 982¢ MLCS1 = read; 'DO A READ TRANSFER 
3169 : 9823 TIME_OUT_LOOP; iWAIR UNTIL THE TRANSFER IS COMPLETE 
gei71 : 9825 if mot ((.ECH_ERR) and (.UNC_ERR)) 'SEE IF THE ERROR WAS DETECTED 
3172 : 9826 then 
22173 : 9827 begin ‘REPORT ERROR IF NOT DETECTED 
22176 : ERRDF (138, SYNC, DUMPER): 
22175 ; 9 PRINTS (FOR_FMT, WRD_77, WRD_10, WRD_76, WRD_9); 
32176 : 98 PRINTS (FMT~21, .PLOG, .CHANRELS; 
177 ; 9831 end; 
22178 : 9832 
i 19 9853 incr CNT from 0 to 12 do 'SEE IF ANY ERROR CORRECTION WAS DONE 
181 ; 9839 if .10_BUF C.CNT] neq ZEROES ‘TEST THE I0_BUF FOR ALL ZEROES 
e en 
S188 : 98 begin ‘ERROR IF ANY BITS GOT FLIPPED 
184 ; 98 ERRDF (139, SYNC, DUMPER); 
185 : 983 PRINTB (FIV_FMT, WRD_61, WRD_74, WRD_75, WRD_12, WRD_67); 
186 ; 9840 PRINTS (FMT~21, .PLOG, . CHANNELS; 
187 ;: 9841 end; 
189 9868 
189 : ENDSUB; ‘END OF SCOPE LOOP 
190 ; 9844 end; 
191 ; 9845 
198 ML4 14-May-1981 13:48:54 TOPS-20 Bliss-16 vg(212) 
193 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (103) 
195 ; 9846 end; 
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SEQ 0449 
196 : 9847 
bd ; 9848 ENDTST; 
.SBTTL $153 
976460 004167 1054 $753: JSR R1,$SAVES ; 9740 
26464 1 HA ? 10 114522 BI1S8 #10, aML.REG+40 : 9776 
076472 005067 11310 CLR 10. UF : 9777 
07647 004 $7 117366 JSR PC. GD.BLK.XFER : 9778 
10 076 e777 900061 114644 MOV #61, @ML REG ; 9779 
11 076510 105777 114510 1$: TSTB © @ML.REG+50 
2 iF 076514 100375 BPL 1$ 
13 076516 005005 CLR 5 : PLOG.SEL 9782 
14 076520 010504 2$ MOV R5.R4 : PLOG.SEL,* 9785 
15 076522 006304 ASL RG 
if 076524 066407 076530 ADD 3$(R4) ,PC 
17 076530 00001 3$: .WORD 4$-3$ 
218 076532 0000 [WORD 5$-3$ 
19 0765 0000 D s- 
2220 76536 0000 “WORD 7$-3$ 
221 076540 000044 “WORD gs- $ 
320@ 076542 00005 WORD - 
S 076544 “WORD 10$-3$ 
2224 076546 00500 4$: CLR R3 : PLOG 9789 
32 5 076550 900421 11$ : 9785 
2 226 076552 012703 000001 5$: MOV #1,R3 > *,PLOG 9792 
322 076556 00041 11$ : 9785 
228 076560 012703 000002 6$: MOV #2,R3 : *,PLOG 9795 
309 076564 00041 11$ : 9785 
2230 0 6966 012703 000003 7$: MOV #3,R3 > *,PLOG 9798 
231 0765 900419 11$ : 9785 
2032 076574 012703 000004 8S: MOV #4,R3 > *,PLOG 9801 
2238 076600 000405 11$ ; 9785 
22234 076602 012703 000005 9$: MOV #5,R3 : *,PLOG 9804 
2235 976606 909408 11$ : 9785 
2236 07661 01270 000072 10$: MOV #72,R3 : *,PLOG 9807 
223 076614 012704 000001 11$: MOV #1,R4 : *, CHANNEL 9810 
38 07 104402 12$: TRAP 2 : 9811 
239 07 1527 0 114364 BISB #40,aML.REG+40 ; 9812 
240 07 016702 114746 MOV mt bur R2 
241 076634 04 20 177770 BIC #177770,R2 
g0k¢ 076640 1427 114346 BICB =s-_- #7, AML. REG+40 
226 076646 15 377 114342 BISB R2.aML.REG+40 
SR Teme ATS 138: OV ORTGR2 : COUNT. * 3810 
46 76656 $0830 ASL R2 
4 IML4 14-May-1981 13:48:54 TOPS 
3 3 14-May-1981 13:05:08 PA:< 
50 076660 005062 011600 CLR 10. BUF (R2) 
51 976660 5201 INC 
3g 7 127 000377 CMP R1,4377 
53 0766 0 BLE $ 
54 076676 010346 MOV R3,-(SP) 
55 76676 104 MOV R4.-(SP) 
a9 renee See eet sive Sac RS Bia 
33 076710 040705 177760 BIC Se bO R 
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SEQ 0450 
59 076714 142777 77 114402 BICB 0s «#77 QML -REG+ 150 
76722 136071 10 B1S8 R ML .REG+ 
61 0767. 904767 M17156 JSR SD BLK. SS : 9820 
76732 14 114334 BICB REGeT 0 : 9821 
076740 012777 71 114206 MOV a1 oki : 9822 
364 0767 105777 114252 14$: STB @AL. areese’ 
2265 07675 100375 BPL 14 
2266 76754 132777 000100 114252 BITB #100,aML.REG+60 : 9825 
2268 Oreree easy 114374 mer ey REG*+210 
2269 $7679 900456 BMI 16$ 
670 76772 104455 15$: TRAP 55 : 9828 
71 076774 12 .WORD 212 
2 076776 010526 “WORD SYNC 
2273 077000 “WORD 
2274 077002 012746 006374 #WRD.9,-(SP) : 9829 
2275 077006 012746 007340 MOV MRD. 76,-(SP) 
32076 o7701e 012746 006406 MOV #WRD.10.=(SP) 
2 77016 012746 007346 MOV #WRD.77,=(SP) 
32078 977028 012746 00604 MOV #FOR.FMT,-(SP) 
279 077026 012746 00000 MOV 45,- 
22280 077032 010600 MOV SP.RO : SP,* 
$5582 77086 OV0G16 one. (SP) CHANNEL 9830 
oe é * 
22283 077040 010346 MOV R3,-(SP) : PLOG,* 
0 O12 46 005534 MOV #FAT.21,-(SP) 
2285 077046 012746 000003 MOV #3,-(SP) 
22286 077052 010600 MOV SP.RO : SP,* 
22287 077054 104414 TRAP 
22088 077056 062706 000022 ADD #22,SP ; 
077 005001 16$ CLR : CNT 9833 
22290 077064 o06305 17$ mov R1,R2 : CNT,* 9835 
077070 005766 011600 TST 10. BUF (R2) 
2293 077074 0014 BEQ 8$ 
2294 07707 106455 TRAP : 9838 
0771 9002 «WORD 213 
22096 077102 010526 [WORD SYNC 
22297 077104 024 “WORD 
2298 077106 012746 007240 V #WRD.67,-(SP) : 9839 
299 077112 012746 0064 MOV MRD. 12.-(SP) 
300 077116 012746 007330 MOV #WRD.75.=(SP) 
301 077122 012746 007316 MOV #WRD.74.-(SP) 
308 ZML4 14-May-1981 13:48:54 TOPS 
303 ; 14-May-1981 13:05:08  PA:< 
305 077126 012746 007174 MOV #WRD.61,-(SP) 
2306 Orr §s ot 746 006062 MOV #FIV.FMT,-(SP) 
30 77136 12746 000006 MOV #6,-(SP) 
308 077142 01 MOV SP.RO : SP,* 
340 OF7146 016616 nov nt. (sp) CHANNE 
° ® 
5 11 977150 rt 346 MOV (sp ) : PLO —_ 
2 12 77152 012746 005534 MOV Sear. 1,=(SP) 
SHE Briss Hees, ioe my eal sp 
e P - 
$31 077164 104414 TRAP A 
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16 orn 
a nM 


19 ovr 00 
a O77 02 


SEESSS 


nm 


sess 


004767 
104466 


006000 
103773 
000207 


9849 
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000024 
000014 


000043 
177372 
000006 
177256 


177210 


! <BLF /PAGE> 


18$: 


19$: 


208: 


3; Routine Size: 
3; Maximum stack 


T53:: 
1$: 


sML4 
3; Routine Size: 
: Maximum stack 


oe? 
R1,414 
aia 
6 


186 word 


s 
depth per invocation: 


6 word 


depth oer invocation: 


18 words 


0 words 


14-May-1981 13: $8: 54 
14-May-1981 13: 


SEQ 0451 
9837 
CNT 9833 
CNT,* 
9811 
9841 
CHANNEL 9810 
; CHANNEL ,* 
PLOG.SEL 9782 
PLOG.SEL,* 
9740 
9846 
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SEQ 0452 
gar0 ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
2 4 ; 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (104) 

22373 ; 9850 ! 
22376 : 9851 BGNTST; 
22375 : 985 
22376 : 9855 !++ 
33377 : 9894 TEST NUMBER: TST 54 
26379 ; 983 TEST NAME: SINGLE BIT ERROR SYNDRONE GENERATION & DECODE TEST 
22381 : 9858 | TEST DESCRIPTION: 
22382 : 9859 i TEST SYNDRONE GENERATION, SYNDRONE DECODE 
22385 ; 9860 : AND ERROR. CORRECTION FOR SINGLE BIT CHANNEL 
22385 : 9862 | 
22386 : 9863 | 1. CLEAR THE FIRST CRC GROUP IN THE 
30387 ; 9864 ; 10_BUF AND GOOD BLOCK TO ZEROES 
22389 ; 9866 2. VIA DATA DIAGNOSTIC MODE FLIP A BIT 
22391 : 9868 
22392 : 9869 | 3. THEN DO A MASS BUS READ TRANSFER AND 
22393 : 9870 EXAMIN THE 10 BUF FOR ZEROES INDICATING 
22594 ; 9871 ! THE CORRECTION WAS PERFORMED 
22596 3 9873 4. REPEAT WITH ALL SITS IN THE CRC GROUP 
22398 ; 9875 : IMPLICIT INPUTS: 
22400 : 9877} A “VECTOR OF 256 WORDS WHERE DATA 
32401 3 9878 FOR MBUS READS AND WRITES TRANSFERS 
22403 : 9880 } —— 
22404 : 9881 | PD_TEMP 
22405 : 9882 | A BIT VECTOR OF 16 BITS WHERE THE READ 
22406 ; 9883 PROM DATA IS STORED AND ACCESSED FROM. 
22408 : 9885 
22409 : 9886 i-- 
22410 ; 9887 
22411 ;: 9888 local 
22412 : 9889 DONE, ' DONE FLAG 
2413 9890 NIB_PAT : bitvector (4), iSTORAGE FOR SBE DATA GENERATED 
2416 : 9891 NIB~ SEL iPOINTER WHERE SBE IS TO BE WRITTEN 
2415 ; 989 GD_ORD_ iCOUNT OF WHERE GOOD "NIB_SEL' ARE FOUND 
23417 ; 9894 erat on from 0 to 5 do ‘FORCE SINGLE BIT ERRORS IN ONE CRC GROUP 
2419 : 98 
$5420 3 3897 incr BIT_CNT from 0 to 35 do ‘FORCE SBE*S AT EACH BIT OF A WORD 
nn dd 
2623 : 9900 incr CNT from 0 to 255 do 'CLEAR FIRST CRC GROUP OF 10 
22495 tmL4 ite IOS S.CMS © CEREESS 14-May-1981 13:48:54 a, =16 V2(212) 
P ond : ma ss 
426 : 14-May-19 1 13:05:08 es Ay ge (104) 
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SEQ 0453 

22427 
22428 ; 9902 
22429 : CLR_MBUS; 'CLEAR THE DRIVE 
22430 ; GD_BLK_XFER (); 'SET UP A GOOF BLOCK TRANSFER 
$e 1; 9905 mLUS1 = write; iDO A WaiTE 

43e 3 9906 TIME_OUT_LOOP; iWAIT UNTIL THE TRANSFER IS COMPLETE 
22433 : 990 CLR_ABUS; iCLEAR THE DRIV 
22634 : 9908 DONE = ZE iCLEAR THE 
22435 : 9909 GD_WRD_CNT = -1; iRESET THE COUNT 
30436 3 9910 MLB1 ="ZEROES; 'LOAD THE DATA DIAG REG (BITS. 0-38) 
22437 : 9911 MLD2 = ZEROES: iWITH ZEROES PAT AND CRC BIT 
22438 : 9912 MLE2 = %0'060000'; ‘ZEROES P, 
22439 : 991 NIB_SEL = .BIT_CNT/4; ‘CALCULATE THe NIBBLE WHERE THE SBE IS TO GO 
22440 : 9914 DAT_DM_XFER ();3 iSET UP A DATA DIAG MODE TRANSFER 
22441 : 9915 MLCS1 = write; iDO A WRITE TRANSFE 
sakes ; 9918 DELAY (ONE_US); ig] ve THE PROM DATA TIME TO GET OUT 
22446 : 9918 do 'FIND THE GOOD NIB AT THE TESTED WORD 
22445 ; 9919 begin 
2266 ; 9920 PD_TEMP = .MLPD; 'READ THE PROM DATA FOR THIS ARRAY WORD 
22448 : 992 if .PD_TEMP C.NIB_SELJ IS_SET 'IS THIS A GOOD NIBBLE 
22449 ; 992 then 
22450 : 9924 DAT_CLK = ONE 'IF NOT THEN GET THE NEXT ARRAY WORD 
22451 ; 9925 else 
22452 : 9926 begin 'ELSE SEE IF WE ARE AT THE TESTED WORD 
22453 : 9927 GD_WRD_CNT = .GD_WRD_CNT + 1; ‘UP THI 
22454 ; 9928 ‘AND SEE IF WE ARE DONE 
22455 : 9929 
22456 : 9930 if .GD_WRD_CNT eql .WRD_CNT then DONE = ONE else DAT_CLK = ONE; 
22457 ;: 9931 
22458 : 993 end; 
22459 : 993 
22460 ;: 9934 end 
22461 : 9935 until .DONE IS_SET; 'REPEAT UNTIL WE ARE DONE 
22462 : 9936 
22463 : 9937 NIB_PAT = ZEROE 'CLEAR THE SAVE LOCATION 
22464 : 9938 NIB-PAT C.BIT OFS i mod 4) = 'QND SET THE SBE IN THIS NIBBLE 
22465 : 9939 D1_TEMP = ZEROES: iLLEAR THE OTHER NIBBLES IN THIS ARRAY 
22466 : 9940 bs Tew TEMP = 'TO BE ZEROES PATTERN AND ZEROES CRC PATTERN 
22467 : 9941 © x 060000" ; 
22468 : 994 LD “lie WRD (.NIB_SEL, .NIB_PAT); 'LOAD THE SBE INTO THE SAVE LOCATION 
22469 : 994 RT LNG WRD: iAND WRITE THE SBE INTO THE DATA DIAG RES'S 
32470 : 9944 DAT~CLK ‘CLOCK THE SBE INTO THE ARRAYS MEMORY 

2471 : 9945 DELAY (ONE oss: i IT TIME TO WRITE INTO THE MEMORY 
22672 : 9946 BGNS UB; iSTART OF SCOPE LOOP 
22673 : 9947 R_MBUS; iCLEAR OUT THE DATA DIAG MODE XFERR 

247% : 9948 6b BLK_XFER QO: ‘SET UP A GOOD BLOCK TRANSFER 
ns eee Ano MeN ot esc 

Ps = rea : 

$0477 : 9951 Thad oe Sa 

sin8 : 995 incr CNT from 0 to 13 do 'SEE IF THE WAS CORRECTE 

2480 ;ML4 14-May-1981 15:48:54 + OP ee20 Bliss-16 v ae) 
481 : 14-May-1981 13:05:08 | PA:<NEALE>ML4.BLI.7 (104) 
sees : 9954 
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486 ; 9955 it .10_BUF C.CNTJ neq ZEROES 'TEST THE IO_BUF FOR ALL ZEROES 
486 : 9957 begin ‘ERROR IF THE ERROR WAS NOT CORRECTED 
487 : 9958 ERRDF (140 SYNC, DUMPER); 
22488 : 9959 PRINTB (THR_FMT, PHR_12, WRD_76, WRD_9) ; 
32489 : 9960 PRINTS (FMT~22, .WRD_CNT, .BIT_CNT); 
2490 ;: 996 end; 
22491 : 996, 
22492 : 996 ENDSUB; ‘END OF SCOPE LOOP 
22493 : 9964 end: 
gi Bang 
Ps end; 
igi ee 
22697 : 9968 ENDTST; 
22501 
22502 .SBTTL $154 
22506 077260 004167 104632 $154: JSR R1,$SAVES : 
22507 077264 162706 000010 SUB #10,SP 
22508 077270 005001 CLR R1 : WRD.CNT 
22509 O77e7e 905002 1$: CLR Re : BIT. CNT 
22510 077274 00500 2$: CLR R : CNT 
22511 077276 010304 3$: MOV R3,R4 : CNT,* 
22512 077300 006304 ASL R 
22513 077302 005064 011660 CLR 10.BUF (R4) 
22514 077306 005203 INC R3 : CNT 
22515 077310 020327 000377 CMP R3,4377 : CNT,* 
22516 077314 003770 BLE 
22517 077316 152777 000040 113670 BIS8B #40,aML.REG+40 ; 
22518 077324 016704 114252 MOV mL BUT R4 
22519 077330 042704 177770 BIC #177770,R4 
22520 077334 142777 000007 113652 BICB =: #7, AML. REG*+40 
30521 O77 342 150477 113646 BISB R4,aML.REG+40 
32@ 077 004767 116516 JSR PC.GD. BLK.XFER ; 
22508 eer) 012777 000061 113574 MOV #61 aM -REG : 
4 077360 105777 113640 4$: TSTB = @ML. REG*+5 
22525 100375 BPL 
22526 Or 152777 000040 113620 BISB8 #40,@ML.REG+40 : 
22527 077374 016704 114202 MOV ML bur R4 
22528 0776 042704 177770 BIC #177770,R4 
3529 O77 97740 142777 7 113602 BICB =: #7, AML. REG*+40 
150477 113576 BISB R4.aML.REG+40 
22331 O7reig 005066 CLR 2(§P) 3 DONE 
012716 1777 MOV 4-1, (SP) + *,GD.WRD.CNT 
$333 077406 005077. 113712 CLR aM -REG+170 : 
2534 077432 005077 113716 CLR @ML .REG+200 : 
2535 ZML4 14-May-1981 13:48:54 
S236 3 14-May-1981 13:05:08 
2538 077436 012777 060000 113670 MOV #60000, aML .REG+160 ; 
22539 077444 010246 MOV R2,-(SP) : BIT.CNT,* 
540 077466 012 46 000004 MOV #4.-(SP) 
2541 07745 004767 104274 JSR PC-:BLSDIV 
2542 077456 010005 MOV RO.R > *,NIB.SEL 
2543 077460 004767 114476 JSR PC. DAT.DM.XFER ; 
2544 077464 012777 000061 113462 MOV 461, aML REG : 
2545 077472 012703 000001 MOV #1,R > *, SSTMP2 
2546 077476 001411 5$: BEQ 8$ 
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113354 


000006 


113446 
000001 


111222 


113370 


SDLY ,R4 


#PD.T 
R4, 

R5,=(SP) 
#177770, (SP) 
#1,-(SP) 
PC BL$GT2 
#10,SP 

RO 

10$ 

4(SP) 
4(SP),R1 
10$ 
#1,6(SP) 
#20, aML.REG+120 
6(SP) #1 


R 
RO, (SP) 
R4,-(SP) 


#177770, (SP) 
#1,-(SP5 

(SP) ,=(SP) 
PC ,BLS$PU2 

1. TEMP 
be TEMP 
#60000,€2. TEMP 
22(SP) ,=(SP) 
PC,LD.LNG 


-WRD 
D1. TEMP ,@ML .REG+170 


EMP RG 
@ML .REG+230,PD. TEMP 
=(SP) 


CNT 
GD.WRD.CNT,WRD.CNT 
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o-oo 


=VW 


D2. TEMP, @ML .REG*+200 
£ 5 TEMP. OML -REG* 160 
#20, @ML.REG+1 : 

“ih : #,$STMP2 
LSDLY,R4 : *,S$STMP1 
26(SP) 

RG 
13$ 
R3 
12$ 
RAP 2 
113156 #40, @ML.REG+40 
MOV 


-oONNN 
UN 


Sess 


LE SINNN 


RF 


MIMI 


AAO 


es 


; SSTMP 
; SSTMP1 
; SSTMP2 


EEEeee TERS 
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; aM .R 
#71, aM. 
@ML -REG+50 
16$ 


RS 
R3,R4 


10, BUF (R4) 
18$ 


= 


ERSSNVSAEVSRRVGENVSERS 
WPRon 
SN 
™N 
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; SP,* 


1 
R2, (SP) ; BIT.CNT,* 
R1,-(SP) ; WRD.CNT,* 
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000043 
177030 
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! <BLF /PAGE> 


19$: INC 


208: ADD 


; Routine Size: 
; Maximum stack 


T54:: 
1$: 


; Routine Size: 


; Maximum stack depth per samenag ene 


R2,443 
19$ 

2$ 

R1 
R1,45 
20$ 

1$ 
#10,SP 
PC 


259 word 
depth per 


6 words 


4 
MACRO M1113 18-MAY-81 08:17 PAGE biees 


s 
invocation: 26 words 


0 words 
-May-1981 13: 
14-May-1981 13 
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705 :ML4 14-May-1981 13: :48:54  TOPS-20 Bliss-16 v2(212) 
£0 : 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (105) 
2708 ; 9970 ! 
2709 : 9971 BGNTST; 
22710 : 997 
de711 ; 9973! 44 
ger ; 9974 TEST NUMBER: TST 55 
ger1k 3 997 TEST NAME: MULTIPLE BIT ERROR SYNDRONE GENERATION AND DECODE TEST 
2716 : 9978 | TEST DESCRIPTION: 
2717 : 9979 TEST SYNDRONE GENERATION, SYNDRONE DECODE 
22718 : 9980 ' AND ERROR CORRECTION FOR MULTIPLE BIT 
3719 ; 9381 CHANNEL ERRORS BY: 
22721 : 9983 1. CLEAR THE FIRST CRC GROUP IN THE 
272 ; 9984 10_BUF AND GOOD BLOCK TO ZEROES 
22726 : 9986 i 2. VIA DATA DIAG MODE FLIP ALL BITS IN 
723 ; 9387 A CHANNEL TO ONES 
22727 : 9989 | 3. THEN DO A MASS BUS READ TRANSFER AND 
22728 : 9990 | EXAMIN THE 10 BUF FOR ZEROES INDICATING 
30729 ; 9991 THE CORRECTION WAS PERFORMED 
30731 3 9993 4. REPEAT FOR ALL CHANNELS IN THE CRC GROUP 
30733 : 9995 IMPLICIT INPUTS: 
22735 : 9997 | A BI; VECTOR OF 16 BITS WHERE THE READ 
2736 ; 9998 PROM DATA IS STORED OAND ACCESSED FROM. 
2738 : 10000 | 10. BUF 
22739 : 10001 : “VECTOR OF 256 WORDS WHERE DATA 
36740 3 1000¢ Fon hus READS AND WRITES TRANSFERS 
22742 : 10004 } : 
22743 ;: 10005 
22746 : 10006 i-- 
22745 : 10007 
22746 : 10008 Local 
22747 : 10009 “NIB. par : bitvector [4], 'STORAGE FOR SBE TO BE GENERATED 
2768 : 10010 NIB-S iPOINTER TO WHERE ERROR IS TO BE WRITTEN 
3749 ; 10011 GD_ORD_ iCOUNT OF WHERE GOOD ‘NIB_SEL* ARE FOUND 
71 ; 19018 i 3> = %b'110': 'LOAD DATA STRUCTURE WITH ZEROES CRC PATTERN 
22755 ; 10015 incr BIT_CNT from 0 to 35 do 'TEST FOR MULTILPLE ERRORS AT 36 CHANNELS 
23186 ; 19017 CLR MBUS; 'CLEAR THE DRIVE 
757 : 10019 incr CNT from 0 to 255 do 'CLEAR FIRST CRC GROUP IN THE 10 
3738 ; 10020 10_BUF C.CNT) = ZEROES; sine tet 


SEQ 0458 
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SEQ 0459 

22761 M4 14-May-1981 13: 48:54 TOPS=20 Bliss-16 v2(212) 
ge7be : 14-May-1981 13:0 PA:<NEALEDML4.BLI.7 (105) 
764 : 10028 GD_BLK_XFER (); ‘ALSO CLEAR THTE FIRST CRC GROUP 

765 : 1002 tsi = write; 'IN THE ML11°S GOOD BLOCK 
22766 : 10024 TIME_OUT 
376 ; 10085 GD_ WRD_CAT = SERO: 'CLEAR COUNT 

768 : 10026 TEMP = ZEROES; iCLEAR D1_TEMP 

2769 : 10027 “TEMP = ZEROES: iCLEAR D2~TEMP 

2770 : 10028 be Tene = ZEROES; iCLEAR NIBBLE PATTERN 
22771 : 10029 NIB-SEL : .BIT_CNT/4; iCALCULATE THE NIBBLE TO BE IN ERROR 
22772 : 100 NIB-PAT c.81T tht mod 4) = ‘CALCULATE AND THE BIT TO BE IN ERROR 
22778 : 10031 LD CNG WR (.RIB_SEL, .NIB_ nee iLOAD THE ERROR IN D1_TEMP OR D2_TEMP 
22776 : 10038 WR iLOAD THE REGISTER WITH THE ERROR 
22775 : 1003 DAT~ DA RFER” QO: iSET UP A DATA 
22776 : 10034 MLCS1 = write; 'DO A WRITE TRANSFE 
gor? : 10039 DELAY (ONE_US); iGIVE THE PROM DATA TIME TO COME OUT 
22779 : 10037 do 'LOAD THIS CHANNEL WITH MULTIPLE ERRORS 
22780 ; 10038 begin 
2781 : 10039 PD_TEMP = .MLPD; 'READ THIS ARRAY WORDS PROM_DATA 
22783 : 10041 if .PD_TEMP C.NIB_SEL] IS_SET 'SEE IF THIS A GOOD NIBBLE 
2278 : Ls then 
22785 : 10045 DAT_CLK = ONE 'CLOCK OUT ANOTHER ARRAY WORD IF BAD 

Py e 

22787 : 10045 begin 'ELSE CLOCK IN THE ERROR INTO A GOOD NIBBLE 
22788 : 10046 GD_WRD cNT = 30 WRD_CNT + 1; 
22789 : 10047 DaT.c LR = 

2790 : 10048 
22791 : 10049 
22792 : 10050 end 
2o793 : 10051 until .GD_WRD_CNT eql 6; 'REPEAT UNTIL 6 WORDS ARE WRITTEN 
22795 : 19088 BGNSUB; 'START OF SCOPE LOOP 
22796 : 10054 CLR_MBUS; iCLEAR our THE DATA DISG MODE TRANSFER 
22797 : 10055 GD_BLK_XFER (): iSET UP A GOOD BLOCK TRANSFER 
22798 : 10056 Ect DIS = 0: ‘ENABLE ERROR CORRECTION 
22799 : 1005 MLCS1 = read; iREAD OUT THE ERRORS 
32800 ; 10058 TIME_OUT_LOOP; iWAIT FOR THE TRANSFER TO COMPLETE 
2280 : 10060 incr WRD_CNT from 0 to 13 do 'SEE IF THE CORRECTIONS WHERE DONE 

804 : 1006¢ if .10_BUF C.WRD_CNT] neq ZEROES 'TEST THE I0_BUF FOR ALL ZEROES 
ss ; 100G2 — : ‘REPORT THE onan IF ANY LOCATIONS ARE NOT ZEROES 
SBOP 10065 ERDF (141, SYNC. PUMPER); 

2808 : 10066 NTB (THR_ WRD_76, WRD_9); 

2809 ; 1006 PRINIB (FMT~22, .WRD -tnt, .BIT_CNT); 
22810 : 10068 end; 

811; 10069 

B12; 10070 ENDSUB; ‘END OF SCOPE LOOP 

2813 ; 10071 end; 

2814 : 1 re 

2815 : 10073 ENDTST; 
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SEQ 0460 
2817 M4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
Patty . 14-May-1981 13:05:08 | PA:<NEALEDML4.B8L1.7 (105) 
32823 
2824 .SBTTL $155 
2828 100302 004167 103610 $155: JSR R1,$SAVES ; 9968 
2829 100306 024646 MP = S$) -(SP) 
22830 100310 042767 070000 110640 BIC #70000,€2. TEMP : 1001 
831 100316 052767 060000 110632 BIS #60000, E2. TEMP 
2832 100324 00 905 CLR R : BIT.CNT 1001 
2833 100326 15277 0 112660 1S: BISB #40,aML.REG+40 : 1001 
2834 100334 016702 11 242 MOV ML bur R2 
2835 100340 042702 177770 BIC #177770,R2 
2836 100344 142777 000007 112642 BICB = #7, AML. REG*+40 
2837 100352 150277 112636 BISB R2,aML.REG+40 
2838 100356 005001 CLR R1 : CNT 100 
2839 160360 010108 2s: MOV R1,R2 : CNT,* 1002 
22840 100362 006 ‘ ASL R 
22841 100364 005062 011600 CLR 10. BUF (R2) 
22842 100370 005201 INC R1 : CNT 100 
22843 100372 020127 000377 CMP R1,4377 : C(NT,* 
22844 100376 003770 BLE 2 
22845 100400 004767 115464 JSR PC,GD.BLK.XFER : 1002 
2846 100404 O12? 7 1 112542 MOV #61 ,aML.REG : 1002 
2847 100412 105777 112606 3S: TSTB = a@ML..REG+50 
22848 100416 100375 BPL 3$ 
22849 100420 005005 CLR RS : GD.WRD.CNT 1002 
22850 100422 005067 110524 CLR D1. TEMP : 1002 
2851 100496 005067 110522 CLR D2. TEMP : 1002 
2852 100432 005016 CLR (SP) t NIB.PAT 1002 
22853 100434 010346 MOV R3,-(SP) : BIT.CNT,* 100 
22854 100436 012746 000004 V #4.-(SP) 
22855 100442 004767 103304 JSR PC.BLSDIV 
2856 100446 010004 MOV x : *,NIB.SEL 
3285 100450 010346 MOV R3.-(SP) : BIT.CNT.* 1003 
2858 100452 012746 000004 MOV #4.-(SP) 
2859 100456 004767 103302 JSR ; LSMOD 
2860 1 010002 MOV RO, 
2861 100464 006200 ASR 
2862 100466 00 ASR RO 
2863 100470 00 ASR 
2864 100472 012701 000010 MOV #10,R1 
2865 100476 601 ADD oR : NIB.PAT,* 
2867 Hitt staat MOV RO. (SP) 
868 100504 010246 MOV R 5{$P) 
2869 100506 : 16 177770 BIC #177770, (SP) 
3870 10051 oi 746 000001 MOV #1,-(SP5 
871 100516 011646 MOV (SP) ,=(SP) 
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328 


SEQ 0461 


3ML4 14-May-1981 13:48:54 TOPS 
; 14-May-1981 13:05:08 PA:< 


fo Jos) 
ea 


376 100520 004767 102652 JSR PC,BLSPU 

877 100524 010416 MOV 6 : NIB.SEL,* 1003 
878 100526 01 6 16 MOV 16 (SP) ,=(SP) : NIB.PAT.* 

879 100532 004 e578 JSR PC,LD.LNG.WRD 

2880 100536 016777 110410 1126 MOV D1. TEMP, aML .REG*+170 

2881 100544 016777 110404 11260 MOV Dg. TEMP .aAL .REG*200 

2882 100552 016777 110400 112554 V £2. TEMP, aML .REG*+160 

2883 1005 004767 113376 JSR PC. DAT.DM.XFE : 1003 
2884 100 0127 7 000061 112362 MOV #61, aML.REG : 1003 
2885 100572 012701 000001 MOV #1,R1 > *,$$TMP2 1003 
886 100576 001411 4$: BEQ 7$ 

2887 100600 016702 101312 MOV LSDLY,R2 : *,SSTMP1 

2888 100604 0014 BEQ gs 

2889 1 005066 000022 5$: CLR 2(SP) : SSTMP 

2890 1900 StH 005 DEC R2 + SSTMP1 

22891 100614 1374 BNE 5$ 

22892 100616 005301 6$: DEC R1 : SSTMP2 

22893 100620 900766 BR 4$ 

22894 10062¢ 039402 7$: MOV R4,R2 : NIB.SEL,* 1004 
22895 100624 006202 ASR R2 

22896 100626 00620 ASR R 

22897 1006 00620 ASR R 

22898 100632 062 02 013120 ADD #PD. TEMP.R2 

2899 100636 017767 112542 112254 8$: MOV @ML .REG+230,PD. TEMP : 1003 
22900 100644 010246 MOV R2,-(SP) : 1004 
22901 100646 010446 MOV R4.=(SP) : NIB.SEL,* 

22902 100650 042716 177770 BIC #177770, (SP) 

22903 100654 012746 000001 MOV #1,-(SP5 

22904 100660 005046 CLR -(§P) 

22905 100662 004767 102252 JSR PC .BL$GT2 

22906 100666 062706 000010 ADD #i0,SP 

22907 100672 005 DEC RO 

22908 100674 001401 BEG 9$ : 1004 
22909 100676 005205 INC R5 : GD.WRD.CNT 1004 
22910 100700 152777 000020 112366 9S: B1SB #20 ML .REG+120 : 1004 
22911 100706 020527 CMP R546 + GD.WRD.CNT,* 1005 
genre 100712 001351 BNE $ 

22913 100714 10440 10$: TRAP 

22914 100716 152777 000040 112270 BISB #40,a@ML.REG+40 : 1005 
22915 100724 01670 112652 MOV mL BUT 

a916 100 O42” 177770 BIC #177770,R2 

2917 100734 1427 7? 112252 BICB =: #7 , AML. REG*+40 

2918 100742 150277 112246 BISB =—-R2. AML .REG*+4 

2919 100746 004 M4 115116 SR PC.GD.BLK.XFER F 1005 
329 190782 142777 000002 112314 BICB We aml .REG+120 ; 1005 
2921 100760 012777 000071 112166 MOV { ami. : 1005 
29 ¢ 100766 105777. 112232 11$:  TSTB  aML.REG+5 

S38 INTHE S88ht cha uo. 196 
3998 100776 stats 12$: MOV R1,R2 t WRD.CNT,* 1006 | 
2926 101000 90650 ASL R 

2927 101002 762 011600 TST 10. BUF (R2) 
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ounu 
<=—UIW 
zu @ 

7 —), Ta) 


z 
One ce ee 
vw 


FERS 
es 
ze 


. SP,* 
; BIT.CNT,* 
; WRD.CNT,* 
; SP,* 


; WRD.CNT 
; WRD.CNT,* 


; BIT.CNT 
; BIT.CNT,* 


SEQ 0462 


54 TOPS 
:05:08 PA:< 


1006 


1006 


i ek ek ee ek ek ee ee ed ad dd dd dd 
fale lololeolololelalololalololalalolololalololololola lo lololalolo) 
29 3h I I 


ESRRVSVSKELSRS 


1$ 
14$: (SP)+,(SP)+ 
PC 


; Routine Size: 206 words 
3; Maximum stack depth per invocation: 24 words 


-SBTTL 155 


T5538 
177140 : JSR PC,$T55 
TRAP 66 
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101144 006 ROR RO 
ssoen 101146 1037 BLO 1$ 
2990 101150 000207 RTS PC 
22991 
2299 ; Routine Size: 6 word 
299 : Maximum stack depth oer invocation: 


: 10074 !<BLF/PAGE> 


0 words 


14-May-1 
14-May-1 


981 
981 


105: 


SEQ 0463 
754 TOPS 
:08 PA:< 


eae 


Mn 


Be 


MOPUPOPUNoPoPoPonononsnorofonononony 
=o 


Rieti 


5 
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ALG 14-May-1981 13:48:54 TOPS=20 Bliss~16 v (212) 
: 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (106) 
: 10075 ! 

; 100% BGNTST; 

; 10078 !++ 

; 10079 | TEST NUMBER: TST 56 

; 1008) TEST NAME: ECC ERROR REGISTER TEST 

: 19088 i TEST DESCRIPTION: 

: 10084 | TEST THE ECC ERROR REGISTER FOR 

: 10085 | CLEARING AND LATCHING OF ECC ERROR 

3 10086 | INFORMATION ON DETTECTION 

; 10087 OF ECC ERRORS BY: 

: 10089 | 1. THIS TEST IS TABLE DRIVEN. DATA TABLE (DT_1) 

; 10090 | CONTAINS ERROR FORCING DATA AND EXPECTED 

; 10094 MLEE DATA AS A RESULT OF THE FORCED ERROR 

: 19098 i 2. THE TEST THEREFOR INDEXES INTO DT_1 TO FORCE 

; 10094 AN ECC ERROR 

; 1009 3. A MASS BUS READ TRANSFER IS DONE 

: 10098 | 4. DT_1 IS AGAIN INDEXED AND ITS CONTENTS 

: 10099 | S”COMPARED AGAINST THE RESULTING 

3 10100 MLEE REGISTER CONTENTS 

: 10102 : 5. A MASS BUS CLEAR IS DONE AN MLEE IS CHECKED FOR 

; 10103 ZEROES 

: 10105 ! 6. THE ECH BIT IS ALSO EXAMINED FOR CORRECT 

3 10106 LATCHING INFORMATION 

: 10108 : 

3 10109 ! 

: 10110 i- 

3 10111 

; 19118 , cH a ‘VARIABLE ENDING CONDITION FOR LATC 

3 e H 

; 10114 ERR_FLG; ERROR FLAG eae coon 
: 10116 CLR BUS: | ‘CLEAR THE DRIVE 

3 10117 FINISH = iMAKE LATCH_LOOP DO 5 LOOPS AT FIRST 

: 10119 incr CLR_LOOP from 0 to 1 do 'THE FIRST PASS TESTS MLEE FOR LATCH 

: 10120 'THE-SECOND PASS TESTS MLEE FOR CLEARING — 

; 101 1 begin 

3 101 § incr LATCH_LOOP from 0 to .FINISH do 'TEST MLEE FOR LATCHING BY USING DT_1 DATA 
; 19135 BGNSUB; ‘START OF SCOPE LOOP 

— Pa nS ate iG-May-1981 13:48:8¢  TOPS-20 BLiss=16 v2(212) 
; 14-May-1981 13:08:08 — Presnemapeiee arr 921 


SEQ 0464 
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SEQ 0465 
23059 
g ; 10127 MLER = ZEROES; ‘CLEAR THE ERROR REGISTER 
1; 10128 ECC_DM = ONE; \ENABLE ECC DIAG MODE 
2 ; 10128 PAR-CRC_WRD = .DT_1 C.LATCH_LOOP, P0_5]; GET PAR_CRC_WRD DATA FROM DT_1 
23063 ; 10130 CRC-A =".DT_1 E.LATCH LOOP, A0_53; 'GET CRC_A FROM BT_1 
23064 ; 10131 CRC~B = .DT-1 C.LATCH-LOOP, B0-5):; iGET CRC-B FROM DT-1 
¢3065 ; 10132 GD_BLK_XFER™(); iSET UP AK GOOD BLOTK TRANSFER 
3066 ; 10133 ECT_DIS = ZERO: iDISABLE ECC DIABL 
23067 : 101 MLCS1 = read; iREAD THE ERROR AND LACTH MLEE 
33068 ; 10135 TIME_OUT_LOOP; 
23070 : 10137 if .CRC_ERR neq .DT_1 C.LATCH_LOOP, CRC_DATA] then ERR_FLG = ONE; 'TEST CRC_ERR 
23072 : 10139 if .SGL_ERR neq .DT_1 C.LATCH_LOOP, SGL_DATA] then ERR_FLG = ONE; ‘TEST SGL_ERR 
$3076 3 10141 if .UNC_ERR neq .DT_1 C.LATCH_LOOP, UNC_DATA] then ERR_FLE = ONE; ‘TEST UNC 
23076 3 10148 if .BIT_IN_ERR neq .DT_1 C.LATCH_LOOP, E0_5] then ERR_FLG = ONE; ‘TEST BIT IN ERROR 
23078 : 10145 if .CHAN_IN_ERR neq .DT_1 C.LATCH_LOOP, C0_5] then ERR_FLG = ONE; 'TEST CHANNEL IN ERROR 
23080 : 10147 if .ECH_ERR neq .DT_1 C.LATCH_LOOP, ECH_DATA] 'TEST IF ECH GOT SET 
23081 ; 10148 then 
23082 ; 10149 begin 'REPORT ERROR IF NOT SET 
23083 ; 10150 ERRDF (123, ASYNC, DUMPER): 
23084 : 10151 PRINTB (FOR_FMT, WRD_67, WRD_10, WRD_69, WRD_14); 
23085 ; 10152 end; 
23086 ; 10153 
23087 : 10154 if .ERR_FLG IS_SET ‘TEST IF THE ERRC& FLAG GOT SET 
23088 ; 10155 then 
23089 : 10156 begin ‘REPORT ERROR IF SET 
23090 : 10157 ERRDF (124, SYNC, DUMPER); 
23091 ; 10158 PRINTB (THR_FMT, REG_14, WRD_52, PHR_11); 
23092 ; 10159 PRINTS (FMT_1, .DT_1-L.LATCH-LOOP, EE DATA), .MLEE); 
23093 ; 10160 PRINTB (FMT~19, .DT_1 C.LATCA_LOOP, B0_5J, -DT_1 C.LATCH_LOOP, AO_5J, .DT_1 C.LATCH_LOOP, P0_5)) 
230% ; 10161 end; 
23095 : 1016 
23096 ; 1016 ENDSUB; ‘END OF SCOPE LOOP 
23097 : 10164 end; 
23098 ; 10165 
23099 : 10166 CLR_MBUS; 'CLEAR THE REGISTER 
3101 ; 10168 if .MLEE neq ZERO 'SEE IF THE REGISTER GOT CLEARED 
3310 ; 10169 then 
3103 ; 10170 begin 'REPORT ERROR IF NOT CLEARED 
33104 : 10171 ERRDF (125, SYNC, DUMPER); 
3105 : 1017¢ PRINTB (FOR_FMT, REG_14, WRD_52, FNC_7, WRD_14); 
23106 ; 1017 end; 
23107 : 10174 
23108 : 10175 ECC_DM = ONE; ‘ENABLE ECC DISABLE 
3109 : 10176 FINISH = ZERO; iMAKE LATCH_LOOP LOOP ONCE TO CLEAR MLEE AGAIN 
3110 ; 1017 end; 
3112 MiG oie 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
3115 ; 14-May-1981 13:6 :08 PA <NEALESPLe BLL? t100) 
S311 : 10179 ENDTST; 


TOPS 
PA:< 


:05:08 


14-May-1981 13:49: % 


14-May-1981 1 


3; *,FINISH 

: CLR.LOOP 

; LATCH.LOOP 

3; LATCH.LOOP,* 


L_ 4 
2,R2 
@ML .REG+150 
REG+150 


SSAVES 
6, aml .REG+40 
aml 
*@ML .REG*40 
»R2 
#1, aML.REG+120 
(R2) RO 
aL. 


RO 

RO 

(R1) .=(SP) 
#157777, (SP) 


R1 

R5 
#4,~-(SP) 
#DT.1+ 

2 

R3 
#140377,R0 
#37400 
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3 
3198 2 
3199 546 
3200 101552 
3201 554 
3202 556 
3203 101562 
3204 564 
3205 566 
3206 101574 
3207 101576 
3208 101600 
3209 101602 
3210 101610 
3211 612 
4516 614 
321 616 
3214 630 
is ies 
321 6 
a 
3219 101632 
3220 101634 
a 
3224 
3225 101642 
3226 151688 
3227 10165 
3228 191638 
3565 101 
32 1S 1G88 
31 1016 
3 101672 
3 1p1676 
$5%¢ 101702 
35 101704 
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000002 


111424 


6$: 


7$: 


9$: 


13$: 


RO, (SP)+ 
6$ 


#1,R3 

(Rd), =(SP) 
-(SP5 
#10000,2(SP) 
10$ 

(SP) 

RO 
#100, aML .REG+60 
11$ 


#WRD.69,-(SP) 
#WRD.10.-(SP) 
#WRD.67.-(SP) 
#FOR.FMT,-(SP) 
#5,-(SP) 

SP.R 

14 

#14,SP 

R3,41 

14$ 

55 


*,ERR.FLG 


*,ERR.FLG 


*,ERR.FLG 


* ,ERR.FLG 


SP,* 


: ERR.FLG,* 


14-May-1981 1 
14-May-1981 1 


3:05: 


SEQ 0467 


54 
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177170 3$ 
(SP)+,(SP)+ : 
4 : LATC 


1 TCH.LOOP 
000002 R4,2(SP) ; LATCH.LOOP,F INISH 
14-May-19; 


81 13: 
14-May-1981 1 


17$ 
177122 JMP 2s 
000040 111106 17S: #40, QML .REG+40 
111470 MO 
A hda 


90000 111070 
141280 
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000014 
000001 
000002 


000001 
176760 


176706 


! <BLF /PAGE> 


111060 18$: 


19$: C 


3; Routine Size: 
3 Maximum stack 


3ML4 


RTS 
3; Routine Size: 


3; Maximum stack depth per invocation: 


MWRD.14,- 
#FNC.7,=( 


+ 
2(SP) 
(SP) 
(SP) ,#1 
19$ 

1$ 

(SP)+, (SP 
PC 


283 word 
depth per 


PC 
6 words 


(SP) 
SP) 


2SP 
pe Reet ee 


+ 


s 
invocation: 22 words 


0 words 


SP,* 


FINISH 
CLR.LOOP 
CLR.LOOP,* 


14-May-19 
14-May-19 


aS 


1017 


4 TOPS 
8 PA:< 
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Pandas inpcashecten inital Mes 
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SEQ 0470 


14-May-1981 13: 2:48:54 TOPS-20 Bliss-16 V2(212) 
14-May-1981 15:05:08 PA:<NEALE>ML4.8L1.7 (107) 
1 
BGNTST; 
o4 
TEST NUMBER: TST 57 
' TEST NAME: ECC ERROR LOCATION REGISTER TEST 


i TEST DESCRIPTION: 
TEST THE ECC ERROR LOCATION REGISTER FOR CLOCKING, BIT UNIQUENESS 
CLEARING AND LATCHING OF DSA ADDRESSES ON DETECTION OF ECC ERROR BY: 


1. TEST FOR CLOCKING BY: 
A. DOA — BUS A tet ay REGISTER BITS TO ZEROES 
B. FORCE AN ECC ERROR AT THE LAST BLOCK AND DO A READ TRANSFER 
C. CHECK MLEL FOR LAST BLOCK ADDRESS 
2. TEST FOR BIT UNIQUENESS BY: 
A. WITH FORCED ECC ERRORS DO READ TRANSFERS AT VARIOUS DSA 
ADDRESSES AND rect MLEL FOR LATCHED DSA ADDRESSES 
- DO CLEAR AND REPEAT 
3. 


ag! FOR Rah ny AND start BY: 
TH ORCED SINGLE BIT ERROR DO A READ TRANSFER AT THE 
. a tenten MLEL WITH THE LAST BLOCK ADDRESS TO START THE TEST OFF) 
A FORCED SINGLE BIT ERROR DO A READ TRANSFER AT DSA 
ZERO ap “CWE ck MLEL FOR NOT LATCHING. 


NO 
WITH FORCED UNCORRECTABLE ERRORS DO A READ TRANSFER AT DSA 
oe ein bc MLEL FOR LATCHED DSA ZERO 


NO CLEAR DONE 
WITH oy: SINGLE BIT ERRORS DO A READ TRANSFER AT THE LAST 
BLOCK CHECK MLEL FOR NOT LATCHING 


NO CLEAR DONE 
- WITH A FORCED UNCORRECTABLE ERROR DO A READ TRANSFER AT 
a go rg AN CHECK MLEL FOR NOT LATCHING 


A MASS BUS CLEAR 
an 4 _— SINGLE BIT ERROR DO A READ TRANSFER AT THE 
H. DO A MASS BUS CLEAR AGAIN AND CHECK MLEL FOR ZEROES 
IMPLICIT INPUTS: 


A “VECTOR OF 256 WORDS WHERE DATA 
sgh. 


a 


S READS AND WRITES TRANSFERS 


local 
‘SINGLE BIT ERROR PARRAMETER 


dD 5 
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SEQ 0471 
03 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 V2(212) 
es : 14-May-1981 13:05:08 PA:<NEALEDML4.8L1.7 (107) 
S308 19o3e SAE iTEMPORY SAVE LOCATION’ 
33408 : 10235 SHF_DATA, iSHIFTING DATA PATTERN SAVE LOCATION 
23409 ; 102 DSA-PAT; iEXPECTED DSA PATTERN LATCHED IN MLEL 
23411 10238 BGNSUB; ‘START OF SCOPE LOOP 
g3412 ; 10239 CLR_MBUS; iCLEAR THE MLEL REGISTER 
23413 ; 1084 FOR-ECC_ERR (SGL = 1, UNC = 0); FORCE A SB 
oti 3 10261 mLDA : LST BLK: iLATCH THE LAST BLK ADRS INTO THE MLEL 
23416 : 19508 MLBA = 10_BUF; 
e347 ; 10264 mics! 2 read: 'DO A READ AND LATCH THE MLEL 
23419 : 10246 Tee Teche 
33420 3 10247 if .MLEL eql ZEROES 'SEE IF THE MLEL GOT CLOCKED 
e428 : 10249 begin 'REPORT AN ERROR IF NOT CLOCKED 
23423 : 10250 ERRDF (126, SYNC, DUMPER);: 
23424 ; 10251 PRINTB (THR_FMT, REG_15, WRD_52, PHR_11); 
23425 : 10¢5¢ EXIT_TST; 
23426 ; 1025 end; 
23427 : 10254 
23428 : 10255 ENDSUB; ‘END OF SCOPE LOOP 
$3409 3 10256 SHF_DATA = .LST_ARR; iLOAD THE SHIFT DATA 
Seite 3 10638 war tae from 0 to 16 do ‘FIRST TEST FOR 71°S AND O'S THEN SHIFT DATA 
23433 : 10260 BGNSUB; ‘START OF SCOPE LOOP 
23434 : 10261 CLR_MBUS; iCLEAR THE DRIVE 
23435 ; 1026¢ FORTECC_ERR (SGL = 1, UNC = 0); iFORCE A SBE 
93437 ; 10264 selectone .LOOP of 'SELECT THE TEST PATTERN 
° se 
23439 : 10266 
S3te5 $ cet C0) : ‘ 'ZEROES PATTERN 
Py egin 
53442 : 10369 DSAPAT = ZEROES: 
23443 : 10270 MLDA = .DSA_PAT; 
23444 ;: 10271 end; 
23445 : 10878 
o3446 3 10873 (1) es ‘MOSTLY ONES PATTERN 
3448 : 10275 DSA. PAT = .LST BLK; 
3449 ; 1027 MLDA = .DSA_PAT; 
23450 ; 1027 end; 
3451 : 10278 
se : H+ ia Cotherwised : 'SHIFT PATTERN 
3454 ; 10281 DSA. PAT = ,SHF_DATA; 
Ek : 19583 OF sathew “hee hata ONE 
3 =. “=ONE ; 
3035 : 102 end: - 


s. 
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SEQ 0472 
23459 :ML4 14-May-1981 13: 7:48:54 TOPS-20 Bliss-16 V2(212) 
$ rs 3 14-May-1981 13:05:08 PA:<NEALE>ML4.8L1.7 (107) 
saree ; 10285 tes; 
23463 ;: see 
ote: 3 1028 MLWC = not 255; 'SET UP THE TRANSFER 
3465 ;: 10288 MLBA = I0_BUF ; 
23466 ;: sep MLCS1 = read 'DO THE TRANSFER AND LATCH MLEL 
23467 : 10290 TIME_OUT_LOOP; 
sures 3 1OS95 SAVE™= .ALEL; 'READ AND SAVE THE MLEL REGISTER 
3470 ; 10998 if .SAVE neq .DSA_PAT 'SEE IF SAVE IS WHAT WE EXPECTED 
3471 ; 10294 then 
3472 ;: 10295 pegin 'REPORT AN ERROR IF NOT THE SAME 
3473 ;: 10296 ERRDF (127, ASYNC, DUMPER); 
23474 10297 PRINTB ( TWO_ FMT, REG 15, PHR_4 
23475 : 10298 PRINTB (FMT_ = F ‘DSA _PAT, PoRye. (.DSA_PAT xor .SAVE)); 
23476 ; 10299 end; 
23477 : 10300 
23478 10301 ENDSUB; 'END OF SCOPE LOOP 
23479 ;: IOs end; 
23480 ; 1030 
23481 : 10304 CLR_MBUS; 'CLEAR THE DRIVE 
Seres ; 10305 FOR_ECC =ERR (SGL = 1, UNC = 0); 'FORCE A SBE 
23483 : 10306 MLW = t 255; 'SET UP A LAST BLOCK TRANSFER 
23484 ; 10307 MLBA = 10 BUF ; 'TO LATCH THE MLEL WITH T 
23485 ; 10308 MLDA = .LST_BLK; 
23486 ; 10309 MLCS1 = read; 
23487 ;: 10310 TIME _OUT LOOP; 
23488 ;: 10311 
23489 ; eis incr LOOP from 0 to 4 do 'NOW TEST FOR CORRECT LATCHING 
23490 ; 1031 begin 
23491 ; 10314 BGNSUB; 'START OF SCOPE LOOP 
Sete é Wale MLER = ZEROES; 'CLEAR THE ERROR REGISTER 
23494 ;: 10317 case .LOOP from 0 to 4 of 'SELECT TEST DATA 
23495 ; 10318 set 
Seige 3 10319 
23497 ;: 10320 (0) : 'FORCE A SBE AND CHECK FOR THE LST BLK ADRS 
23498 ;: 10321 SEP" 4; 
3499 ; 10356 SG 
3500 ; 10 a S Z 
3501 ; 10324 SA_PA noes! BLK; 
502 ;: 193 5 MEDA s 
503 ;: 103. $ end; 
504 ; 103. 
3505 ;: 10328 (1) : ‘FORCE A UNC ERROR AND CHECK FOR ADRS ZERO 
4 3 103 SEP"? 0; 
3507 ; 10330 SG 
3508 ; 10331 UNC = 
3509 ;: 193 § DSA PAT’ = RS ye 
aei9 3 H+ MLDA = ZEROES; 
511; 103 end; 
aig 3 133 5 
513 ; 10 (2) : ‘FORCE SBE AND CHECK FOR ADRS ZERO 


—— ML-11 LOGIC TEST 
T 


515 :ML4 
218 $ 
3 
23518 ; 10337 begin 
519 ; 10338 SGL = 1; 
520 ; 10339 UNC = 0; 
$21; 10340 DSA_PAT = ZEROES; 
$ 5 ¢ 3 Ht 9d MLDA = .LST_BLK; 
523 ; 10 ¢ end; 
$ 524; 1034 
3352 3 10344 (3) : 
526 ;: 10345 begin 
$256 3 1008 SGL = 0; 
3528 ;: 1034 UNC = 1; 
23529 : 10348 DSA_PAT = ZEROES; 
23530 ;: 10349 MLDA = -LST_BLK; 
23531 ;: 10350 end; 
seeee 3 10351 
23533 : 10536 [4] : 
23534 : 1035 begin 
23535 ; 10354 CLR_MBUS; 
23536 ;: 10355 SGL = 1; 
23537 : 19338 UNC = 0; 
23538 ;: 1035 DSA_PAT = ZEROES; 
23539 : 10358 MLDA = .LST_BLK; 
23540 ; 10359 end; 
23541 ;: 10360 tes; 
See¢ : 19363 FOR_ECC_ERR (.SGL, .UNC) 
23 3 19803 MLW = not 255; 
23545 ; 10364 MLBA = 10_BUF; 
seh: Eoin 
23548 : 10309 ve 
23549 : 10368 if .LOOP neq 4 
23550 ;: 10369 then 
23551 ; 10370 SAVE = .MLEL 
seeeg : 10371 else 
23553 : 10376 begin 
$3aee 19374 SAVE SS ALEL 
23556 ; 10375 . 5 
S3eeg : 1037 if .SAVE DSA_PAT 
Py e neq 2 = 
23559 3 10378 then 
3560 ; 10379 begin 
3561 ;: Ieee ERRDF (128, SYNC, DUMP 
396¢ 3 10381 PRINTB (THR_FMT, REG 1 
3263 ; 10388 PRINTE (FMT-1, .DSA_PA 
2356s 3 19382 
$20 : 19 5 ENDSUB; 
8 end; 
23568 5 10 
3569 ; 10 ENDTST; 


. 
MACRO M1113 18=MAY-81 08:17 PAGE 429 


TOPS=20 Bliss-16 V2(212) 


14-May-1981 13:68:38 
:05:08 PA:<NEALE>ML4.8L1.7 (107) 


14-May-1981 1 


'FORCE UNC ERROR AND CHECK FOR ADRS ZERO 


!FORCE SBE AND CHECK FOR ADRS ZERO 


'FORCE SELECTED FORCED ERROR INTO ML11 
!SET UP A TRANSFER 
!READ THE ERROR OUT AND LATCH MLEL 


!TEST THE REG FOR LATCH DATA IF LOOP NEQ 4 


‘ELSE TEST THE REG FOR CLEAR 


!SEE IF THE REG LATCHED OK 
!REPORT ERROR IF NOT LATCHED 


ER); 
, WRD_71, WRD_10); 


‘END OF SCOPE LOOP 


SEQ 0473 





G_5 
MLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 430 


SEQ 0474 
571 :ML4 14-May-1981 13:48:54 TOPS=20 Bliss-16 v2(212) 
a7 14-May-1981 13:05:08 | PA:<NEALEDML4.BLI.7 (107) 
57 
7 .SBTTL $157 
582 10 354 004167 101636 $157: JSR R1,$SAVES : 1017 
583 10 00574 TST -(§P) 
584 10 19440 1$: TRAP 2 : 1023 
585 10 1527 0 110722 BISB #40,@ML.REG+40 : 1023 
586 102272 016705 111304 MOV ML bur R5 
3587 10227 042708 177770 BIC #177770,R5 
3588 10 142777 000007 110704 BICB = #7 , AML. REG*40 
3589 102310 150577 110700 BISB R5S.aML.REG+40 
3590 10. 314 012703 000001 MOV #1.R : *,SGL 1024 
591 10 010346 MOV R3,-(SP) : SG6L,* 
3598 loesee 903001 CLR R1 : UNC 
3593 102324 5046 CLR -(SP) 
23594 102526 004767 113426 JSR PC, FOR.ECC.ERR 
3595 1028 01 107234 110644 MOV LST.BLK, aM .REG+30 : 1024 
3596 102340 012777 177400 110616 MOV 4-400, aML .REG*+10 : 1024 
3597 102346 012777 011600 110620 MOV #10.BUF .@AL .REG*20 : 1024 
3598 102354 012777 000071 110572 MOV #71, aML.REG : 1024 
23599 102362 105777 110636 2s: TSTB = @ML. REG*5 
23600 102366 100375 BPL 
23601 102370 005777 111000 TST aML .REG+220 : 1024 
23602 102374 001025 BNE 3$ 
2360 102576 104455 TRAP ; 1025 
23604 102400 000176 .WORD 176 
23605 102402 010526 [WORD SYNC 
3606 102404 024060 “WORD DUMPER 
23607 102406 012746 007576 V #PHR. 11,-(SP) : 1025 
23608 102412 012746 007066 MOV #WRD.52.-(SP) 
23609 102616 012746 010404 MOV #REG.15,-(SP) 
23610 102422 012746 MOV ATHR. FMT, =( 
23611 1024 01274 MOV #4 ,=( 
33612 102432 01 MOV SP. : SP,* 
3361 102434 104414 TRAP ‘16 
3614 102456 10446 TRAP = 63 
23615 102440 706 000016 ADD #16,SP : 1024 
23616 102444 167 001006 JMP 6$ : 1024 
2361 102450 ee 6 38: CMP (SP)+,(SP)+ : 1023 
3618 109482 10446 TRAP 6 : 1025 
23619 102454 ROR RO 
102456 103701 BLO 1$ 
1 102460 016705 107112 MOV LST.ARR,RS > *,SHF DATA 1025 
¢ 10 464 00500 CLR R2 : LOOP 1025 
% 109698 1577 000060 110516 “°° bree «$60. am .REGeAO ; 1958 
P + 3 
5 102676 016700 111100 MOV ML.BUT,RO 
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SEQ 0475 
7 sML4 14-May-1981 13:48:54 TOPS 
8 3 14-May-1981 13:05:08  PA:< 
2 102502 04 700 177770 BIC #177770,R0 
3631 102506 1427 7? 110500 BICB =: #7, ML. REG*40 
102514 150077 110474 BISB RO, aML.REG+40 
1025 O12 03 000001 MOV “1, : *,SGL 1026 
102524 010346 MOV R3,-(SP) : SG6L,* 
35 102526 005001 CLR R1 : UNC 
102530 00504 CLR =(SP) 
36 10 332 004767 113222 JSR PC, FOR.ECC.ERR 
102536 005702 TST R2 : LOOP 1026 
3639 102540 001002 BNE 5$ 
23640 102542 005004 CLR RG : DSA.PAT 1026 
23641 102544 000405 BR 6$ : 1027 
e642 10 346 020227 000001 5$: CMP R2,41 + LOOP,* 1026 
23643 102552 001005 BNE 7$ 
23644 102554 016704 107012 MOV LST.BLK,R4 : *,DSA.PAT 1027 
23645 102560 010477 110420 6$: MOV R4,aML .REG+30 : DSA.PAT,* 1027 
g3646 102564 000404 BR 8$ : 1026 
2364 sees 010504 7$: MOV R5.R4 : SHF .DATA,DSA.PAT 1028 
23648 1065 010577 110410 MOV R5.aML.REG+30 : SHF.DATA.* 1028 
23649 102574 05 ASR RS : SHF.DATA 1028 
23650 102576 O12 77 177400 110360 &8$: MOV #~400, @ML.REG+10 : 1028 
23651 102606 012777 011 110362 MOV #10.BUF .aAL .REG*20 : 1028 
$365¢ 102612 012777 71 110334 MOV 471, aML.REG : 1028 
23653 102 105777 1104 9$ TSTB  aML.REG+50 
23654 102624 375 BPL 9$ 
23655 102626 017766 110542 000004 MOV @ML .REG+220,4(SP) 3 *, SAVE 1029 
23696 1026 26604 CMP 4(SP) R46 3 SAVE,DSA.PAT 1029 
23657 102640 001441 BEQ 10$ 
23658 102642 104455 TRAP = 55 ; 1029 
23659 102644 177 . WORD ? 
3660 102646 010464 “WORD ASYNC 
3661 102650 060 D 
366¢ 102652 012746 007454 MOV e : 1029 
23663 10, 66 012746 010404 MOV #REG. 15, -(SP) 
33664 102 012746 006024 MOV FMT, -(SP) 
3665 102666 012746 000003 MOV 43,- 
25666 102672 010600 MOV SP.RO : SP,* 
308 13 ot o16616 000014 nov 14(SP), (SP) SAVE 1029 
Py * 
3569 | $05 010446 MOV R4,-(SP) : DSA.PAT,* 
3670 102704 04 16 00000 BIC 2(§P), (SP) 
71 102710 66 00000 BIC R4,2(SP) : DSA.PAT,* 
7 102714 052616 BIS (SP)+, (SP) 
73 10, 716 016646 000014 MOV 14(SP5 ,=(SP) : SAVE,* 
3674 102722 010446 MOV R4 = ($P) : DSA.PAT,* 
3675 102724 12766 004266 MOV #FAT.2,-(SP) 
3676 10 12746 000004 MOV #4,-(SP) 
3677 1027 1 MOV SP.RO : SP,* 
3678 10, 736 104414 TRAP 3s ‘14 
CU a rn a ete : 1988 
3681 102746 1 rr] TRAP 8 ; : 1 








3695 


as 
S$SSHsz 


2370 


st 


RSaNS 


Ww 
N 
0 


SSS 
IN a 
RWIS 


SARA 
oD 


Rey 
NERSVEVSLSHHSSVBseTSe 


WAW 
w m 4 WAN 


“ 
Ww 
Ns 


CZMLACO ML-11 LOGIC TEST 
$15? 


seseesescensse7ses= 
BINLUNELSEVSULS 
YNNNNNNO OWN 


ao——GOO0°o 
S 


2 
Da 
S 
nN 






110222 


110204 


110020 


110002 


sML4 


11$: 


12$: 


13$: 


148: 


15$: 
16$: 
17$: 
18$: 


19$: 


20S: 
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INC : 

CMP R2,#20 

BLE 

BIS8 #40,@ML.REG+40 
MOV bur RS 

BIC #177770,R5 
BICB = #7, AML. REG*4 
BI RS, aML .REG+40 
MOV *R3 

MOV R3,-(SP) 

CLR 

CLR ) 


-(SP 

JSR PC, FOR.ECC.ERR 

MOV #-400, aL .REG+10 

MOV #10.BUF ,aML .REG+20 

MOV LST.BLK.@AL .REG* 0 
#71, aML REG 


MOV 

TSTB = @ML.REG#5 

BPL 11$ 

CLR 

TRAP 2 

CLR ML .REG+60 

MOV R2,R5 

ASL R 

ADD 13$(R5) PC 

,WORD 14$-13$ 

“WORD 15$-13$ 

“WORD 17$-13$ 

“WORD 18$-13$ 

“WORD 19$-13$ 

MOV #1,R 

CLR R1 

MOV LST.BLK,R4 

BR 16s 

CLR R 

MOV #1,R1 

tr . REG+30 
P + 

eS 

BR $ 

CLR 3 

MOV #1,R1 

BR § 


V 
BIC é at R5 
BICB = #7 , AML .REG*+4 
B1 5< ami .REG+40 
MOV *R3 







LOOP 


LOOP, * 


; *,SGL 
UNC 
; *,DSA.PAT 


SGL 
* ,UNC 
DSA.PAT 


SGL 
* ,UNC 


*,SGL 


UNC 


SEQ 0476 


TOPS 
PA:< 





1025 






1030 





1030 






Seassesseseaes 
PREC 
Ww 


Ww 
w 





—-— 
oo 
WW 
arn 





C CO ML-11 LOGIC TEST 
$15 


$ 739 
740 
5 a2 103224 005 
74 1033 6 Oren? 
ace 10 Bioaee 
Sis 1s one 
309 103244 O13777 
3748 103252 012777 
3749 103260 012777 
750 1935 105777 
23751 103272 100375 
let 103274 020227 
23753 103. 001014 
23754 103302 152777 
23755 103310 016705 
$3526 103314 os) 5 
3757 103320 142777 
23758 103326 150577 
23759 103332 017766 
760 103340 026604 
23761 103344 001433 
S508 103346 104455 
23763 103350 200 
23764 103352 010526 
23765 103354 024060 
te] 103356 012746 
3767 103 Bistee 
3768 103 Agree 
23769 103372 012746 
3770 103376 012746 
$3753 103402 010600 
3 103404 104414 
23773 1034 gisele 
3774 10341 10446 
3775 103414 012746 
23776 103420 012746 
3777 103424 01 
3778 1034 104414 
Bae Wane Sct 
3781 103436 VOae6? 
3782 10344 
se I 
3785 oes 090299 
3786 10345 7 
Be Ine She 
3789 103460 $ 
3790 
3791 
3792 
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238: 


248: 


258: 


26$: 


3; Routine Size: 


; Maximum stack depth per 


RS 
LST.BLK,@ML.REG+30 
R3,-(SP5 
R1,=(SP) 
PC. FOR.ECC.ERR 
4-400, aML .REG+10 

#10. BUF ,aML.REG+20 
471, aML.REG 

@ML .REG+50 

23$ 

R244 


#40, QML .REG+40 


14 
22(SP), (SP) 
R4,-(SP) 
#FMT.1,-(SP) 
#3,-(SP) 

*RO 
Tess spre 
© 
nos 
R 
R2, M4 
(SP)+, (SP)+ 
(SP)+ 


323 word 


s 
invocation: 19 words 


Bete Be Ge 


14-May-198 
14-May-198 
DSA.PAT 
; SGL,* 
C,* 
; LOOP,* 


*, SAVE 
; SAVE .DSA.PAT 


SP,* 


SAVE ,* 
DSA.PAT,* 


SP,* 


LOOP 
LOOP,* 


11 
11 


1038 


Kk. § 
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SEQ 0478 
1 
2 
sho -SB8TTL 157 
3811 10 $8 T57:: 
\ 103462 004767 176566 1$: JSR PC,$T57 3 1038 
13 103466 104466 TRAP 66 
23814 103470 on00} ROR RO 
23815 103472 10377 BLO 1$ 
sesi$ 103474 000207 RTS PC 
tot ; Routine Size: 6 words 
3819 : Maximum stack depth per invocation: 0 words 
23824 
23825 
23826 ;: 10389 !<BLF/PAGE> 


—c- 
vim 
“e 


28 


A A A A 
petetcpenetpeet 


Monononenonononoronornofnererorors 
UMFWN—o 


Breas: 


Sees 
ovuaon 


. 
e 
. 
e 
o 
° 
2 
° 
. 
° 
e 
° 
o 
e 
. 
° 
= 
e 
. 
o 
. 
° 
. 
e 
. 
e 
. 
° 
° 
° 
” 
eo 
2 
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. 
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. 
° 
o 
Oo 
o 
e 
ae 
o 
° 
” 
° 
o 
o 
° 
° 
oo 
o 
. 
e 
o 
° 
* 
e 
s 
e 
o 
@ 
. 
° 
° 
° 
o 
o 
© 
° 
* 
e 
° 
e 
© 
° 
. 
e 
o 
o 
° 
e 
2 
e 
o 
- 
o 
a 
. 
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= 
° 
° 
o 
. 
° 
° 
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« 
© 
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CO ML-11 LOGIC TEST 


as 


PERRLLEPELELELELELELESELELELSSELER ELE PESER CCS SOTO 


ew SSN sa we usounee oo 
om 





CRC“B = 
BAI7= 





as 
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IMPLICIT INPUTS: 
10_BUF 

A_ VECTOR OF 256 
FOR MBU 
IS F 


ocal 
EXPECTED; 


CCL ONE ; 
AR_CRC_WRD = ZEROES; 
CRC_A = ZEROES; 
ZEROES; 

s ° 


10_8UF = ONES; 
GD-BLK_XFER (5; 


MLTS1 = write; 


TIME _OUT_LOOP; 

incr LOOP from 0 to 1 do 
egin 

EER MBUS 

GD_BLK_XFER (); 


if .LOOP eql ZERO 
then 





14-May-1981 13:68:36 TOPS=-20 Bliss-16 V2(212) 


14-May-1981 1 PA:<NEALE>ML4.BLI.7 (108) 


0390 ! 
0391 BGNTST; 
b308 
0395 !++ 
Ogo¢ ! TEST NUMBER: TST 58 
Os09 TEST NAME: ECC HARD ERROR BIT TEST 
0398 ! TEST DESCRIPTION: 
0399 VIA ECC_DM AND ECC DIS TEST THE 
9 ECH BIT FOR SETTING AND NOT SETTING BY: 
02 1. VIA ECC_DM AND A_WRITE TRANSFER FORCE 
e ECC ERRORS INTO THE ML11°S GOOD BLOCK 
05 2. WITH ECC_DM = 0 AND ECC_DIS = 0 
DO A REAB TRANSFER AND CHECK ECH SET 
3. WITH ECC_DM = 0 AND ECC_DIS = 1 
DO A READ TRANSFER AND THECK ECH NOT SET 


WORDS WHERE DATA 


S READS AND WRITES TRANSFERS 


'EXPECTED ECH_ERR VALUE 
'CLEAR THE DRIVE 


!SET ECC DIAG MODE 
'FORCE UNCORRECTABLE ERRORS INTO THE GOOD BLOCK 


!TEST ECH BIT FOR SETTING / NOT SETTING 
!START OF SCOPE LOOP 

‘CLEAR THE DRIVE 

!SET UP A GOOD BLOCK TRANSFER 


‘SELECT THE TEST DATA 





rmrvrorr 


ee 
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14-May-1981 13:68:38 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (108) 


: 10448 begin ‘EXPECT ECH BIT TO SET 
: 1044 ECC_DIS = 0; 

23889 : 10444 EXPECTED = 1; 

23890 ; 10445 end 

Stan, : inses else 

¢ 4 : 1044 gin ‘EXPECT ECH BIT NOT TO SET 
3893 : 10448 ECC_DIS = 1 

2389 : 10449 EXPECTED = 0; 

23895 ;: 10450 end; 

23896 ; 10451 

23897 : 10458 MLCS1 = read; 'READ THE ERROR OUT 

23898 : 1045 TIME _OUT_LOOP; 

23899 : 10454 

23900 : 10455 if .ECH_ERR neq .EXPECTED 'IS ECH BIT WHAT WE EXPECTED 
23901 ; 10456 then 

2 Os 3 10457 begin 'ERROR IF NOT 

23903 : 10458 ERRDF (129, SYNC, DUMPER) : 

23904 ; 10459 PRINTB (FOR_FMT, WRD_67, WRD_10, WRD_69, WRD_14); 

23905 ; 10460 PRINTB (FMT_1, .EXPECTED, .ETH_ERR); 

23906 ;: 10461 end; 

23907 ;: ees 

23908 : 1046 ENDSUB; =. ‘END OF SCOPE LOOP 

23909 ; 10464 end; 

23910 : 10465 

23911 : 10466 ENDTST; 

23915 

23916 .SBTTL $158 

3920 103476 004167 100356 $758: JSR R1,$SAVE3 : 
23921 103502 152777 000040 107504 B1SB #40,aML.REG+40 : 
23922 103510 016702 MOV mL bur 2 

23923 103514 042702 177770 Ic #177770,R2 

23924 103520 14277 107466 BICB = #7 , AML. REG*+40 

23925 103526 150277 107462 1 R2.aML .REG+40 

3926 103532 152777 107534 B1S8# anit .REG+120 : 
23927 103540 042777 037400 107556 BIC 4376 ,@ML .REG+150 : 
23928 103546 142777 000077 107550 BICB #77, aML.REG*+150 : 
23929 103554 140777 000077 107552 BICB =: #77. @ML..REG*160 ; 
23930 103562 152777 10 107424 BISB #10, aML.REG+4 : 
23931 103570 012767 177777 106002 MOV #1, 10. BUF : 
3932 103576 004767 112266 JSR PC, GD.BLK.XFER : 
393 103608 012777 000061 107344 MOV #61. 0RL REG : 
3934 103610 105777 107410 1$: TSTB a@ML.REG+ 

23935 103614 100375 BPL 1$ 

23936 103616 005001 CLR R1 : LOOP 
393 103620 104402 2s: TRAP 3s 2 : 
3938 103622 152777 000040 107364 BISB #40,aML.REG+40 : 


az 
Re 


RRR RRRREEEE 


WANA WARINPINPINININY 


as th 


N__5 
crm Aco ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 437 


SEQ 0481 
23940 M4 14-May-1981 13:48:54 TOPS 
3941 : 14-May-1981 13:05:08  PA:< 
23943 103630 016700 107746 MOV ML bur RO 
23944 103634 042700 177770 BIC #177776,RO 
33945 103640 142777 900907 107346 BICB =: #7, AML. REG*+40 
394 103646 150077 107 : BISB RO,aML.REG+40 
23947 103652 004767 11221 JSR PC.GD.BLK.XFER : 1043 
23948 103656 005701 TST R1 + LOOP 1044 
23949 103660 001006 BNE 3$ 
23950 10 Meer? 000002 107404 BICB #2, aML.REG+120 : 1044 
3951 103670 012702 000001 MOV #1.R2 : *, EXPECTED 1044 
3952 103674 rth BR : 1044 
23953 103676 152777 000002 107370 3$: BISB #2,aML.REG+120 : 1044 
23954 103704 00500 CLR R + EXPECTED 1044 
23955 103706 012777 000071 107240 4$: MOV #71, @ML.REG : 1045 
23956 103714 105777 107304 5$: TSTB  a@ML.REG+50 
23957 103720 100375 BPL 4 
23958 103722 010203 MOV R2,R3 : EXPECTED, * 1045 
23959 103724 005000 CLR R 
23960 103726 132777 000100 107300 BITB #100, aML.REG+60 
23961 103734 001401 BEQ 68 
3962 103736 005200 INC RO 
23963 103740 020003 6$: CMP RO,R3 
23964 103742 001441 BEQ 8$ 
23965 103744 104455 TRAP ; 1045 
23966 103746 201 .WORD 201 
23967 103750 010526 “wORD SYNC 
23968 103752 “WORD DUMPER 
23969 103754 012746 006442 MOV #WRD.14,-(SP) : 1045 
23970 103760 012746 007252 MOV #WRD.69.-(SP) 
23971 103764 012746 006406 MOV MWRD.10.=(SP) 
23972 103770 012746 007240 MOV MWRD.67,-(SP) 
23973 103774 012746 006046 MOV #FOR.FMT,-(SP) 
23974 104000 012746 00000 MOV #5,-(SP) 
23975 104004 010600 MOV SP.RO : SP,* 
23976 104006 104414 TRAP ‘14 
23977 104010 005016 CLR (SP) : 
23978 104012 132777 000100 107214 BITB #100,aML.REG+60 
23979 104020 001401 BEQ 
sso) H otis 4 iia 7$ nov (SP) sp) EXPECTED 
: ont e * 
3982 194056 01 oe 004222 MOV #FMT.1,-(SP) 
3983 104032 01 746 00000 MOV #3,-(SP) 
3984 104036 01 MOV SP.RO > SP,* 
33989 104040 104414 TRAP —s-_‘14 
3986 104042 062706 000022 ADD #22, SP ; 
23987 104046 10446 8$: TRAP = 6 ; 
23988 104050 ROR 0 
3989 104052 10366 BLO 2$ 
3990 104054 005201 INC R1 ; LOOP 
23991 104056 0 0127 000001 CMP R1,41 + LOOP,* 
3992 10406 3656 BLE 2$ 
3993 104064 000207 RTS PC : 
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at te 


999 3; Routine Size: 124 wo 

visa : Maximum stack depth ro "tnvecattons 
4006 

4010 

4011 -SBTTL 158 

4015 104066 T58:: 

4016 104 004767 177404 1$: JSR PC,$T58 

4017 104072 104466 TRAP 66 

4018 104074 006 ROR RO 
24019 104076 10377 BLO B 
4s 34 104100 000207 RTS 
34038 ; Routine Size: 6 words 

402 > Maximum stack depth per invocation: 
24028 
24029 


10467 !<BLF/PAGE> 





SEQ 0482 
14-May-1981 13:48:38 TOPS 
14-May-1981 13:05:08 PA:< 

13 words 
; 1046 
0 words 


aaa ML-11 LOGIC TEST 
T58 


sML4 


Be Se Be Be Se Ge Ge Se Be Ge Ge Be Ge Se Be Be Fo Sse Se Ge Ge Ge Ge Fe Be Ge Ge Ge Ge Fe Se Ge Fe Ge Se Fe Se Ge Fe Se Se Fe Se Ge Be Sse Sete Sete s 


1 
BGNTST; 
i] 
i 


++ 

i TEST NUMBER: 
: TEST NAME: 
TEST DESCRIPTION: 


TST 59 


2. WITH DCK_EN = 1, 
DO A READ TRANSFER AND CHECK 


3. WITH DCK_EN = 0, ECC_DM = 
DO A READ TRANSFER AND CHE 


4. WITH ECK_EN = 1, ECC_DM = 
DO A READ TRANSFER AND CHE 
IMPLICIT INPUTS: 
0_BUF 


A “VECTOR OF 256 WORDS WHERE DATA 
of OU READS AND WRITES TRANSFERS 


local 
SGL, 


UNC 
EXPECTED; 


CLR_MBUS; 
FOR-ECC ERR (SGL = 1, UNC = 0); 
10_BUF = ZEROES; 
GD-BLK_XFER (); 
MLTS1 = write; 
TIME_OUT_LOOP; 
incr LOOP from 0 to 2 do 

an 

SUB; 


CLR_MBUS; 
GD_BLK_XFER (); 


aed os os = =o = os = 2 = es SS = SS SS) 2 Ss SS SH SS ee Ss SS Ss es SS SS SS SS SS SS Ss SS SS ss SS ss 
SSSSSSESSESS ESSER GRRE SESEECEEEREESEEREEPESEEERREEEES 
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A ECC_EN, ECC_DM AND ECC_DM TEST THE 
DCK BITFOR SETTING AND NOT SETTING BY: 


1. VIA ECC_DM AND A_WRITE TRANSFER FORCE 
ECC ERRORS INTO THE ML11°S GOOD BLOCK 


ECC DM = 0, ECC_DI 
THE DC 


14-May-1981 13:48: 38 
14-May-1981 13:05:08 


TOPS-20 Bliss-16 V2(212) 
PA:<NEALE>ML4.BL1.7 (109) 


DATA CHECK ERROR BIT TEST 


‘SINGLE BIT ERROR PARRAMETER 
'UNCORRECTABLE ERROR PARRAMETER 
'EXPECTED DATA CHECK BIT VALUE 
'CLEAR THE DRIVE 

'FORCE A SBE 

'SET_UP_A GOOD BLOCK TRANSFER 
!WRITE THE DRIVE WITH THE ERROR 
!TEST DCK BIT FOR 3 CONDITIONS 
'START OF SCOPE LOOP 


‘CLEAR THE DRIVE 
!SET UP A GOOD BLOCK TRANSFER 


SEQ 0483 
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SEQ 0484 

4088 :ML4 14-May-1981 13:48:54  TOPS=20 Bliss-16 v2(212) 
34089 ; Va-may-198] 13:08:08 — BreaNEAL ESE Lor > 7109) 
24091 ; 10520 
so8e $ 19361 case .LOOP from 0 to 2 of 'SELECT THE TEST DATA 

4095 ; 105 ; set 
24094 : 1052 

4095 : 10524 (0) : ‘EXPECT THE DCK BIT TO SET 

4096 ; 10525 begin 
24097 : 10526 DCK_EN = 1 
24098 : 1052 ECC“DIS = 0 
4099 : 10528 EXPECTED = 3; 

4100 ; 10529 end; 
24101 : 10530 
24102 : 10531 (1) : ‘EXPECT THE DCK BIT NOT TO SET 

24103 ;: 1386 begin 
24104 : 1053 DCK_EN = 0; 
24105 : 10534 ECC“DIS = 0; 
34106 : 10535 EXPECTED = 0; 
24107 ; 10536 end; 
24108 : 10537 
34.109 : 10538 (2): ‘EXPECT THE DCK BIT TO SET 

4110 ; 10539 pegtn 
24111 : 10540 OCK_EN = 1; 
ehiig : 10541 ECC“DIS = 3; 
24113 : 1054¢ EXPECTED = 1; 
24116 ;: 1054 end; 
24115 ; 10544 tes; 
24116 : 10545 
26117 : 10546 MLCS1 = read: 'READ THE ERROR AND CLOCK THE DCK BIT 
24118 : 10547 TIME_OUT_LOOP; 

24119 : 10548 
24120 : 10549 if .DCK neq .EXPECTED 'IS THE DCK BIT WHAT WE EXPECTED 

4121 ; 10550 then 
eh iee : 10551 begin 'REPORT THE ERRRO IF NOT THE SAME 
2h 124 : 10358 if .LOOP neq ONE then ERRDF (130, SYNC, DUMPER) else ERRDF (130, ASYNC, DUMPER); 
24126 : 10555 'CHOOSE WHICH THE ERROR IS ON 

24127 : 10596 PRINTB (THR_FMT, WRD_72, PHR_5, WRD_10); 

24128 : 1055 PRINTB (FMT~1, .EXPECTED, .DCKS; 
sole? 3 10558 end; 
24130 : 10559 
26131 : 10560 ENDSUB; 'END OF THE SCOPE LOOP 

24132 ;: 10561 end; 
24133 : 10568 
24134 : 10563 ENDTST; 

4138 


3139 -SBTTL $159 


ETRLACO ML-11 LOGIC TEST 
$15 


nd 
a’ 
on 


Saini 


SeRSeE 


4144 
4145 
4146 
4147 104102 
4148 104106 
S286 104114 
4150 104120 
24151 104124 
sol3g 104132 
24155 1041 
154 10414 
4155 104144 
4156 100186 
4157 10415 
24158 104154 
$0123 104162 
4160 109188 
24161 1041 
soles 104200 
24163 104204 
24164 104206 
24165 1OeSi9 
24166 104212 
24167 104220 
24168 1Ossse 
24169 1042 
4170 ISs78 
4171 10424 
solre 106536 
24173 104250 
24174 Hg $34 
24175 104256 
4176 104260 
4177 104262 
24178 104264 
24179 104272 
4180 104 
104 
104 
104 
104 
104 
104 
104 
104 
104 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SLELRALLSSELKAKATLSS 


RRRRRRKEK 


PoMPoNoNoNoNoNoNoNonononony: 
RRRRRRERRE REP P RP PY 
a a kg a kk ed ad ed dd dd 
ANN 

ORM 


par pearly yD? erie 
MMOrVMonnvuery 
at 


Sox 
vi 
oan 
RREER ES 


Ss 
OFS 


S 


BEPSasSsse 
SVNSNESS 
SSIISS TESS 


3 
= 
So 
—b 


006300 
066007 
000006 


ee 


Baeses=cess 
S 


Sx 
$s 


000001 
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3ML4 
$759: 
107100 


107062 


107032 


106754 
1$: 


2$: 
106774 


106756 


10$: 


R1,$SAVE3 
#40, aML.REG+40 


ML. DUT Re 

mi BUT R2 

47, @ML.REG+40 

R2,aML.REG+40 

#1.R 

R1.=(SP) 

a 

PC,FOR.ECC.ERR 

#10, aML.REG+40 

PC.GD.BLK.XFER 
,@ML REG 

@ML -REG+50 

R1 


#40, aML .REG+40 
ML DUT 


3$(RO) ,PC 
4$-3$ 

5$-3$ 

6$-3$ 

#4, QML .REG+120 
66 GAL .REG+ ICY 


#4, ML .REG+120 
6g GAL .REGot 0 


*,SGL 
SGL,* 
UNC 


LOOP 


LOOP ,* 


EXPECTED 
* EXPECTED 


EXPECTED,* 


LOOP ,* 


14-May-198 
14-May-198 


3 


SEQ 0485 
TOPS 
PA:< 
1046 
1050 


1050 


PESSSSISES 
RWWA 


S 
& 


1054 


1055 
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SEQ 0486 

4 ZML4 14-May-1981 13:48:54 TOPS 
: 01 3 14-May-1981 13:05:08 PA:< 
34908 104402 001405 BEQ 11$ 

4204 104404 104455 T 55 

4205 104406 000202 «WORD 202 

4206 104410 010526 “WORD SYNC 

4207 104412 024060 .WORD DUMPER 

4208 104414 000404 BR 12$ 
24209 104416 104455 11$ TRAP =‘ 555 

24210 10442 000202 «WORD 202 

24211 104422 010464 .WORD ASYNC 

gage 104424 024060 .WORD DUMPER 

het 1044 $ 012746 906406 12$: MOV #WRD.10,-(SP) : 1055 
24214 104432 012746 00747 MOV .5,-(SP) 

24215 104436 012746 007302 MOV #WRD.72,=(SP) 

24 16 104442 01g746 006034 MOV ATHR.FMT,-(SP) 

24217 104446 012746 000004 MOV #4,-(S 
3 18 104452 010600 MOV SP,RO : SP,* 

4219 104454 104414 TRAP -‘14 
24 20 104456 005016 CLR (SP) : 1055 
24221 104460 005777 106550 TST a@ML .REG+60 
24992 104464 100001 BPL 13$ 
24223 104466 005216 INC (SP) 
24224 104470 010246 13$: MOV R2,-(SP) : EXPECTED,* 

24225 104472 012746 004222 MOV #FAT.1,-(SP) 
24226 106476 012746 000003 MOV #3,-(SP) 
24227 104502 010600 MOV SP,RO : SP, 

4228 104504 104414 TRAP ‘14 

42 104506 062706 000020 ADD #20,SP : 1055 
4230 104512 10446 14$: TRAP 67 ; 1055 
4231 104514 006000 ROR RO 

4232 104516 103634 BLO 2$ 

4 33 104520 005201 INC R1 ; LOOP 1051 

104522 920127 000002 CMP R1,42 : LOOP,* 

4235 104526 0036 BLE 
24236 104530 022626 CMP (SP)+,(SP)+ : 1046 
3623/ 104532 000207 RTS PC 
26939 ; Routine Size: 141 words 

stSee : Maximum stack depth per invocation: 14 words 
24246 

4250 


4251 -SBTTL 159 


G 6 
SERLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 443 


SEQ 0487 
4 28 3ML4 1 ya was 1 48:54 TOPS 
r 2 3 14-May-1981 13:05:08 PA:< 
4259 1045 T59:: 
4260 1045 004767 177342 1$: JSR PC,$T59 : 1056 
24261 ogre 104466 TRAP 66 
4 $e 10454 ROR RO 
4263 104544 10377 BLO 1$ 
tsee 104546 000207 RTS PC 
2508 3; Routine Size: 6 word 
$058 + Maximum stack depth per invocation: 0 words 


24274 ; 10564 !<BLF/PAGE> 
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159 SEQ 0488 


14-May-1981 13: 748:54 TOPS=20 Bliss-16 V2(212) 
14-May-1981 13:05:08 PA:<NEALE>ML4.BLI.7 (110) 


TEST NUMBER: TST 60 
i TEST NAME: PROM DATA TEST 
i TEST DESCRIPTION: 


VERIFY THAT CHECK SUM wy FOR 
ALL PRESENT MEMORY ARRAY UV PROM 
LOCATIONS ARE ERROR FREE BY: 


1. DOING MBUS TRANSFERS 
AT ALL PRESENT BLOCKS 
AND TESTING THE UNS BIT 
TO BE CLEARED. 


| IMPLICIT INPUTS: 
10_BUF 
oe A VECTOR OF 26 WORDS WHERE 


ATA_FOR MBUS READ AND WRITE 
FUNCTIONS IS FOUND. 


CHIP_SIZ 
INDICATED THE SIZE OF THE 
ARRAY MODULES MOS RAMS. 


MAMA MAMA MAMA AMAA A AA A A AAA 


SSOSSSOSOSSSCOSOSOSOOOOSOOOOOOOOSOOOCOOCOCOOO 
Of rege 





Bm ek a mk a ek th a ee nk ht ds a a ss i tt 





0600 incr DSA_CNT from 0 to .LST_BLK do ‘WRITE TO ALL PRESENT BLK*S AND CHECK UNS BIT 
060 begin 
gene SUB; ' 
beoe Sate ‘DISABLE ECC 
= 
05 MLWe = not oss: ‘LOAD WORD COUNT 
MLBA = 10 BUF iLOAD UBUS ADRS 

060 MLDA = .DSA_CNT; iLOAD DSA 
0608 MLCS1 = write; iDO A WRITE FUNCTION 
pene T_LOOP; 
oei1 if. UNS IS_SET 'SEE IF XFERR CAUSED AN UNS ERROR 
618 begin ‘ERROR IF SET 
0614 ERRDF (107, ARR DAT p R): 
0615 PRINTB wRb 5, Pa 
0616 PRINTB (Two, - :DSA_TNT 
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SEQ 0489 
3 ZML4 14-May-1981 13:48:54  TOPS-20 Bliss-16 v2(212) 
4353 | 14-May-1981 13:05:08 | PA:<NEALEDML4.BL1.7 (110) 
4, ze 3 10617 
4 36 : 10618 if .CHIP_SIZ eql 64 ‘NEED TO KNOW CHIP SIZE TO PRINT ARRAY NUMBER 
4 3 10619 then 
4 + 3 10620 begin 
4339 : 10621 PRINTB (FMT_8, ((.DSA_CNT<11, 4>) + 1)); 164K MOS RAM 
4340 ; 106 § en 
4341; 106 else 
Cee8 3 10624 begin 
343 ; 190s? PRINTB (FMT_8, ((.DSA_CNT<9, 4>) + 1)); 116K MOS RAM 
4344; 106. § end 
4345 ; 1062 
34546 : 10628 end: 
24347 ; 10629 
24348 : 10630 ENDSUB; 
4349 : 10631 end: 
4350 : 10632 
4351 : 10633 ENDTST: 
24355 
24356 .SBTTL $160 
24360 104550 004167 077270 $760: JSR R1,$SAVE2 : 1056 
6361 106554 016702 105012 MOV LST.BLK,R2 : 1060 
362 104560 005001 CLR R1 t DSA. CNT 
24363 104562 000536 BR 6$ 
24364 104564 104402 1$: TRAP = 2 ; 1060 
24365 104566 15277 0 106420 BISB #40,aML.REG+40 : 1060 
264366 104574 016700 107002 MOV ML.DUT,R 
24367 104600 942700 177770 B #177770,RO 
24368 104604 14277 7 106402 BICB = #7, AML. REG+40 
24369 104612 150077 106376 B RO. aML .REG+ 
24370 104616 152777 000002 106450 BISB #2.aML.REG+120 : 1060 
24371 104624 012777 177400 106332 MOV 4-400, aM .REG+10 : 1060 
24372 1 012777 011600 106334 MOV #10.BUF ,aML.REG+20 : 1060 
24373 104640 010177 106340 MOV R1,aML .REG+30 : DSA.CNT,* 1060 
24374 104644 012777 000061 106302 MOV #61, aML.REG : 1060 
24375 104652 105777 106346 2$: TSTB  aML.REG+50 
24376 104656 100375 BPL 2$ 
4377 104660 032777 040000 106346 BIT #40000, aML .REG+60 ; 1061 
4378 104666 001470 BEQ 5$ 
4379 104670 10445 TRAP ss«455 : 1061 
4380 104672 000153 .WORD 153 
26381 104674 010570 “WORD ARR.DAT 
4382 104676 024 “WORD DUMP 
4383 104700 012746 007454 V #PHR.4,-(SP ; 1061 
4384 104704 012746 006666 MOV #WRD. 35,-(SP) 
4385 104710 012746 906024 MOV #TWO.FMT,-(SP) 
264386 104714 01274 3 MOV #3,-( 
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| 
SEQ 0490 
ZML4 14-May-1981 13:48:54 TOPS ( 
? = ; 14-May-1981 13:05:08 PA:< 
4391 1047 0 010600 MOV SP,RO : SP,* ( 
4392 104722 104414 TRAP ( 
4393 104724 010116 MOV R1, (SP) : DSA.CNT,* 1061 ( 
1047 12766 004644 MOV #FAT.9,-(SP) 
4395 1047 12746 000002 MOV #2,-(SP) ! 
439% 104 10600 MOV SP,RO : SP,* ( 
4397 104740 104414 TRAP —s_ ‘14 
4398 10474 026727 104622 000100 CMP CHIP. S1Z,#100 : 1061 ( 
4399 10475 1060 BNE $ ( 
00 104752 0101 MOV R1,RO0 : DSA.CNT,* 1062 ( 
24401 104754 006200 ASR RO ( 
hae 104756 006200 ASR RO ( 
2440 104760 006200 ASR RO 
24404 104762 000300 SWAB —s- RO ( 
24405 104764 942700 177760 BIC #177760,RO | 
24406 104770 010046 MOV RO,-(SP5 
24407 104772 005216 INC (SP) | 
24408 104774 012746 004610 MOV #FMT.8,-(SP) : 
24409 105000 012746 000002 MOV #2,-(SP) 
24410 105004 010600 MOV SP,RO : SP,* 
24411 105006 104414 TRAP —s_-‘'14 
eneie 105010 000415 BR 4$ : 1061 
24413 105012 010100 3$: MOV R1,RO : DSA.CNT,* 1062 | 
24414 105014 006200 ASR RO | 
24415 105016 000300 SWAB Ss RO 
4416 105020 042700 177760 BIC #177760,RO 
24417 105024 010046 MOV RO,-(SP5 
24418 105026 005216 INC (SP) 
24419 105030 012746 004610 MOV #FMT.8,-(SP) 
24420 105034 012746 000002 MOV #2,-(SP) 
24421 105040 010600 MOV SP,RO : SP,* 
34432 105042 104414 TRAP —_-‘14 
24423 105044 062706 000022 4$: ADD #22,SP ; 1061 
24424 105050 10446 5$: TRAP 67 : 1062 
1050: ROR RO 
24426 105054 103643 BLO 1$ 
24427 105056 005201 INC R1 : DSA.CNT 1060 
24428 105060 020102 6$: CMP R1,R2 : DSA.CNT,* 
24429 105062 003640 BLE 1$ 
244.30 105064 000207 RTS PC ; 1056 
seees : Routine Size: 103 words : 
rah ; Maximum stack depth per invocation: 12 words 








CZMLACO ML-11 LOGIC TEST 
$160" 


4G 

4445 

faa 

4447 

4448 

4452 105066 
4453 105 
4454 10507 
4455 105074 
24456 105076 
24457 105100 
4458 

4459 

24460 

24465 

4466 


004767 177456 
104466 


006 
108773 
000207 


10634 !<BLF /PAGE> 
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-SBTTL 160 

JSR PC,$T60 
TRAP 66 

ROR RO 

BLO 3 

RTS 


3; Routine Size: 6 words 


: Maximum stack depth per invocation: 


0 words 


SEQ 0491 


yaad bs L 748:54 TOPS 
14-May-1981 13:05:08 PA:< 


1063 








SEQ 0492 


SeA6e ZML4 ym aad 748:54 TOPS-20 
14-May-1981 13:05:08 PA: <NEAL 


THE CLEANUP CODING SECTION IS EXECUTED AFTER THE 
HARDWARE TESTS ARE RUN ON A LOGICAL UNIT. 


CLN; 
LR = ONE; !CLEAR THE MASS BUS 


mo 
loomed 
27 
w 
tT 
ae 
on 
fe 
‘<= 
~InN 
o~ 
AN 
—— 
-——h 
—w 
~~ 


s 
>ML4.BL 


24482 -SBTTL LCLEAN 
103108 152777 000040 106104 LCLEAN: B1SB go Gh. REGORS ; 1063 
105110 000207 RTS PC ; 


88 
24489 3; Routine Size: 4 words 
24490 : Maximum stack depth per invocation: 0 words 


2 
24501 -SBTTL LSCLEAN 
LSCLEAN: : : 
004767 177764 JSR PC,LCLEAN : 1063 
104412 TRAP 12 


: 000207 RTS PC 
24510 : Routine Size: 4 words 
24511 ; Maximum stack depth per invocation: 0 words 


g 10641 L 
24519 ; 10643 END BoNseTUP (0); 
: 1064 


{ 
| 
1 
‘ 
l 
\ 
l 
l 
l 
\ 
l 
l 
l 
t 
l 
l 
l 
l 
l 
l 
l 
l 
l 
\ 
{ 
l 
{ 
l 
l 
l 
{ 
l 
I 
l 
l 
l 
! 
! 


6 
a ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE £48 





CZMLACO ML-11 LOGIC TEST 
LSCLEAN 


105126 
000000 
000000 


105126 
000000 


000207 


000001 
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2ML4 


BLSLAS::.WORD 


TSFREE 
«WORD <<TSFREE-<BLSLAS+4>>/2> 
TSFREE::.WORD 0 


LSLAST== BLSLAS+4 
TSPTHV== 0 

-SBTTL SEND.LINK 
SEND.LINK:: 

RTS PC 


Routine Size: 1 word — , 
3; Maximum stack depth per invocation: 0 words 


Se 


OTS external referenc 
-GLOBL BL$GT2. *SSAvES. SSAVE4, SSAVE3 
GLOBL S$SAVE2, BL 


. oh BL$GT1 
-GLOBL BLSDIV, BLSMOD, BLSMUL 


: Size: | 14699 code + 1916 data words 
: Run Time: 03:15.0 

3 Elapsed Time: 09:39.2 

3 ery Used: be pages 

; Compilation Complete 


- END 


14-May-1981 
14-May-1981 


13:4 
13:0 


8: 
5: 


Fini gd 


SEQ 0493 
54 TOPS 
08 PA:< 

1064 
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SYMBOL TABLE 


= 20 G CSCLP1= 000006 EF .RES= 45d G FNC.3 = 007750 IER = 02 G 
ARR.DA= 010570 CVEC= 000036 EF .STA= betes G FNC.4 = 007756 INTER = 010672 
R.IN 011562 CSDCLN= 000044 EIG.FM= 00614 FNC.5 = 007774 10.BUF 011600 
ARR.16 011574 C$DODU= 51 ELV.FM= 244 oS -8 = 010004 ISR = 000100 G 
SSEMB= 000010 CSDRPT= poones ERRBLK 002160 G FNC.7 = 010012 IXE = 004000 G 
ASYNC = 010464 DU = 000053 ERRMSG 002156 G FNC.8 = 8106 2 ISAU_ = 000041 
CAL 013140 CSEDIT= sia RRNBR 002154 G FNC.9 = 010036 ISAUTO= 000041 
-GEN 013146 SERDF= 0000 ERRTYP 002152 G FORCE. 015602 ISCLN = 000041 
1T0 = 000001 G = sie th ERR.CH 015212 FOR.EC 015760 I$SDU_ = 000041 
1T00 = 000001 G CSERRO= 00006 VL. = 000004 G FOR.FM= 00604 ISHRD = 000041 
BITO1 = 000002 G CSERSF= 000054 ESEND = B10 FSAU_ = 00001 ISINIT= 000041 
1T02 = 000004 G RSO= 000057 ESLOAD= 00003 FSAUTO= 000020 ISMOD = 000041 
BITOS = 000010 G SESCA= 000010 E2.TEM= 011156 F = ISMSG = 000041 
1T04 = 000020 G CSESEG= 000005 FIND.C 015430 ISPROT= 000040 
BITOS = 000040 G UB= 00000 FIRST. 016040 ISPTAB= 000041 
1T06 = 000100 G TST= 1 FIV.FM= O8s ISPWR = 000041 
BITO7 = 000200 G CSEXIT= 000032 FMT.1 = Bones ISRPT = 000041 
IT08 = 000400 G C$GETB= 00002 FMT.10= 004676 ISSEG = 000041 
BITO9 = 001000 G CSGETW= 00002 FMT.117= 004750 ISSETU= 000041 
IT1_ = 000002 G CSGMAN= 000043 oat ie 005004 ISSFT = 000041 
BIT10 = 002000 G CSGPHR= 000042 FMT.13= 005034 ISSRV = 000041 
IT11 = 004000 G CS$GPLO= 000030 FMT.14= 005110 I$SUB = 000041 
BITI2 = 010000 G CSGPRI= 000040 FMT.15= 005150 ISTST = 000041 
BIT13 = 020000 G CSINIT= 000011 FMT.16= On 26i6 JSJMP = 000167 
BIT14 = 040000 G CSINLP= 000020 FMT.17= 005306 LAST.B 016122 
B1T15 = 100000 G CSMANI= 000050 FMT.18= 005342 AU 004210 
BIT2 = 000004 G CSMEM = 000031 FMT.19= 005412 LAUTO 004164 
BITS = 000010 G CSMSG = 000023 FMT.2 = 004266 LCLEAN 105102 
BIT4 = 000020 G CSOPEN= 000034 FMT.20= 005462 LDU 004176 
BITS = 000040 G CSPNTB= 000014 FMT.21= 005534 LD.LNG 017132 
BIT6 = 000100 G CSPNTF= 000017 a 005606 LINIT 024722 
BIT? = 000200 G CSPNTS= 000016 rae = 00565 OAD. HE ssa 
1T8 = 000400 G CSPNTX= 000015 FMT.24= 00572 OE = 040000 G 
BIT9 = 001000 G C$Q10 = 000377 FMT.25= 005746 LOT = 000010 G 
BLSDIV 003752 G CSRDBU= 000007 a 005764 LRPT 004152 
BL$GT1 003016 G CSREFG= 000047 FMT.5 = 004354 LST. 311328 
BL$GT2 003140 G CSRESE= 000033 FMT.4 = 004400 ST. 11572 
SLAS 105122 G CSREVI= 000003 FMT.5 = 004430 LST.DU 013134 
BLSMOD 003764 G CSRFLA= Bopnse FMT § = 0045 SACP BoSose G 
BLSMUL 003526 G = 000025 FMT.7 = Bpeey LSAPT $3e8 G 
BLS$PU1 003302 G C$SEFG= 000046 FMT.8 = 00461 LSAU ss G 
$PU2 003376 G I= 000041 FMT.9 = BoeGee LSAUT 002070 G 
BLSSHF 003776 G CS$SVEC= 000037 FNC.1 = 007726 LSAUTO 004166 G 
= 000400 G TPRI= 13 FNC.10= 19033 LS$ccP ope! G 
B.CAL 013142 DATA.L= 010732 FNC.11= 010060 LSCLEA 105112 G 
B.GEN 013150 AT. 014162 ie 1010 L$cO. = -00 $3 G 
CAL.CR 014612 FPT 002356 G FNC.135= 01011 LSDE 88 11 G 
CHIP.S 011570 DIAGMC= boseeD FNC.14= Bis LSDES {30 G 
$AU_ = 52 I 0035 FNC.15= 010136 LSDESP 00 O28 G 
C 0= 1 DRIVE. 013132 pus» igs Hee LSDE 8 G 
= 2 DT.1 13534 FNC.17= 1916 L$D! 164 G 
C$8SEG= R PELE: G pws igs 810! LSDLY 116 G 
= D1. TEM= 011152 FNC.19= 10608 $DTP 0G 
CSCEFG= D2.TEM= 011154 FNC.2 = 007742 LSDTYP 34 G 
SEL: SONOS GTA BEE i Hat, Bisse 
C$CLOS= 00003 EF .PWR= 000034 G FNC. $: 10 4 LSDVTY 003123 G 





tauinh 2 





8 7 
CZMLACO ML-11 LOGIC TEST MACRO M1113 18-MAY-81 08:17 PAGE 449-2 
YMBOL TABL 





Ss E SEQ 0495 
LSEF 052 G 1 P.AAT 05462 732 P.AFD 1001 
LSENVI beg G 1 P.AAU 3387 4 AF 100, 3 
LSERRT 152 G 1 P.AAV 269 5 P.AFF 100. 
LSET 102 G 1 P. AAW 2$ $8 P.AFG 1005 
LSEXP1 G 1 P.AAX 572 2 AFH 1 
LSEX 002064 G 1 P.AAY 3f28 BO AFI 101 
LSEXPS 00 G 1 P.AAZ 57 P 16 oAF J 1011 
L 002402 G OSPOIN= 001 P.ABA $4 P. bee oAFK 1St¢6 
LSHIME 002120 G OSSETU= 1 P.ABB 6 $2 P. 6 P.AFL 101 
LSHPCP 00 38 G PAR.DI 011 P.ABC 6034 P. 704 AF 1015 
LSHPTP 00 Rg G PD.TEM 013120 P.ABD 04 P. 705 AF 01016 
LSHW 002356 G PHR.1 = 007366 P.ABE Beers P. ; AF 1017 
LSICP_ 002104 G PHR.10= ss P.ABF 61 P.AD 7074 P.AFP 10204 
LSINIT 025666 G PHR.11= 007576 P.ABG 3ne1e9 P.ADL 07104 AF 10 18 
L opetse G ays 007614 P.ABH 0614 P.ADM 107114 AF 01023 
LSLAST= 105126 G PHR.15= Ba ee28 P.ABI 390166 P.ADN fats oAFS 318 42 
LSLOAD 002100 G PHR.14= BR 786 P.ABJ 06214 P.ADO 71 P.AFT 10256 
LSLUN 002074 G PHR.15= 007714 P.ABK ape 54 P.ADP 397188 P.AFU B18 66 
LSMREV 002050 G | = 007404 P.ABL 6276 P.ADQ 0715 oAFV 10274 
LSNAME OoSoss G PHR.5 = Oey P. ABM 02 P.ADR 07156 AF 313 ‘ 
LSPRIO 002042 G PHR.4 = 007454 P.ABN 006314 P.ADS 07174 P.AFX 1031 
LSPROT 805/39 G PHR.5 = Bo oene P.ABO Ones ‘ P.ADT bae5ie P.AFY 010316 
LSPRT 00 Us G PHR.6 = 007504 P.ABP 006 P.ADU 07216 P.AFZ 010 $3 
LSREPP 002 G PHR.7 = 007516 P.ABQ ones 6 P.ADV 005583 P.AGA B10 2 
LSREV 002010 G PHR.8 = 007540 P.ABR 006344 P.ADW 07252 P.A 10340 
LSRPT 004154 G PHR.9 = 007552 P.ABS 006 60 P.ADX 007240 P.AGC B18 3e8 
LS$SOFT 002720 G PNT = 001000 G P.ABT 006374 P.ADY te “8 -AGD 10354 
L$SPC_ 002056 G PRI = 002000 G P.ABU 0064 P.ADZ 725 -AG 010362 
LS$SPCP 002020 G PRIOO = sane G P.ABV 006416 P.AEA 007 $ AGF 010370 
LSSPTP 002024 G PRIO1 = 000040 G P. ABW Boorse P.AEB B05 P.AGG 010376 
L$STA 002030 G PRI02 = 000100 G P.ABX 6 P.AEC 730 P.AGH 010404 
SW 002376 G PRIO3 = 000140 G P.ABY 06442 P.AED a 1 P.AGI 810¢36 
LSTEST 002114 G PR1I04 = 000200 G P.ABZ 06454 P.AEE 07 18 -AGJ 19680 
LSTIML 002014 G PRIO5 = ota G P.ACA 462 P.AEF 00733 P.AGK 0104 
LSUNIT 002012 G pais = 00 G P.ACB 6470 P.AEG Ba5 0 P.AGL 010436 
L10000 002374 PRI07 = 000340 G P.ACC 6502 P.AEH 07346 P.AGM 010444 
L10001 002400 SN 2376 G P.ACD 6506 P.AE!I 07 P.AGN 10454 
L10002 002476 PTBL.P 011556 P.ACE 6514 P.AEJ 074 P.AGO 104 
L1000 poe 7¢8 P.AAA 22 ACF $366 P.AEK rise P.AGP 10526 
MEM.AR= 01 P.AAB $6 -ACG 5 P.AEL 07454 P.AGQ 10570 
ML. 013602 P.AAC One 4 -ACH P.AEM 07472 P.AGR 106, 
oL 31300 P.AAD 4 ACI P.AEN 07504 P.AGS 1067 
ML.REG 013154 P.AAE 4 ACJ P.AEO 751 P.AGT 19 3 
MSGH1 sitet P.AAF 53 ACK P.AEP 754 P.AGU 107 
MS 00251 P.AAG 56 P.ACL P.AEQ 755 P.AGV 11088 
MSGH 00254 P.AAH 61 P.ACM P.AER £36) P.AGW 11 
MSGH4 00256 P.AAI 004644 P.ACN P.4ES 7576 P.AGX 11106 
MSGHS boSeae P.AAJ 004 £6 P.ACO P.AET rou P.CAL 13144 
—oe 8 658 P.AAK 5 P.ACP P.AEU 76 § P.GEN 13152 
MSGH $97 P.AAL 200 P.ACQ P.AEV 266 RAS.IN 013124 
MSGS1 00 8 P.AAM 5034 P.ACR P.AEW 7714 RD.CS1 017540 
MSDUMP BEES P.AAN 2118 P.ACS P.AEX 772 RD.DA 20074 
NIB.SA 01115 P.AAO 515 P.ACT P.AEY 774 RD.DAT Q1 130 
NIN.FM= 006166 P.AAP 26)8 P.ACU P.AEZ 775 RD.DS 774 
ONEFIL= 000001 P.AAQ 05 P.ACV P.AFA 7756 RD.D1 1 
ONE . FM= sgh: P.AAR 534 P.ACW P.AFB 1445, a 8 5a5 
OP.NUM 0115 P.AAS 0541 P.ACX P.AFC 0004 D.D 522 
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SYMBOL TABLE 






SEQ 0496 

RD.EE 021536 TST.LN 016154 133 060514 G WRD.30= 006624 WRT.D2 022110 
RD.EL o51274 TWO. FM= 024 734 061450 G WRD.31= 006632 WRT .D 3 2422 
RD.ER 01771 TSARGC= ‘ 135 be 102 G D.32= 006646 WRT. 15 
RD.E1 02065 TSCODE= 1 T § 140 G D.33= 006654 WRT.EL 1472 
RD.E2 02107 TSERRN= 00 13 064046 G WRD. 0 WRT. bPgs6 
RD.MR 02025 TSEXCP= 138 293 G WRD. 35= 6 WRT.E1 0 $6 
RD.PA 020444 TSFREE 105126 & 139 65 4 G WRD. $= 0g & WRT .E2 0774 
RD.PD OS 1338 TSGMAN= 4 027230 G WRD.37= 006 WRT. OSe5 
RD.REG 3470 TSHILI= 140 906288 G WRD. 38= 71 WRT .PA 0 
REG.IN 013136 TSLAST= 000000 141 359 G WRD. 39= ig WRT. 8 1666 
REG.1 = 010256 TSLOLI= 000000 T42 070272 G WRD.4 = 0063 WRT .RE 310 
REG.10= 010346 TSLSYM= 010 ! 143 Bo ese G WRD.40= 0067. § WT.DAT 13158 
REG.11= 010354 TSNEST= 177 144 71436 G -41= 0067 W.C.SI 0131 
~3 3 010362 TSNSO = 000000 145 071 $6 G § 06746 MOR.LN 016650 
REG.135= 010370 TSNS1 = 000021 146 07 G WRD.45= 006754 XSALWA= aise 
REG.14= 010376 TSPTHV= 000000 G 147 072612 G WRD.44 Pores X$FALS= 0 
REG.15= 010404 NU= 000 148 073476 G WRD.45= 006772 XSOFFS= 000400 
REG.16= 010412 TSSAVL= 177 149 074202 G D.46= 007004 TRUE= 000020 
REG.17= 010420 TSSEGL= 177777 T5 Hee G WRD.47= 007016 SEND.L 105130 G 
REG.18= 010430 TSSUBN= T50 0 rhe G WRD.48= 007026 SPATCH 002756 G 
REG.19= 010436 TSTAGL= 1 51 075672 G -49= 007036 Perit f 4G 
REG.2 = 010266 TSTAGN= 010005 T5 076444 G = B63 0 SSAVE 060 G 
REG.20= 010444 TSTEMP= 0 15 077244 G WRD.50= 007046 SSAVE4 004076 G 
aA 010454 TSTEST= 000000 754 100266 G WRD.51= 007054 SSAVES 004116 G 
REG.3 = 010274 TSTSTM= 177777 155 101136 G Fe $11 0$38 
REG.4 = 010302 T$TSTS= 000000 156 Weees G WRD.55= 007074 $110 $300 
REG.5 = 010310 TSSHAR= 010002 157 103462 G WRD.54= 007104 $T11 3 
REG.6 = 010316 TS$HW = 010000 158 193 086 G WRD.55= 007114 site 033302 
REG.7 = 010324 TSSPRO= 010004 159 104534 G WRD.5 090156 $71 033702 
REG.8 = 0103352 TS$SOF= 010003 16 030310 G WRD.57= 007130 $114 035044 
REG.9 = 010340 TS$SW = 010001 T60 492968 G WRD.58= 007140 $115 036276 
REM.TB 013434 11 Bg 6068 G 17 031140 G WRD.59= 007152 aris 037534 
REé 004144 T10 033022 G ™8 basiee G D.6 = 336 $71 Be oese 
RE 004142 T11 033266 G 19 032360 G WRD.60= 007156 $118 1620 
RES 004140 T12 033666 G UAM = Boe soy G WRD.61= 007174 $719 042056 
RH.ADD 013572 113 035030 G WRD.1 = 76 WRD.62= 007210 $T 929100 
RH.ERR= 011060 114 B69Ss G WRD.10= 006406 WRD.65= 007216 $720 043226 
RH.TYP 013574 T15 037520 G WRD.11= 416 D.64= 007 $3 $T21 044166 
RH.VEC 013576 716 040410 G ie 3 WRD.65= 007 ‘ $T § Be8366 
SC.SET= 010772 T17 041604 G WRD. 135= 44 § WRD.67= 00724 $T 2628 
SEV.FM= 006120 718 geegs G WRD.14= 4 WRD.68= 007 ry $724 5 
SFPTBL 002376 G 119 04 $1 G WRD.15= 454 re 725 $125 $7 

IX.FM= 006100 T 026330 G el § WRD.7 = 006544 $T § 534 
STACK Bisehs T20 044152 G WRD.17= WRD.70= 315 5 

TK.OF 012600 T21 044546 G WRD.18= 50 D.71= $728 514 

TRIPP 014214 T 4 392813 G WRD.19= 308 oe 0 $T29 5242 
VCGBL= 177777 T 045552 G WRD.2 = 0 732 1 $T beSae? 
SVCINS= 177777 T24 Bo6r68 G WRD.20= 006514 D.74= 18 $T 

VCSUB= 177777 T25 047520 G WRD.21= 285 D.75= 3 $131 B2t3 
VCTAG= 177777 T § 050644 G WRD. ¢: 5 D.7 0 $T § 33 
SVCTST= 177777 T 051422 G WRD. 25= 544 WRD.77= 28 $T 57516 
SYNC = 010526 T28 B2¢e G WRD.24= 326 we -8 = 006 § $T 530 
SSLSYM= 010000 T29 05 260 G WRD.25= $26 WRD.9 = 006574 31 5 1464 
TEN. FM= ponte T bees G WRD. $= 6574 T.CS 470 T posit 
THR. FM= 34 730 054314 G WRD.27= see, T.DA $3 $T 15 
TIME .O= 011106 131 B2oce8 G -29= egy DS é $T 062 
RBLE.= 011026 T32 57502 G 2 = 14 T.D1 57 $T 065066 
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SYMBOL TABLE 


oi SEQ 0497 
$14 026552 $145 071452 $750 074216 $155 10030 $16 027 
$140 = 065514 $14 071 $36 $151 et 3136 101 193 $160 104580 
$141 066502 $14 072534 $136 75 38 $15 Iee3e $17 030324 
$14 067534 $148 = (07 6¢§ $15 07646 $158 103476 $18 031154 
$14 070306 $149 = =07351 $154 077260 $159 104102 $19 032140 
$144 3 =071242 $ 027244 


- ABS. 105132 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 34715 “Ta ( 136 PAGES) 

DYNAMIC MEMORY: 4 358_WOR WORDS ( 82 PAGES) 

ELAPSED TIME: 00: 

ML11,ML11/-SP/CR: SYM=SVC/ML, CZMLAC.DOC ,ML2.P11,816PG1.P11,816PG2.P11,816PG3.P11,816PG4.P11,B16MUL.P11,B16SAV.P11,ML3.P11,ML4.P11 


SEQ 0498 


PAGE 1 
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MACRO ON 18=MAY-81 AT 08:24 
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SYMBOL CROSS REFERENCE 


mL11 











~ baal oa 

ns & MIMSERs 2 NO 

4S 5 BSSSSKS x5 
wn SAN — Oo 

a1 4 TTT) 7 

Sp dddtada & a, 

am our w am 

mM ~ nr nN oo 
sv & pSsSases Ste 

= 
Se ee ed eer reee Tw res) 
dad a a td eee i t d 
Co 5 Nrenrges gS O2e 
Pe 9 ~*~ eucucucucucucum > f UMS 
SOOO KO 

Ss 2 nSRSstrerns st 
nr wo SOMO —-OOvNeNm™M —~ 
- wT WT KR. Sooewuevre— wor 
-- =-— QeerrrrrK—twnur tee BD 
da § i a © dhe! i i i tee 

we Sen -OO-wWOO eo.wrw 
wo = 4 Ln be) roo ner 
am www NMS 
no Wor AMAMCUMORK. wn 
SS Ses MOR OARMAN SAM ano 
wn wow Om-— Oo om oon 
-—ws cor ooertuty - fa ala) 
Ye ee ee Verbs 
a om WNR.OM OR Wo ~Oo° 
Sa Seo Samesnsmmoo vee 

~ Onoowaeo & own 
MWe TOM PRO Noe nw orm wn 
ovr WON MROOK—UNMNMO- Fr ANNO + 
ST TTT TUTTE TTT Yat T 
oO wor UIA S SNOCUCCO Tr Neo 
curu att EF COUNUICUKUNICUM Te Tr we OS 

Nu NO AS SONS wn om oO 
meu an ~.omm~s moO mw ~wmMmoOo WM 

—- wow Sess ~«ovTon ao vw @ 

TF worm OOK UNINC N ENO CT 

- =e. OO rrr eK Kw N Mem Cw 
$8 me) @#eeeueeeev ees t eee t 
oo worve MINT TNO DOO ~ -—~ tw 

= = MNnODOOrM M4 —AaNnO 
Tro NFM -K-OMrTowrve ys wT Lal) 
o—- NMP SERAD FTAA MNORKRNWMN 
mMmwFr wow MNOootwwusA@doO NS nwo 
Oo- hRekX RAOef errr eK Km CUM Kory 

g ee $6? ae thd t eee 

oa La nd bee) aoaoo -—-~Toovrere 
SON EMM CUCU NUCUNNUCUNM ene wwe wre 

* * 

o- wv CB2SHS25 o oa 
HK—OMMUN DBMOTAOrOan DWODWK. ONO 
aes orw ~zSooNn=™ eo Sonovwk vO 
OVE ROC CeCe eK KK Tu Meee twe 
SR RRRLI SPR ARAARSE, SARE 
sos ITAQUMTTINORDOOC. own rt te 4 

”n wn Qaaoon-nrn MoS 
_ _ - 
WK Ne — Om NOL eee KK Cah seer eel eee eel sel ool ce el ol ol sel cl el, el cl el el el ek el ek ee el ed el 
Qeumt ie t ris 2 J a oe i BNI CUI CI CNUICNUICUI NICU 1 ot Phy 
wee Mie + OVamstu ~TRRERRSERESRRRE PERE RRP SR. t 
BRS GegMonamanmssesesecececececececeeeeeeeeses zd 
oO VVYVUYVVIOIYV VI IVOIIVIIJIVIIGA#VVIVVVVVVVUUNU ow 
oo Nu WTO ovr -uvTooo ~ ooo Moe ™N 
ae 2S RES TtOOOOK—N S3ss s —~ SSSSAzS N 
SS f= soe pa S8sssss— sssssss $3 
- 
>un “uu Hvunnnnnnnnnnnnnnnnnnnnnnnunk 
<< Zz <2 >t wn 
c=) — Ev = NVMTAOR. oenmMmwrwn mh 
gS 5 7s SFoSSNSSSSSSS OHNE menonwesgs Se 
ca =e &unM> be be ee eR eR 
n" <<a << MOAODMDOOOMOOOODOOODOOOODOOOOOOOO®O 








mL11 CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL vat 
BLSMUL $ G 
BLSPU1 00 G 

$PU2 =: 003376 «~G 
BLSSHF 003776 G 

= 00 G 
B.CAL 01 136 
B.GEN 01315 
CAL.CR Be I: 
CHIP.S 011570 
CSAU_ ss =: 000052 
C$AUTO = 1 
CSBRK_ = 000022 
CSBSEG = 000004 
CSB8SUB = 000002 
CSCEFG = 000045 
CSCLCK = 000062 
CSCLEA = 000012 
CSCLOS = 000035 
CSCLP1 = 000006 
CSCVEC = 000036 
CSDCLN = 000044 
C = 000051 
CSDRPT = 000024 
CsoU = =s_- =: 000053 
CSEDIT = 000003 
CSERDF = 000055 
CSERHR = 000056 
CSERRO = 000060 
CSERSF = 000054 
CSERSO = 000057 
CSESCA = 000010 
CSESEG = 000005 
CSE = 000003 
CSETST = 000001 
CSEXIT = 000032 
CSGEIB = poeoss 
CSGETW = 00002 
CSGMAN = 000043 
CSGPHR = 00004 
C$GPLO = 0000 
CS$GPRI = 
CSINIT = 11 
CSINLP = 34 
CSMANI == 000050 
ees: $e 
= 

ese, : Se 
CSPNTB = 000014 
CSPNTF = 000017 
CSPNTS = 000016 


MACRO ON 18-MAY-81 AT 08:24 


ag 


5-65 


PAGE 2 
CREF 


*100-2898 
#405=21095 


446-24398 


SEQ 0499 
257=12127 348-17743 418-22596 422-22876 449-24563 
11-191 17-175 179198 17-182 17-1 
23-180 29-192 29-196 29-20 30-234 
102-3016 %*405-21098 408-21370 


406-21128 *408-21341 
31360 


406-21121 *408-21338 408- 








SEQ 0500 


310-15389 332-16688 332-16727 335-17036 336-17072 


422-22883 


543 


PAGE 3 
CREF 


39-3 


33-28 


99-2665 
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_ 
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RRMMK— NOK MCU 


ne 


CREATED BY 


SYMBOL CROSS REFERENCE 


AL11 





22880 


15878 


#319-15877 
422-22881 


15761 «319- 


: 
i7- 
2604 *421-22851 


#31 
ab 
«3 
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oa 
wn 
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din 


: 


D1.TEM = 011152 
D2.TEM = 011154 


182-6963 


2 *319-15879 
#421-22831 


$6 


} 


1-15418 *317-157 
8=22605 *421-228 
416-22016 417-22306 


15118 *31 
22599 41 
249-11494 249-11557 249-11630 


383-19894 


305-14777 371-18990 446-24394 


5 *307- 
414-21744 416-21997 416-22025 417-22284 417-22312 


286-13745 341-17363 366-18673 431-23675 


3 307-15 

1 #400-20839 *418- 
213-9066 
63-12443 264-124 
5 n13688 86-13e00 
377-19582 377-19599 


5 


4-147, 
3-192 
360-18396 361-18431 401-20883 


206-8681 
5-23265 


353-9858 


1646 414-21716 


22946 
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200-8387 
£08-3137 


42 


847 269-12866 269-12887 
5 360-18360 


490 


1122 408-21364 4 
0 


g 


1 


ENCES 
973 405-21101 408-21344 
g "Bec t7o97 3807-17681 337 


& 
5-65 


MoMmr ~~ mcucucucy 


ty mr 
oe 


“eeeeeeeeese 
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CREATED BY 


SSsssssssss 


SYMBOL CROSS REFERENCE 


AL11 


16356 370-18924 
4 330-16477 370-18918 371-18983 


5188 328- 
94 


54 
63 
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ML11 CREATED BY MACRO ON 18-MAY-81 AT 08:24 PAGE 6 
SYMBOL CROSS REFERENCE CREF SEQ 0503 
SYMBOL VALUE — 
GSDISP = sists #5-1 
CSEXCP a 00 #5-1 
anes | 
= 7 
Gsio- = 900000 3+} 
GSOFFS = 000400 “5-1 6-239 6-240 241 6-24 6-243 6-244 6-245 6-285 1 
GSOFSI = 000376 #5-1 6-239 6-240 6-241 6-24 6-243 6-244 6-245 6-285 1 
GSPRMA = 000001 #5-1 6-239 T 
GSPRMD = 000002 #5-1 6-240 6-241 gnshe 6-244 T 
GSPRML = 000000 #5-13 6-243 6-245 6-285 1 
GSRADA = 000140 #5-13 1 
GSRADB = 000000 #5-13 T 
GS$RADD = 000040 #5-1 6-242 
GSRADL = 000120 #5-1 6-243 6-245 6-285 1 
= 000020 5-1 6-239 6-240 6-241 6-244 
GSXFER = 000004 #5-13 
YES = 000010 #5-13 6-239 6-240 6-241 6-242 6-243 6-244 6-245 6-285 
HELP = 000000 #5-4 -8 5-30 5-48 5-67 5-105 5-121 5-152 #6-167 
6-228 6-249 6-276 6-291 6-313 6-330 6-340 
HOE = 100000 G #92=2204 
HW.OR. 011160 #86-1874  +*285-13672 286-13716 
16E = 010000 G #92-2201 
IDU = 0 G #91-21 
IER = 020000 G 8-569 
INTER = 010672 #95-2391 193-7845 2461-10559 243-10955 279-13380 307-15186 318-15801 328-16350 332-16824 


0-18 
10.BUF 011600 #86-1889 98-2561 104 m rts. *104-3099 1 3-3240 110-3391 111-3441 117837 304-14697 


307-15037 307-15089 Ri 16283 $29-16888 0552-16712 0536-17062 *540-17509 #841-17327 | $41-17538 

346-1759 392-17952 #355-18002 $54-18052 #559-18512 #359-18515 +364-186 5-18626 

365-1 9-18866 369-1888 +570-18943 $70-18946 “301-189 OF" Bota1abee aSoe 19550 

aB03A19194 eB oeToIOS AES oed TOS Z6-19511 *876-19526 | $77-19552 | $77-19574 $81-19808 | $86- 

388-0180 *392-20596 *392-20578 +393-20420 *395-20550 405-2106) *405-27084 *406-21142 « +408-21329 

w411-21370 411-21588 418-21680 *415-21680 414-21727 #416-21925 *416-21967 416-2205 417-2208 

417-2250 417-2¢292 9418-22515 418-22630 wdzi-22861 42222927 430-28597 45128651 452-28702 

433-23748 *436-23931 #441-36159 445-94372 
ISR = 000100 G_~—Ssw#97- 
IX = 004000 G 492-32 
ISAU = 000041 #5-1 
ISAUTO = 000041 #5-13 
ISCLN = 000041 "5-13 
1300. = 000041 5-13 
ISHRD = 000041 #6226 #6-247 1 
Tee = boboat 93-13 5-39 45-39 6-337 #6337 

- ~= ~=- - - 

i emoe = BopOa ae-13 
ISPROT = 000040 5-1 #6-305 1 
ISPTAB = 000061 5-1 1 
ISPUR = 000041 5-1 ; 
ISRPT = 000041 5-1 : 
ISSEG = 000061 #5-13 i 
ISSETU = 000041 5-1 ' 
ISSFT = 000041 46-276 #6288 1 





ML11 CREATED BY MACRO ON 18-MAY-81 AT 
SYMBOL any REFERENCE 
SYMBOL —- 
ISSRV : 1 #5-1 
I$ = 1 #5-1 
ISTST = 000041 #5-1 
J$J = 000167 #5- 
LAST.B Bielss #111-3438 =316-15710 
LAU 00421 #48-187 48-205 
LAUTO 004164 #46-85 46-103 
LCLEAN 105102 oraestee 448-24506 
LDU 004176 #47-135 7-153 
LD.LNG O17 136 #122-3973 307-15055 
LINIT 02472 #184-7160 184-7310 
LOAD.S 013604 #93-3500 99-2721 
LOE = 040000 G #92-2203 
LOT = 000010 G et 
LRPT 004152 #45-32 ~50 
LST.AR 011576 #86-1888 84-7223 
5307-15171 307-15180 
LST.BL 011572 18 111-3440 
318-15819 381-1979 
432-23720 433-2374 
LST.DU 013134 #86-1900 183-7007 
LSACP 002110 G #5-65 
LSAPT 2036 G #5-65 
LSAU 212 G 5-65 #48-205 
LSAUT 002070 G #5~65 
SAUTO = 004166 —G 5-65 #46-103 
sccP 0021 G #5-65 
LSCLEA 105112 G 5-65 #448-24505 
L$CO 0020. G #5-65 
LSDEPO 002011 G #5-65 
LSDESC 2130 G 5-65 #5-87 
LSDESP 002076 G #5-65 
LSDEVP 002 G #5-65 
LSDISP 21 G 5-65 #5-103 
LSOLY 002116 G #5~-65 99-2642 
240-10466 243-10860 
8-14394 299-14409 
10-15393 311-15409 
3532-16693 332-16731 
od 19244 37353-19262 
LSDTP 002040 G #5~-65 
LSOTYP 002034 G #5-65 
L$DU 004200 G 5-65 #47-153 
LSDUT 002072 G #5-65 
LSDVTY 002122 G 5-65 #5-80 
LSEF 002052 G #5-65 
LSENVI 002044 G #5-65 
LSERRT 002152 G 5-65 #5-96 
LSETP 002102 G #5~-65 
LSEXP1 002046 G #5-65 
LSEXP4 002064 G #5-65 
LSEXPS 002066 G #5-65 
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32-16743 3535-17041 7617078 3536-17088 7-17661 347-17672 5373-19208 
400-20819 400-20830 418-22547 418-22609 422-22887 
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ML11 
SYMBOL CROSS REFERENCE SEQ 0511 
SYMBOL VALUE REFERENCES 
° 286 #77=) 93- 66 
° 5 #771 § 93-226 
° 544 #771 93- os 
P.ACI 00655 #77-1374 93- § 
ACJ 0065 #77-1376 93-2270 
ACK 006574 #77-138 93-2271 
ACL 00660 #77-138 93-227 
~ACM 00661 #77-1384 93-227 
P.ACN 006624 #77-1388 93-2274 
-ACO 006652 #77-1390 93-2275 
° 006646 #77-1394 93-227: 
P.ACQ 006654 #77-1396 93-227 
P.ACR #77-1398 93-2278 
ACS #77-1400 93-2279 
° 006674 #77-1402 93-2280 
P.ACU 006700 #77-1404 33-556! 
P.ACV 006710 #77-1407 93- sas 
P.ACW 006716 #771409 a3 28 
P.AC 006726 #78-14) 93-2284 
P.ACY 006732 #78-141 oa 285 
P.ACZ 006746 #78-14 93-2286 
P.ADA 006754 #78-1424 93-2287 
P.ADB 764 #78-1427 93-2288 
P.ADC 006772 #78-1429 33-5555 
P.ADD 7 #78-1433 93-2290 
P.ADE 007016 #78-1437 93-2291 
P.ADF 007026 #78-144 33-559 
P.ADG 007036 #78-144 93-229 
P.ADH 00 #78-1446 93-2294 
P.ADI 007054 #78-1448 95- $82 
P.ADJ #78-1452 93- 36 
P.ADK 007074 #78-1454 93-229 
P.ADL #78-1457 93-2298 
P.ADM 007114 #78-1460 93-2299 
P.ADN 007122 #78-1462 93-2500 
P.ADO 30 #78-1464 93- $0) 
P.ADP 007140 #78-1467 93- 8S 
P.ADQ 007152 #79-1475 93-230 
P.ADR 007156 #79=1477 93-2304 
P.ADS 007174 #79~-1482 93-2305 
P.ADT 007210 #79-14 93-2306 
P.ADU 007216 #79-14 94-2311 
P.ADV 007. $3 #79~14 94- \¢ 
P.ADW ith ‘ #79-149 94-231 
P.ADX 724 #79~1494 94-2314 
P.ADY 007. 38 #7914 94-2315 
P.ADZ 00725 #79-149 94- 1g 
P.AEA 007260 #79-15 94-231 
P.AEB sgh 4A #791504 94- 18 
P.AEC 007. #79-1507 94-231 
P.AED 00731 #79-1509 94- $f 
P.AEE 007316 #79~1511 94-23 
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mL11 CREATED BY MACRO ON 18-MAY-81 AT 08:24 PAGE 17 
er or REF ERENCE REFERENCES CREF SEQ 0514 
REG. 19 vN510436 195" 191-6343 
REG. = Bbeee #95-2367 1 $-S38 256-12052 
REG. = 010444 #95-2385 183- Bi 
REG.21 = 010454 #95- 183-7018 
REG. = 010274 #95- 182-6955 2467-11232 
REG.4 = 010302 #95-2369 182-6969 
REG.5 = 010310 #95-2370 18 ~$386 257-12135 hae tah 4 
=e-3 = gieele #95-2371 + he 23 ih ath 0 82-19845 383-19888 383-19909 
REG. = 010324 #95- 356 182-6976 206-8708 
REG.8 = 0103352 032-535 
REG.9 = 010340 #95-2374 182-6983 
REM.T 013434 #89-2080 1 882 100-2888 100-2894 106-3205 106-3210 106-3214 
RE2 004144 43-66 #43-96 
RES 004142 43-74 #43-95 
4 004140 3-83 #43-94 
RH.ADD 013572 $435 *184-7178 184-7189 
RH.ERR = 011060 #95~2395 185-7397 187-7536 
-TYP = =—013574 $178 *184-7180 
RH. VEC 013576 #91-2143 = # 184-7182 
SC.SET = 010772 #95-2393 
V.FM = 006120 #92-2237  328-16359 332-16808 341-17352 
SFPTBL 002376 G poe 
SIX.FM = 006100 193-7853 390-8778, § ~10571 2463-10963 248-11242 249-11483 249-11546 
SENS 79-13388 280-1 $563 $75-18 = 13032 258 14109 $52 sacar 294-14151 294-14168 332-16832 
- 54-18054 0-18352 61-18423 396 $078 
STACK 012612 #97-2697 %97-2498 092510 #97=2511 100-284 102-2983  359-18336 360-18358 
*e60-18371 360-18394 "361-18 8411 361-18429 
STK .OF 012600 #86-1890 95-2410  #99-2655 99-2713 99-2717 
STRIPP 014214 a 2 1092656 35359-18324 
SVCGBL = 177777 #5-1 5-22 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 "3-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 5-65 5-65 5-65 5-65 -6 5-65 5~65 5-65 
5-65 3-63 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 ~65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 5-65 
5-65 5-65 5-65 5 5-65 5-65 5-65 3-93 5-65 
5-65 5-65 5-65 5-65 5-65 5-65 5-65 ~65 5-65 
5-65 5-65 5-65 5-65 5~65 5-65 5-65 5-65 5-80 
5-80 5-80 5-87 5-87 5-87 5-96 39 5-96 5-103 
3-193 5-103 g-113 5-119 5-119 5-119 -119 5-119 5-150 
-150 5-150 “9 5-150 5-150 6-226 6-226 6-226 6-274 
274 g-sis §-79 §-39 7 5 
SVCINS = 177777 #5-13 #5-19 -6 -6 -6 -65 5-65 5-65 5-65 
5-65 5-65 5-65 5-65 5-65 ~65 5-65 5-65 5-65 
5-65 ef ef 3-62 5-65 -65 5-65 5-65 5-65 
5-65 -65 ~65 ~65 5-65 5-65 5-65 5-65 2-92 
5-65 5-65 5-65 5-65 5-65 2-33 ae 3-63 ~65 
5-65 5-65 5-65 5-65 5-80 5-80 -87 5-87 5-103 


ML11 CREATED BY MACRO ON 18-MAY-81 AT 08:24 PAGE 18 
hag = NCE REFERENCES CREF SEQ 0515 
at -10 5-10 2-193 3-193 5-103 3-193 5-103 5-103 
=10 -10 2-18 -10 -10 37133 -103 27193 5-103 
-10 -10 2} 5-10 3-19 5-10 5-10. 5-10 5-103 
-10 5-10 -10 5-10 -10 27138 5-10. 5-10. 5-103 
-103 5-10 5-10 5-103 5-10 -103 5-10 5-10 5-103 
5-103 5-10 5-10 37183 5-10 5-103 5-103 5-10 5-103 
5-103 2-19 5-103 5-10 5-10 5-103 5-119 5-150 6-226 
o-¢73 6-259 6-239 6-239 6-240 6-323 6-240 6-240 6-240 
6-241 6-241 6-241 onset 6-241 6-24 o-$ee 6-242 6-242 
6-24 6- $3 6-243 6-243 6-244 6-244 6-244 6-244 6-244 
g-s8 ¢- 4 6-245 6-247 6-274 6-285 6-285 6-285 6-288 
SVCSUB = 177777 #5-1 #5-21 
SVCTAG = 177777 #5-1 #5-23 5-139 5-139 5-139 5-162 5-162 5-162 6-247 
erst? $-537 6-288 6-288 6-288 
SVCTST = 177777 #5-13 #5-20 
SYNC = 010526 #95-2388 196-8106. 199-8355 05-8654 23710118 34-10165 240-10491 od adh Se 43-10885 
43-10931 ¢ 13073 $35-1S507 37-1712 $¢ 1-1 59-18340 1837 1-18415 518651 
oo drzat 77=19578 377-19597 389-20193 35392-20367 392-20402 401-20 406-21110 408-21349 
412-21611 412-21634 413-21701 414-21731 416-21985 218- 417-222 417-22296 418-22634 
4235-22935 425-23237 425-23291 Sor 43353-23764 437-25967 442-24206 
SSLSYM = 010000 #5-13 #5-139 #5-162 #6-24 -288 
TEN.FM = 006214 #92-2240 
THR.FM = 006034 #92-2233 1897385 194-7909 13-9055 $99- 9323 $99- 9012 $69. 9633 05-14772 307-15191 
318-15806 320-15923 370-18927 373-19301 738. 19826 735-33848 8353-19889 391-20339 406-21115 
408-21354 412-21616 414-21710 418-22639 4235-22940 425-23242 430-23610 4353-23769 442-24216 
TIME.O = 011106 #95~ 
TRBLE. = 011026 #952394 395-20569 
TST.LN = =©016154 wt -30es8 299-14426 305-14747 307-15139 311-15438 317-15782 319-15899 348-17717 373-19291 
TWO.FM = 006024 #92-2232 206-8709 genes qe7,0es 318-15812 431-23664 445-24385 
TSARGC = 000002 #5-65 5-65 #5~-65 ~65 5-65 #5~65 5-65 5-65 #5-65 
5-65 5-65 #5-65 5-65 5-65 #5~65 5-65 5-65 
TSCODE = 000130 #6-239 6-239 mH 6-239 #6-239 6-239 #6-240 6-240 #6-240 
6-240 #6-240 6-240 #6-241 6-241 #6-241 6-241 #6-241 6-241 
#6-24 6-24 wens? 6-242 #6-242 =24 #6-243 6-243 #6-243 
6-24 #6-24 6-24 #6~-244 6-244 #6-244 6-244 46-244 6-244 
#6-245 6-245 oon $82 6-245 #6-245 6-245 #6~-285 6-285 #6-285 
6-285 #6-285 6-285 
TSERRN = 000000 #5-13 
TSEXCP = 000000 mH 6-239 #6-240 6-240 #6-241 6-241 #6-242 6-242 #6-244 
TSFREE 105126 G 44649-24530 449-24531 #449-24532 
TSGMAN = 000000 #5-13 
TSHILI = 000007 #6- +4 6-239 #6-240 6-240 #6-241 6-241 #6-242 6-242 #6-244 
TSLAST = 000000 #5-13 
TSLOLI = 000000 mH 6-239 #6-240 6-240 #6-241 6-241 #6-242 6-242 #6-244 
TSLSYM = 910000 #5~-13 5-13 5-139 5-162 47 - 
TSNEST = 17777 #5-13 5-39 #5-39 5-3 $715 05-119 5-119 3-133 5-133 
5-139 #5-139 5-150 #5-150 5-15 5-16 5-16 ~1$9 #5-1 
6-226 #6-226 6-226 6-247 6-24 6-24 #6-24 6-2 2 
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1 REATED BY MACRO ON 18-MAY-81 AT 08:24 PAGE 22 
ey i CREF SEQ 0519 


SYMBOL CROSS REFERENCE 
SY VAL 


UE REFERENCES 
und. 35 = 6 Bee 279-13383 286-13730 305-14771 4645-26384 
wRD. 7 = 096700 #93- 281 195-7845 194-7907 213=9053 305-14770 328-16353 330-16476 391-20336 
° = - - 
WRD.39 = 00671 #93~- 285 $3 ~16678 360-18350 360-18382 361-18421 365-18654 
WRD.4 = 00632 #92-2043 227-9801  233-10085 240-10458 243-10852 247=11220 263-12446 2664-12492 266-12661 
WRD.40 = 006726 W3$-28s 28 13457 281-13473 
Unb 42 = Ooerke $355, 3BO=1 Shee 281-13476 
et = 006754 m33-208" $39 18029 Seo lboae 239=10402 239-10419 2463-10797 2643-10814 2646-11160 2466-11179 
WRD.45 = 006772 #93-2289 2279-13384 299-14450 
WRD.46 = 007 #93-2290 3280-13460 281-13476 373-19299 
ga wes BERS) IIS 
D.49 = 007036 893-229 
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